[project @ 1999-12-20 10:18:36 by simonpj]

[ghc-hetmet.git] / ghc / lib / std / PrelCCall.lhs

diff --git a/ghc/lib/std/PrelCCall.lhs b/ghc/lib/std/PrelCCall.lhs
index ed84169..d8c1eb4 100644 (file)
--- a/ghc/lib/std/PrelCCall.lhs
+++ b/ghc/lib/std/PrelCCall.lhs
@@ -9,11 +9,7 @@
 
 module PrelCCall (
        CCallable(..),
-       CReturnable(..),
-
-       Word(..),
-       Word64(..),
-       Int64(..)
+       CReturnable(..)
    ) where
 
 import PrelBase
@@ -28,42 +24,20 @@ import PrelGHC
 
 \begin{code}
 instance CCallable Char
-instance CCallable   Char#
 instance CReturnable Char
 
 instance CCallable   Int
-instance CCallable   Int#
 instance CReturnable Int
 
 -- DsCCall knows how to pass strings...
 instance CCallable   [Char]
 
 instance CCallable   Float
-instance CCallable   Float#
 instance CReturnable Float
 
 instance CCallable   Double
-instance CCallable   Double#
 instance CReturnable Double
 
-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}