diff options
| author | John Ericson <git@JohnEricson.me> | 2019-06-10 09:32:50 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-17 12:20:26 -0400 |
| commit | 0a9b77b8b4313a9ffe7483cbc286d249fda59e75 (patch) | |
| tree | b2f463b84513f965b3bf2b505a443230d6fc0364 /compiler/utils/Binary.hs | |
| parent | 52f755aa203c55e44dce79c9ac1abc245977b000 (diff) | |
| download | haskell-0a9b77b8b4313a9ffe7483cbc286d249fda59e75.tar.gz | |
Create {Int,Word}32Rep
This prepares the way for making Int32# and Word32# the actual size they
claim to be.
Updates binary submodule for (de)serializing the new runtime reps.
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 035b65ff23..5734528458 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -651,6 +651,8 @@ instance Binary RuntimeRep where put_ bh Word8Rep = putByte bh 13 put_ bh Int16Rep = putByte bh 14 put_ bh Word16Rep = putByte bh 15 + put_ bh Int32Rep = putByte bh 16 + put_ bh Word32Rep = putByte bh 17 #endif get bh = do @@ -673,6 +675,8 @@ instance Binary RuntimeRep where 13 -> pure Word8Rep 14 -> pure Int16Rep 15 -> pure Word16Rep + 16 -> pure Int32Rep + 17 -> pure Word32Rep #endif _ -> fail "Binary.putRuntimeRep: invalid tag" |