diff options
| author | Moritz Angermann <moritz.angermann@gmail.com> | 2020-10-22 20:56:53 +0800 |
|---|---|---|
| committer | Moritz Angermann <moritz.angermann@gmail.com> | 2020-10-22 20:56:53 +0800 |
| commit | f3cb32961a5bc800742dd43c326616189c51a126 (patch) | |
| tree | 50ca672c8e99e99e75041147d05379d059cc4d22 | |
| parent | 689c54de7a85d3d358ca2d5d17b129ae16148e26 (diff) | |
| download | haskell-f3cb32961a5bc800742dd43c326616189c51a126.tar.gz | |
Int has Word size in Haskell.
| -rw-r--r-- | compiler/GHC/Cmm/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Cmm/Utils.hs b/compiler/GHC/Cmm/Utils.hs index 443b36b48c..b7fc15e79f 100644 --- a/compiler/GHC/Cmm/Utils.hs +++ b/compiler/GHC/Cmm/Utils.hs @@ -14,7 +14,7 @@ module GHC.Cmm.Utils( -- CmmType - primRepCmmType, slotCmmType, + primRepCmmType, slotCmmType, typeCmmType, typeForeignHint, primRepForeignHint, -- CmmLit @@ -144,7 +144,7 @@ primRepForeignHint :: Platform -> PrimRep -> ForeignHint primRepForeignHint _platform VoidRep = panic "primRepForeignHint:VoidRep" primRepForeignHint _platform LiftedRep = AddrHint primRepForeignHint _platform UnliftedRep = AddrHint -primRepForeignHint platform IntRep = SignedHint (cIntWidth platform) +primRepForeignHint platform IntRep = SignedHint (wordWidth platform) primRepForeignHint _platform Int8Rep = SignedHint W8 primRepForeignHint _platform Int16Rep = SignedHint W16 primRepForeignHint _platform Int32Rep = SignedHint W32 |