diff options
Diffstat (limited to 'ghc/lib/std/PrelGHC.hi-boot.pp')
| -rw-r--r-- | ghc/lib/std/PrelGHC.hi-boot.pp | 70 |
1 files changed, 30 insertions, 40 deletions
diff --git a/ghc/lib/std/PrelGHC.hi-boot.pp b/ghc/lib/std/PrelGHC.hi-boot.pp index 3dbacc3085..5880ec1a8c 100644 --- a/ghc/lib/std/PrelGHC.hi-boot.pp +++ b/ghc/lib/std/PrelGHC.hi-boot.pp @@ -5,8 +5,7 @@ -- primitive operations and types that GHC knows about. --------------------------------------------------------------------------- -#include "config.h" -#include "Derived.h" +#include "MachDeps.h" __interface "std" PrelGHC 1 0 where @@ -116,25 +115,38 @@ __export PrelGHC int2Wordzh word2Intzh + narrow8Intzh + narrow16Intzh + narrow32Intzh + narrow8Wordzh + narrow16Wordzh + narrow32Wordzh + +#if WORD_SIZE_IN_BITS < 32 + Int32zh + Word32zh +#endif + +#if WORD_SIZE_IN_BITS < 64 Int64zh Word64zh - - intToInt8zh - intToInt16zh - intToInt32zh - wordToWord8zh - wordToWord16zh - wordToWord32zh +#endif Addrzh + nullAddrzh + plusAddrzh + minusAddrzh + remAddrzh +#if (WORD_SIZE_IN_BITS == 32 || WORD_SIZE_IN_BITS == 64) + addr2Intzh + int2Addrzh +#endif gtAddrzh geAddrzh eqAddrzh neAddrzh ltAddrzh leAddrzh - int2Addrzh - addr2Intzh Floatzh gtFloatzh @@ -213,7 +225,13 @@ __export PrelGHC integer2Wordzh int2Integerzh word2Integerzh -#ifdef SUPPORT_LONG_LONGS +#if WORD_SIZE_IN_BITS < 32 + integerToInt32zh + integerToWord32zh + int32ToIntegerzh + word32ToIntegerzh +#endif +#if WORD_SIZE_IN_BITS < 64 integerToInt64zh integerToWord64zh int64ToIntegerzh @@ -247,15 +265,11 @@ __export PrelGHC indexInt8Arrayzh indexInt16Arrayzh indexInt32Arrayzh -#ifdef SUPPORT_LONG_LONGS indexInt64Arrayzh -#endif indexWord8Arrayzh indexWord16Arrayzh indexWord32Arrayzh -#ifdef SUPPORT_LONG_LONGS indexWord64Arrayzh -#endif readArrayzh readCharArrayzh @@ -269,15 +283,11 @@ __export PrelGHC readInt8Arrayzh readInt16Arrayzh readInt32Arrayzh -#ifdef SUPPORT_LONG_LONGS readInt64Arrayzh -#endif readWord8Arrayzh readWord16Arrayzh readWord32Arrayzh -#ifdef SUPPORT_LONG_LONGS readWord64Arrayzh -#endif writeArrayzh writeCharArrayzh @@ -291,15 +301,11 @@ __export PrelGHC writeInt8Arrayzh writeInt16Arrayzh writeInt32Arrayzh -#ifdef SUPPORT_LONG_LONGS writeInt64Arrayzh -#endif writeWord8Arrayzh writeWord16Arrayzh writeWord32Arrayzh -#ifdef SUPPORT_LONG_LONGS writeWord64Arrayzh -#endif indexCharOffAddrzh indexWideCharOffAddrzh @@ -312,15 +318,11 @@ __export PrelGHC indexInt8OffAddrzh indexInt16OffAddrzh indexInt32OffAddrzh -#ifdef SUPPORT_LONG_LONGS indexInt64OffAddrzh -#endif indexWord8OffAddrzh indexWord16OffAddrzh indexWord32OffAddrzh -#ifdef SUPPORT_LONG_LONGS indexWord64OffAddrzh -#endif readCharOffAddrzh readWideCharOffAddrzh @@ -333,15 +335,11 @@ __export PrelGHC readInt8OffAddrzh readInt16OffAddrzh readInt32OffAddrzh -#ifdef SUPPORT_LONG_LONGS readInt64OffAddrzh -#endif readWord8OffAddrzh readWord16OffAddrzh readWord32OffAddrzh -#ifdef SUPPORT_LONG_LONGS readWord64OffAddrzh -#endif writeCharOffAddrzh writeWideCharOffAddrzh @@ -355,15 +353,11 @@ __export PrelGHC writeInt8OffAddrzh writeInt16OffAddrzh writeInt32OffAddrzh -#ifdef SUPPORT_LONG_LONGS writeInt64OffAddrzh -#endif writeWord8OffAddrzh writeWord16OffAddrzh writeWord32OffAddrzh -#ifdef SUPPORT_LONG_LONGS writeWord64OffAddrzh -#endif eqForeignObjzh indexCharOffForeignObjzh @@ -377,15 +371,11 @@ __export PrelGHC indexInt8OffForeignObjzh indexInt16OffForeignObjzh indexInt32OffForeignObjzh -#ifdef SUPPORT_LONG_LONGS indexInt64OffForeignObjzh -#endif indexWord8OffForeignObjzh indexWord16OffForeignObjzh indexWord32OffForeignObjzh -#ifdef SUPPORT_LONG_LONGS indexWord64OffForeignObjzh -#endif unsafeFreezzeArrayzh -- Note zz in the middle unsafeFreezzeByteArrayzh -- Ditto |