projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove InlinePlease and add inline function and RULE
[ghc-hetmet.git]
/
compiler
/
iface
/
BinIface.hs
diff --git
a/compiler/iface/BinIface.hs
b/compiler/iface/BinIface.hs
index
a31988a
..
6b56119
100644
(file)
--- a/
compiler/iface/BinIface.hs
+++ b/
compiler/iface/BinIface.hs
@@
-864,8
+864,6
@@
instance Binary IfaceNote where
put_ bh (IfaceCoerce ab) = do
putByte bh 1
put_ bh ab
put_ bh (IfaceCoerce ab) = do
putByte bh 1
put_ bh ab
- put_ bh IfaceInlineCall = do
- putByte bh 2
put_ bh IfaceInlineMe = do
putByte bh 3
put_ bh (IfaceCoreNote s) = do
put_ bh IfaceInlineMe = do
putByte bh 3
put_ bh (IfaceCoreNote s) = do
@@
-878,7
+876,6
@@
instance Binary IfaceNote where
return (IfaceSCC aa)
1 -> do ab <- get bh
return (IfaceCoerce ab)
return (IfaceSCC aa)
1 -> do ab <- get bh
return (IfaceCoerce ab)
- 2 -> do return IfaceInlineCall
3 -> do return IfaceInlineMe
_ -> do ac <- get bh
return (IfaceCoreNote ac)
3 -> do return IfaceInlineMe
_ -> do ac <- get bh
return (IfaceCoreNote ac)