From d0e4be1489f3f4bf7c17cddebf23bb45c6291823 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 12:56:27 +0000
Subject: [PATCH] [project @ 1998-08-14 12:56:27 by sof] Define Int64 and
Word64 types
---
ghc/lib/std/PrelCCall.lhs | 22 +++++++++++++++++++---
1 file changed, 19 insertions(+), 3 deletions(-)
diff --git a/ghc/lib/std/PrelCCall.lhs b/ghc/lib/std/PrelCCall.lhs
index 6f886ff7bda8..ed8416933827 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}
--
GitLab