diff options
| author | simonmar <unknown> | 2005-05-17 12:22:37 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-05-17 12:22:37 +0000 |
| commit | ce2fc6046c62d49ae798ac35debc35b440de92cd (patch) | |
| tree | 80167e13538d660612c034bc0d39bafb185de6b4 | |
| parent | 8d6afe743a98a77c08f917438d012d95857c278d (diff) | |
| download | haskell-ce2fc6046c62d49ae798ac35debc35b440de92cd.tar.gz | |
[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.
| -rw-r--r-- | ghc/compiler/codeGen/CgInfoTbls.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs index adfdb1a3de..9ac81bb2e8 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 |