From: simonmar <unknown>
Date: Tue, 17 May 2005 12:22:37 +0000 (+0000)
Subject: [project @ 2005-05-17 12:22:37 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~530
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ce2fc6046c62d49ae798ac35debc35b440de92cd;p=ghc-hetmet.git

[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
--- 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