diff options
| author | Stefan Wehr <wehr@factisresearch.com> | 2011-11-09 09:37:17 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-09 10:38:33 +0000 |
| commit | aa564232ee67d46403a69b02b0b8faf2455894f8 (patch) | |
| tree | f883131d0359e71fa37a50eb7567f76075f3a492 /compiler/iface/BinIface.hs | |
| parent | 2231a7a114b5b40347dc46620a75cb3e6402ee6d (diff) | |
| download | haskell-aa564232ee67d46403a69b02b0b8faf2455894f8.tar.gz | |
added NOUNPACK pragma (see #2338)
Diffstat (limited to 'compiler/iface/BinIface.hs')
| -rw-r--r-- | compiler/iface/BinIface.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index 70e5ebbc18..1c69d20e78 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -773,13 +773,15 @@ instance Binary HsBang where put_ bh HsStrict = putByte bh 1 put_ bh HsUnpack = putByte bh 2 put_ bh HsUnpackFailed = putByte bh 3 + put_ bh HsNoUnpack = putByte bh 4 get bh = do h <- getByte bh case h of 0 -> do return HsNoBang 1 -> do return HsStrict 2 -> do return HsUnpack - _ -> do return HsUnpackFailed + 3 -> do return HsUnpackFailed + _ -> do return HsNoUnpack instance Binary TupleSort where put_ bh BoxedTuple = putByte bh 0 |