From: reid <unknown>
Date: Sat, 3 Aug 2002 21:01:26 +0000 (+0000)
Subject: [project @ 2002-08-03 21:01:26 by reid]
X-Git-Tag: nhc98-1-18-release~916
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a770937629ecac1339ad79c8daf3d805be28808f;p=haskell-directory.git

[project @ 2002-08-03 21:01:26 by reid]
Final bout of changes to make things work with Hugs.

- I'd forgotten to include MachDep.h to the SIZEOF_* and ALIGNMENT_*
  macros (breaking GHC as well)
- I'd missed the use of one of GHC's type extensions.
---

diff --git a/Foreign/Storable.lhs b/Foreign/Storable.lhs
index 23841ad..6e2d376 100644
--- a/Foreign/Storable.lhs
+++ b/Foreign/Storable.lhs
@@ -36,6 +36,8 @@ import Foreign.Ptr
 import Foreign.C.Types
 import Foreign.C.TypesISO
 
+#include "MachDeps.h"
+
 #ifdef __GLASGOW_HASKELL__
 import GHC.Storable
 #elif defined(__HUGS__)
@@ -139,9 +141,13 @@ class Storable a where
    -- restrictions might apply; see 'peek'.
  
    -- circular default instances
+#ifdef __GLASGOW_HASKELL__
    peekElemOff = peekElemOff_ undefined
       where peekElemOff_ :: a -> Ptr a -> Int -> IO a
             peekElemOff_ undef ptr off = peekByteOff ptr (off * sizeOf undef)
+#else
+   peekElemOff ptr off = peekByteOff ptr (off * sizeOfPtr ptr undefined)
+#endif
    pokeElemOff ptr off val = pokeByteOff ptr (off * sizeOf val) val
 
    peekByteOff ptr off = peek (ptr `plusPtr` off)
@@ -151,6 +157,13 @@ class Storable a where
    poke ptr = pokeElemOff ptr 0
 \end{code}
 
+#ifndef __GLASGOW_HASKELL__
+\begin{code}
+sizeOfPtr :: Storable a => Ptr a -> a -> Int
+sizeOfPtr px x = sizeOf x
+\end{code}
+#endif
+
 System-dependent, but rather obvious instances
 
 \begin{code}
@@ -167,8 +180,13 @@ instance Storable (T) where {			\
     peekElemOff = read;				\
     pokeElemOff = write }
 
+#ifdef __GLASGOW_HASKELL__
 STORABLE(Char,SIZEOF_INT32,ALIGNMENT_INT32,
 	 readWideCharOffPtr,writeWideCharOffPtr)
+#elif defined(__HUGS__)
+STORABLE(Char,SIZEOF_CHAR,ALIGNMENT_HSCHAR,
+	 readCharOffPtr,writeCharOffPtr)
+#endif
 
 STORABLE(Int,SIZEOF_HSINT,ALIGNMENT_HSINT,
 	 readIntOffPtr,writeIntOffPtr)