projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a8dc65d
)
makeRelativeRefTo checks tablesNextToCode, so we don't have to before using it
author
Ian Lynagh
<igloo@earth.li>
Mon, 20 Aug 2007 10:30:58 +0000
(10:30 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Mon, 20 Aug 2007 10:30:58 +0000
(10:30 +0000)
compiler/cmm/CmmInfo.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmInfo.hs
b/compiler/cmm/CmmInfo.hs
index
520566d
..
d77488c
100644
(file)
--- a/
compiler/cmm/CmmInfo.hs
+++ b/
compiler/cmm/CmmInfo.hs
@@
-78,12
+78,8
@@
mkInfoTable uniq (CmmProc (CmmInfo _ _ info) entry_label arguments blocks) =
CmmInfoTable (ProfilingInfo ty_prof cl_prof) type_tag type_info ->
let info_label = entryLblToInfoLbl entry_label
CmmInfoTable (ProfilingInfo ty_prof cl_prof) type_tag type_info ->
let info_label = entryLblToInfoLbl entry_label
- ty_prof' = if tablesNextToCode
- then makeRelativeRefTo info_label ty_prof
- else ty_prof
- cl_prof' = if tablesNextToCode
- then makeRelativeRefTo info_label cl_prof
- else cl_prof
+ ty_prof' = makeRelativeRefTo info_label ty_prof
+ cl_prof' = makeRelativeRefTo info_label cl_prof
in case type_info of
-- | A function entry point.
FunInfo (ptrs, nptrs) srt fun_type fun_arity pap_bitmap slow_entry ->
in case type_info of
-- | A function entry point.
FunInfo (ptrs, nptrs) srt fun_type fun_arity pap_bitmap slow_entry ->