[project @ 1998-08-14 12:56:27 by sof]

Define Int64 and Word64 types

diff --git a/ghc/lib/std/PrelCCall.lhs b/ghc/lib/std/PrelCCall.lhs
index 6f886ff..ed84169 100644 (file)
--- a/ghc/lib/std/PrelCCall.lhs
+++ b/ghc/lib/std/PrelCCall.lhs
@@ -8,8 +8,12 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 module PrelCCall (
-       CCallable(..), CReturnable(..),
-       Word(..)
+       CCallable(..),
+       CReturnable(..),
+
+       Word(..),
+       Word64(..),
+       Int64(..)
    ) where
 
 import PrelBase
@@ -42,12 +46,24 @@ instance CCallable   Double
 instance CCallable   Double#
 instance CReturnable Double
 
-data Word = W# Word#   deriving (Eq, Ord) -- Glasgow extension
+data Word = W# Word#      deriving (Eq, Ord) -- Glasgow extension
 
 instance CCallable Word
 instance CCallable Word#
 instance CReturnable Word
 
+
+data Word64 = W64# Word64# --deriving (Eq, Ord) -- Glasgow extension
+data Int64  = I64# Int64#  --deriving (Eq, Ord) -- Glasgow extension
+
+instance CCallable   Word64
+instance CCallable   Word64#
+instance CReturnable Word64
+
+instance CCallable   Int64
+instance CCallable   Int64#
+instance CReturnable Int64
+
 instance CReturnable () -- Why, exactly?
 \end{code}