[commit: ghc] master: Fix productivity calculation (#12424) (1783011)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1783011726a355ac7647246699d43bc7d8b6d9f1/ghc

>---------------------------------------------------------------

commit 1783011726a355ac7647246699d43bc7d8b6d9f1
Author: Simon Marlow <smarlow at fb.com>
Date:   Tue Jul 26 07:55:37 2016 -0700

    Fix productivity calculation (#12424)


>---------------------------------------------------------------

1783011726a355ac7647246699d43bc7d8b6d9f1
 rts/Stats.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/Stats.c b/rts/Stats.c
index 30f346e..e422a36 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -699,8 +699,8 @@ stat_exit (void)
                     TimeToSecondsDbl(tot_cpu - gc_cpu -
                                 PROF_VAL(RP_tot_time + HC_tot_time) - init_cpu) * 100
                     / TimeToSecondsDbl(tot_cpu),
-                    TimeToSecondsDbl(tot_cpu - gc_cpu -
-                                PROF_VAL(RP_tot_time + HC_tot_time) - init_cpu) * 100
+                    TimeToSecondsDbl(tot_elapsed - gc_elapsed -
+                                PROF_VAL(RPe_tot_time + HCe_tot_time) - init_elapsed) * 100
                     / TimeToSecondsDbl(tot_elapsed));
 
             /*