Commit d0e4be14 authored by sof's avatar sof
Browse files

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

Define Int64 and Word64 types
parent e7942525
...@@ -8,8 +8,12 @@ ...@@ -8,8 +8,12 @@
{-# OPTIONS -fno-implicit-prelude #-} {-# OPTIONS -fno-implicit-prelude #-}
module PrelCCall ( module PrelCCall (
CCallable(..), CReturnable(..), CCallable(..),
Word(..) CReturnable(..),
Word(..),
Word64(..),
Int64(..)
) where ) where
import PrelBase import PrelBase
...@@ -42,12 +46,24 @@ instance CCallable Double ...@@ -42,12 +46,24 @@ instance CCallable Double
instance CCallable Double# instance CCallable Double#
instance CReturnable 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 CCallable Word# instance CCallable Word#
instance CReturnable 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? instance CReturnable () -- Why, exactly?
\end{code} \end{code}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment