[project @ 1998-12-02 13:17:09 by simonm]

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

diff --git a/ghc/lib/std/PrelCCall.lhs b/ghc/lib/std/PrelCCall.lhs
index ed84169..5526699 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
@@ -46,24 +42,6 @@ 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}