From ce2fc6046c62d49ae798ac35debc35b440de92cd Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 17 May 2005 12:22:37 +0000 Subject: [PATCH] [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. --- ghc/compiler/codeGen/CgInfoTbls.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4