[project @ 2005-05-17 12:22:37 by simonmar]

Profiling: the type_descr and closure_descr were the wrong way around,
so +RTS -hy behaves like +RTS -hd, and vice-versa.  How on earth that
happened I have no idea.

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index adfdb1a..9ac81bb 100644 (file)
--- a/ghc/compiler/codeGen/CgInfoTbls.hs
+++ b/ghc/compiler/codeGen/CgInfoTbls.hs
@@ -394,7 +394,7 @@ mkStdInfoTable type_descr closure_descr cl_type srt_len layout_lit
 
  where  
     prof_info 
-       | opt_SccProfilingOn = [closure_descr, type_descr]
+       | opt_SccProfilingOn = [type_descr, closure_descr]
        | otherwise          = []
 
     type_lit = packHalfWordsCLit cl_type srt_len