diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-17 14:45:31 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-17 14:45:31 +0000 |
| commit | 3704620a9078bbcc429229e29242b7352647ee89 (patch) | |
| tree | aababbe1d9b8db4664e88bc7ca14034917a522c6 /compiler/codeGen | |
| parent | 50935f16dd3b479416530a991d52ee2fa7bd62ef (diff) | |
| download | haskell-3704620a9078bbcc429229e29242b7352647ee89.tar.gz | |
Fix description and type profiling
Consistently make the type and description in the info table an offset
or a pointer, depending on whether tables are next to code or not.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgInfoTbls.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs index e9751fa748..1780f51bb4 100644 --- a/compiler/codeGen/CgInfoTbls.hs +++ b/compiler/codeGen/CgInfoTbls.hs @@ -74,13 +74,11 @@ dataConTagZ con = dataConTag con - fIRST_TAG -- Not used for return points. (The 'smRepClosureTypeInt' call would panic.) mkCmmInfo :: ClosureInfo -> FCode CmmInfo mkCmmInfo cl_info = do - prof <- - if opt_SccProfilingOn + prof <- + if opt_SccProfilingOn then do ty_descr_lit <- mkStringCLit (closureTypeDescr cl_info) cl_descr_lit <- mkStringCLit (closureValDescr cl_info) - return $ ProfilingInfo - (makeRelativeRefTo info_lbl ty_descr_lit) - (makeRelativeRefTo info_lbl cl_descr_lit) + return $ ProfilingInfo ty_descr_lit cl_descr_lit else return $ ProfilingInfo (mkIntCLit 0) (mkIntCLit 0) case cl_info of |