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

[ghc-hetmet.git] / ghc / compiler / codeGen / CgInfoTbls.hs

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