projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
TysWiredIn is now warning-free
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmInfo.hs
diff --git
a/compiler/cmm/CmmInfo.hs
b/compiler/cmm/CmmInfo.hs
index
3524377
..
c0e217c
100644
(file)
--- a/
compiler/cmm/CmmInfo.hs
+++ b/
compiler/cmm/CmmInfo.hs
@@
-150,7
+150,7
@@
mkInfoTableAndCode :: CLabel
-> [CmmLit]
-> [CmmLit]
-> CLabel
-> [CmmLit]
-> [CmmLit]
-> CLabel
- -> CmmFormals
+ -> CmmFormalsWithoutKinds
-> ListGraph CmmStmt
-> [RawCmmTop]
mkInfoTableAndCode info_lbl std_info extra_bits entry_lbl args blocks
-> ListGraph CmmStmt
-> [RawCmmTop]
mkInfoTableAndCode info_lbl std_info extra_bits entry_lbl args blocks
@@
-222,8
+222,8
@@
mkLiveness uniq live =
is_non_ptr Nothing = True
is_non_ptr (Just reg) =
case localRegGCFollow reg of
is_non_ptr Nothing = True
is_non_ptr (Just reg) =
case localRegGCFollow reg of
- KindNonPtr -> True
- KindPtr -> False
+ GCKindNonPtr -> True
+ GCKindPtr -> False
bits :: [Bool]
bits = mkBits live
bits :: [Bool]
bits = mkBits live
@@
-276,6
+276,3
@@
mkStdInfoTable type_descr closure_descr cl_type srt_len layout_lit
type_lit = packHalfWordsCLit cl_type srt_len
type_lit = packHalfWordsCLit cl_type srt_len
-
-_unused :: FS.FastString -- stops a warning
-_unused = undefined