diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2018-10-09 12:39:14 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-10-09 12:40:23 -0400 |
| commit | d728c3c578cc9e9205def2c1e96934487b364b7b (patch) | |
| tree | c542d0ea89dad09c0b8a887266375e4303f9a3a6 /compiler/simplStg | |
| parent | 4eeeb51d5f51083d0ae393009a7fd246223e9791 (diff) | |
| download | haskell-d728c3c578cc9e9205def2c1e96934487b364b7b.tar.gz | |
Revert "Add Int8# and Word8#"
This unfortunately broke i386 support since it introduced references to
byte-sized registers that don't exist on that architecture.
Reverts binary submodule
This reverts commit 5d5307f943d7581d7013ffe20af22233273fba06.
Diffstat (limited to 'compiler/simplStg')
| -rw-r--r-- | compiler/simplStg/RepType.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/simplStg/RepType.hs b/compiler/simplStg/RepType.hs index a5b8ea67db..694aa4ebf7 100644 --- a/compiler/simplStg/RepType.hs +++ b/compiler/simplStg/RepType.hs @@ -228,9 +228,6 @@ layoutUbxSum sum_slots0 arg_slots0 = -- - Float slots: Shared between floating point types. -- -- - Void slots: Shared between void types. Not used in sums. --- --- TODO(michalt): We should probably introduce `SlotTy`s for 8-/16-/32-bit --- values, so that we can pack things more tightly. data SlotTy = PtrSlot | WordSlot | Word64Slot | FloatSlot | DoubleSlot deriving (Eq, Ord) -- Constructor order is important! If slot A could fit into slot B @@ -258,10 +255,8 @@ primRepSlot VoidRep = pprPanic "primRepSlot" (text "No slot for VoidRep") primRepSlot LiftedRep = PtrSlot primRepSlot UnliftedRep = PtrSlot primRepSlot IntRep = WordSlot -primRepSlot Int8Rep = WordSlot -primRepSlot Int64Rep = Word64Slot primRepSlot WordRep = WordSlot -primRepSlot Word8Rep = WordSlot +primRepSlot Int64Rep = Word64Slot primRepSlot Word64Rep = Word64Slot primRepSlot AddrRep = WordSlot primRepSlot FloatRep = FloatSlot |