From: andy <unknown>
Date: Thu, 4 Nov 1999 00:32:30 +0000 (+0000)
Subject: [project @ 1999-11-04 00:32:30 by andy]
X-Git-Tag: Approximately_9120_patches~5603
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5b4a7c8dde1e820feb275092ffc40d7b8f91ebf6;p=ghc-hetmet.git

[project @ 1999-11-04 00:32:30 by andy]
Modifing these libs so that they also work with StgHugs.
---

diff --git a/ghc/lib/exts/Addr.lhs b/ghc/lib/exts/Addr.lhs
index 63d5cc5..b8db97b 100644
--- a/ghc/lib/exts/Addr.lhs
+++ b/ghc/lib/exts/Addr.lhs
@@ -23,14 +23,12 @@ module Addr
 	    
 	) where
 
-#ifdef __HUGS__
-import PreludeBuiltin
-#else
+import NumExts
+#ifndef __HUGS__
 import PrelAddr
 import PrelForeign
 import PrelStable
 import PrelBase
-import NumExts
 import PrelIOBase ( IO(..) )
 import Word	( indexWord8OffAddr,  indexWord16OffAddr
 		, indexWord32OffAddr, indexWord64OffAddr
@@ -52,6 +50,16 @@ import Int	( indexInt8OffAddr,  indexInt16OffAddr
 \end{code}
 
 \begin{code}
+#ifdef __HUGS__
+instance Show Addr where
+   showsPrec p addr rs = pad_out (showHex int "") rs
+     where
+        -- want 0s prefixed to pad it out to a fixed length.
+       pad_out ('0':'x':ls) rs = 
+	  '0':'x':(replicate (2*ADDR_SIZE_IN_BYTES - length ls) '0') 
+			++ ls ++ rs
+       int = primAddrToInt addr
+#else
 instance Show Addr where
    showsPrec p (A# a) rs = pad_out (showHex int "") rs
      where
@@ -62,7 +70,7 @@ instance Show Addr where
        int = 
 	case word2Integer# (int2Word# (addr2Int# a)) of
 	  (# s, d #) -> J# s d
-
+#endif
 \end{code}
 
 
@@ -93,12 +101,13 @@ indexDoubleOffAddr :: Addr -> Int -> Double
 indexStablePtrOffAddr :: Addr -> Int -> StablePtr a
 
 #ifdef __HUGS__
-indexCharOffAddr   = primIndexCharOffAddr  
-indexIntOffAddr    = primIndexIntOffAddr   
-indexWordOffAddr   = primIndexWordOffAddr  
-indexAddrOffAddr   = primIndexAddrOffAddr  
-indexFloatOffAddr  = primIndexFloatOffAddr 
-indexDoubleOffAddr = primIndexDoubleOffAddr
+indexCharOffAddr   = error "TODO: indexCharOffAddr  "
+indexIntOffAddr    = error "TODO: indexIntOffAddr   "
+indexWordOffAddr   = error "TODO: indexWordOffAddr  "
+indexAddrOffAddr   = error "TODO: indexAddrOffAddr  "
+indexFloatOffAddr  = error "TODO: indexFloatOffAddr "
+indexDoubleOffAddr = error "TODO: indexDoubleOffAddr"
+indexStablePtrOffAddr = error "TODO: indexStablePtrOffAddr"
 #else
 indexCharOffAddr (A# addr#) n
   = case n  	    		    	of { I# n# ->
@@ -144,12 +153,13 @@ readDoubleOffAddr  :: Addr -> Int -> IO Double
 readStablePtrOffAddr  :: Addr -> Int -> IO (StablePtr a)
 
 #ifdef __HUGS__
-readCharOffAddr    = primReadCharOffAddr  
-readIntOffAddr     = primReadIntOffAddr   
-readWordOffAddr    = primReadWordOffAddr  
-readAddrOffAddr    = primReadAddrOffAddr  
-readFloatOffAddr   = primReadFloatOffAddr 
-readDoubleOffAddr  = primReadDoubleOffAddr
+readCharOffAddr      = error "TODO: readCharOffAddr     "
+readIntOffAddr       = error "TODO: readIntOffAddr      "
+readWordOffAddr      = error "TODO: readWordOffAddr     "
+readAddrOffAddr      = error "TODO: readAddrOffAddr     "
+readFloatOffAddr     = error "TODO: readFloatOffAddr    "
+readDoubleOffAddr    = error "TODO: readDoubleOffAddr   "
+readStablePtrOffAddr = error "TODO: readStablePtrOffAddr"
 #else
 readCharOffAddr a i = case indexCharOffAddr a i of { C# o# -> return (C# o#) }
 readIntOffAddr a i  = case indexIntOffAddr a i of { I# o# -> return (I# o#) }
@@ -171,12 +181,12 @@ writeFloatOffAddr  :: Addr -> Int -> Float  -> IO ()
 writeDoubleOffAddr :: Addr -> Int -> Double -> IO ()
 
 #ifdef __HUGS__
-writeCharOffAddr    = primWriteCharOffAddr  
-writeIntOffAddr     = primWriteIntOffAddr   
-writeWordOffAddr    = primWriteWordOffAddr  
-writeAddrOffAddr    = primWriteAddrOffAddr  
-writeFloatOffAddr   = primWriteFloatOffAddr 
-writeDoubleOffAddr  = primWriteDoubleOffAddr
+writeCharOffAddr    = error "TODO: writeCharOffAddr   "
+writeIntOffAddr     = error "TODO: writeIntOffAddr    "
+writeWordOffAddr    = error "TODO: writeWordOffAddr   "
+writeAddrOffAddr    = error "TODO: writeAddrOffAddr   "
+writeFloatOffAddr   = error "TODO: writeFloatOffAddr  "
+writeDoubleOffAddr  = error "TODO: writeDoubleOffAddr "
 #else
 writeCharOffAddr (A# a#) (I# i#) (C# c#) = IO $ \ s# ->
       case (writeCharOffAddr#  a# i# c# s#) of s2# -> (# s2#, () #)
diff --git a/ghc/lib/exts/NumExts.lhs b/ghc/lib/exts/NumExts.lhs
index 6371651..35bbcbe 100644
--- a/ghc/lib/exts/NumExts.lhs
+++ b/ghc/lib/exts/NumExts.lhs
@@ -28,7 +28,6 @@ module NumExts
 
 import Char (ord, chr)
 #ifdef __HUGS__
-import PreludeBuiltin
 ord_0 = ord '0'
 #else
 import PrelNum ( ord_0 )
@@ -106,4 +105,13 @@ from @NumExts@.
 \begin{code}
 showListWith :: (a -> ShowS) -> [a] -> ShowS 
 showListWith = showList__
+#ifdef __HUGS__
+showList__ :: (a -> ShowS) ->  [a] -> ShowS
+showList__ _     []     s = "[]" ++ s
+showList__ showx (x:xs) s = '[' : showx x (showl xs)
+  where
+    showl []     = ']' : s
+    showl (y:ys) = ',' : showx y (showl ys)
+#endif
 \end{code}
+