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

[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
--- 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}