diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-14 12:03:17 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-14 12:03:46 +0100 |
commit | eecd53bcdc307726fb4bb058f3da013b72386137 (patch) | |
tree | bd7ec3f2c2cb764c1e5189100a12246eb6c1fc1c /compiler/basicTypes | |
parent | e0e4288b2457c668319ce0581249c683573c666c (diff) | |
download | haskell-eecd53bcdc307726fb4bb058f3da013b72386137.tar.gz |
Fix integer stuff (fixes Trac #5485)
In particular, use mkConApp when building the (S# i)
constructors in CorePrep
Diffstat (limited to 'compiler/basicTypes')
-rw-r--r-- | compiler/basicTypes/MkId.lhs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs index 2352518f09..4c3a84f815 100644 --- a/compiler/basicTypes/MkId.lhs +++ b/compiler/basicTypes/MkId.lhs @@ -28,14 +28,13 @@ module MkId ( voidArgId, nullAddrId, seqId, lazyId, lazyIdKey, coercionTokenId, - -- integer-gmp only Id: - integerGmpSId, -- integer-simple only Id's: integerSimpleNaughtId, integerSimplePositiveId, integerSimpleNegativeId, digitsNoneId, digitsSomeId, + -- Common Integer Id's: shiftLIntegerId, negateIntegerId, @@ -1059,11 +1058,6 @@ coercionTokenId -- Used to replace Coercion terms when we go to STG (mkTyConApp eqPrimTyCon [unitTy, unitTy]) noCafIdInfo --- integer-gmp only Id: -integerGmpSId :: Id -integerGmpSId = mkVanillaGlobal integerGmpSDataConName - (mkFunTy intPrimTy integerTy) - -- integer-simple only Id's: integerSimpleNaughtId, integerSimplePositiveId, integerSimpleNegativeId, digitsNoneId, digitsSomeId :: Id |