projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Whitespace-only in rts/Linker.c
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmInfo.hs
diff --git
a/compiler/cmm/CmmInfo.hs
b/compiler/cmm/CmmInfo.hs
index
de6e201
..
2549453
100644
(file)
--- a/
compiler/cmm/CmmInfo.hs
+++ b/
compiler/cmm/CmmInfo.hs
@@
-21,10
+21,10
@@
import SMRep
import ZipCfgCmmRep
import Constants
import ZipCfgCmmRep
import Constants
+import Panic
import StaticFlags
import Unique
import UniqSupply
import StaticFlags
import Unique
import UniqSupply
-import Panic
import Data.Bits
import Data.Bits
@@
-58,7
+58,7
@@
cmmToRawCmm cmm = do
-- <normal forward rest of StgInfoTable>
-- <forward variable part>
--
-- <normal forward rest of StgInfoTable>
-- <forward variable part>
--
--- See includes/InfoTables.h
+-- See includes/rts/storage/InfoTables.h
--
-- For return-points these are as follows
--
--
-- For return-points these are as follows
--
@@
-245,7
+245,7
@@
mkLiveness uniq live =
small_bitmap = case bitmap of
[] -> 0
small_bitmap = case bitmap of
[] -> 0
- [b] -> fromIntegral b
+ [b] -> b
_ -> panic "mkLiveness"
small_liveness =
fromIntegral (length bits) .|. (small_bitmap `shiftL` bITMAP_BITS_SHIFT)
_ -> panic "mkLiveness"
small_liveness =
fromIntegral (length bits) .|. (small_bitmap `shiftL` bITMAP_BITS_SHIFT)