[commit: ghc] ghc-8.0: Fix productivity calculation (#12424) (7885a51)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/7885a51b460f064e164b8a690b9c8da45b654049/ghc

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

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

    Fix productivity calculation (#12424)
    
    (cherry picked from commit 1783011726a355ac7647246699d43bc7d8b6d9f1)


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

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

diff --git a/rts/Stats.c b/rts/Stats.c
index 4c06b18..7ddd1d8 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -704,8 +704,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));
 
             /*