projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Always ppr case alts on separate lines
[ghc-hetmet.git]
/
compiler
/
cmm
/
ZipCfgCmmRep.hs
diff --git
a/compiler/cmm/ZipCfgCmmRep.hs
b/compiler/cmm/ZipCfgCmmRep.hs
index
b2328be
..
aa16f0b
100644
(file)
--- a/
compiler/cmm/ZipCfgCmmRep.hs
+++ b/
compiler/cmm/ZipCfgCmmRep.hs
@@
-165,6
+165,7
@@
data ForeignSafety
= Unsafe -- unsafe call
| Safe BlockId -- making infotable requires: 1. label
UpdFrameOffset -- 2. where the upd frame is
= Unsafe -- unsafe call
| Safe BlockId -- making infotable requires: 1. label
UpdFrameOffset -- 2. where the upd frame is
+ Bool -- is the call interruptible?
deriving Eq
data ValueDirection = Arguments | Results
deriving Eq
data ValueDirection = Arguments | Results
@@
-484,7
+485,9
@@
ppr_fc (ForeignConvention c args res) =
doubleQuotes (ppr c) <+> text "args: " <+> ppr args <+> text " results: " <+> ppr res
ppr_safety :: ForeignSafety -> SDoc
doubleQuotes (ppr c) <+> text "args: " <+> ppr args <+> text " results: " <+> ppr res
ppr_safety :: ForeignSafety -> SDoc
-ppr_safety (Safe bid upd) = text "safe<" <> ppr bid <> text ", " <> ppr upd <> text ">"
+ppr_safety (Safe bid upd interruptible) =
+ text (if interruptible then "interruptible" else "safe") <>
+ text "<" <> ppr bid <> text ", " <> ppr upd <> text ">"
ppr_safety Unsafe = text "unsafe"
ppr_call_target :: MidCallTarget -> SDoc
ppr_safety Unsafe = text "unsafe"
ppr_call_target :: MidCallTarget -> SDoc