projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
makeRelativeRefTo checks tablesNextToCode, so we don't have to before using it
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmInfo.hs
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 ->