projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2f223e8
)
Remove some code that has always been commented out
author
Ian Lynagh
<igloo@earth.li>
Fri, 17 Jul 2009 22:41:00 +0000
(22:41 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Fri, 17 Jul 2009 22:41:00 +0000
(22:41 +0000)
compiler/utils/Binary.hs
patch
|
blob
|
history
diff --git
a/compiler/utils/Binary.hs
b/compiler/utils/Binary.hs
index
3577f91
..
a74d420
100644
(file)
--- a/
compiler/utils/Binary.hs
+++ b/
compiler/utils/Binary.hs
@@
-388,17
+388,14
@@
instance Binary Int64 where
instance Binary () where
put_ _ () = return ()
get _ = return ()
instance Binary () where
put_ _ () = return ()
get _ = return ()
--- getF bh p = case getBitsF bh 0 p of (_,b) -> ((),b)
instance Binary Bool where
put_ bh b = putByte bh (fromIntegral (fromEnum b))
get bh = do x <- getWord8 bh; return $! (toEnum (fromIntegral x))
instance Binary Bool where
put_ bh b = putByte bh (fromIntegral (fromEnum b))
get bh = do x <- getWord8 bh; return $! (toEnum (fromIntegral x))
--- getF bh p = case getBitsF bh 1 p of (x,b) -> (toEnum x,b)
instance Binary Char where
put_ bh c = put_ bh (fromIntegral (ord c) :: Word32)
get bh = do x <- get bh; return $! (chr (fromIntegral (x :: Word32)))
instance Binary Char where
put_ bh c = put_ bh (fromIntegral (ord c) :: Word32)
get bh = do x <- get bh; return $! (chr (fromIntegral (x :: Word32)))
--- getF bh p = case getBitsF bh 8 p of (x,b) -> (toEnum x,b)
instance Binary Int where
#if SIZEOF_HSINT == 4
instance Binary Int where
#if SIZEOF_HSINT == 4
@@
-414,7
+411,6
@@
instance Binary Int where
#else
#error "unsupported sizeof(HsInt)"
#endif
#else
#error "unsupported sizeof(HsInt)"
#endif
--- getF bh = getBitsF bh 32
instance Binary a => Binary [a] where
put_ bh l = do
instance Binary a => Binary [a] where
put_ bh l = do