) where
+#ifdef __NHC__
+import NHC.FFI (Storable(..))
+#else
+
import Control.Monad ( liftM )
#include "MachDeps.h"
import GHC.Err
import GHC.IOBase
import GHC.Base
-#elif defined(__HUGS__)
+#else
+import Data.Int
+import Data.Word
+import Foreign.Ptr
+import Foreign.StablePtr
+#endif
+
+#ifdef __HUGS__
+import Hugs.Prelude
import Hugs.Storable
#endif
STORABLE(Int64,SIZEOF_INT64,ALIGNMENT_INT64,
readInt64OffPtr,writeInt64OffPtr)
+
+#endif