From: sof <unknown>
Date: Fri, 14 Aug 1998 12:51:05 +0000 (+0000)
Subject: [project @ 1998-08-14 12:51:05 by sof]
X-Git-Tag: Approx_2487_patches~375
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=463a8750486faf461c88693870240b4989f3d0b3;p=ghc-hetmet.git

[project @ 1998-08-14 12:51:05 by sof]
A few more primops (Word64 and Int64 support)
---

diff --git a/ghc/lib/std/PrelGHC.hi-boot b/ghc/lib/std/PrelGHC.hi-boot
index bbc80a3..92638e5 100644
--- a/ghc/lib/std/PrelGHC.hi-boot
+++ b/ghc/lib/std/PrelGHC.hi-boot
@@ -18,7 +18,7 @@ PrelGHC
 -- void CAF is defined in PrelBase
 
 -- Magical assert thingy
-  assert__
+  assert
 
 -- I/O primitives
   RealWorld
@@ -93,6 +93,10 @@ PrelGHC
   int2Word#
   word2Int#
   
+  Word64#
+
+  Int64#
+
   Addr#
   gtAddr#
   geAddr#
@@ -175,6 +179,10 @@ PrelGHC
   integer2Word#
   int2Integer#
   word2Integer#
+  integerToInt64#
+  integerToWord64#
+  int64ToInteger#
+  word64ToInteger#
   
   Array#
   ByteArray#
@@ -199,6 +207,8 @@ PrelGHC
   indexFloatArray#
   indexDoubleArray#
   indexAddrArray#
+  indexInt64Array#
+  indexWord64Array#
   
 --  indexOffAddr#
 indexCharOffAddr#
@@ -207,6 +217,17 @@ indexWordOffAddr#
 indexAddrOffAddr#
 indexFloatOffAddr#
 indexDoubleOffAddr#
+indexInt64OffAddr#
+indexWord64OffAddr#
+
+writeCharOffAddr#
+writeIntOffAddr#
+writeWordOffAddr#
+writeAddrOffAddr#
+writeFloatOffAddr#
+writeDoubleOffAddr#
+writeInt64OffAddr#
+writeWord64OffAddr#
 
 --  indexOffForeignObj#
 indexCharOffForeignObj#
@@ -215,6 +236,8 @@ indexWordOffForeignObj#
 indexAddrOffForeignObj#
 indexFloatOffForeignObj#
 indexDoubleOffForeignObj#
+indexInt64OffForeignObj#
+indexWord64OffForeignObj#
   
   writeArray#
   writeCharArray#
@@ -223,6 +246,8 @@ indexDoubleOffForeignObj#
   writeFloatArray#
   writeDoubleArray#
   writeAddrArray#
+  writeInt64Array#
+  writeWord64Array#
   
   readArray#
   readCharArray#
@@ -231,6 +256,8 @@ indexDoubleOffForeignObj#
   readFloatArray#
   readDoubleArray#
   readAddrArray#
+  readInt64Array#
+  readWord64Array#
   
   unsafeFreezeArray#
   unsafeFreezeByteArray#
@@ -254,3 +281,4 @@ _declarations_
 
 1 class CCallable a :: ** ;
 1 class CReturnable a :: ** ;
+1 assert _:_ _forall_ [a] => PrelBase.Bool -> a -> a ;;