X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fmain%2FTicky.lc;h=ee411cd3c8dcef52da4b4c562e93b3f1359f042b;hp=d0276dc490c4f1177a16250a8cb5caff3d48aa57;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee diff --git a/ghc/runtime/main/Ticky.lc b/ghc/runtime/main/Ticky.lc index d0276dc..ee411cd 100644 --- a/ghc/runtime/main/Ticky.lc +++ b/ghc/runtime/main/Ticky.lc @@ -246,12 +246,12 @@ PrintTickyInfo() I_ tot_returns_in_regs = RET_NEW_IN_REGS_ctr + RET_OLD_IN_REGS_ctr + RET_SEMI_IN_REGS_ctr; I_ tot_returns_in_heap = - RET_NEW_IN_HEAP_ctr + RET_OLD_IN_HEAP_ctr + RET_SEMI_IN_HEAP_ctr + RET_SEMI_BY_DEFAULT_ctr/*???*/; + RET_NEW_IN_HEAP_ctr + RET_OLD_IN_HEAP_ctr + RET_SEMI_IN_HEAP_ctr + RET_SEMI_BY_DEFAULT_ctr/*?*/; I_ tot_returns_of_new = RET_NEW_IN_REGS_ctr + RET_NEW_IN_HEAP_ctr; - I_ tot_returns_of_old = /* NB: NOT USED ???! 94/05 WDP */ + I_ tot_returns_of_old = /* NB: NOT USED ?! 94/05 WDP */ RET_OLD_IN_REGS_ctr + RET_OLD_IN_HEAP_ctr + - RET_SEMI_BY_DEFAULT_ctr + RET_SEMI_IN_HEAP_ctr + RET_SEMI_IN_REGS_ctr /*???*/; + RET_SEMI_BY_DEFAULT_ctr + RET_SEMI_IN_HEAP_ctr + RET_SEMI_IN_REGS_ctr /*?*/; I_ tot_returns = tot_returns_in_regs + tot_returns_in_heap;