[add storable instances for float and double. expose Addr data constructor
John Meacham <john@repetae.net>**20080319211009] addfile ./lib/base/Jhc/Inst/Storable.hs
hunk ./lib/base/Data/IORef.hs 37
-foreign import primitive eqRef__ :: Ref__ a -> Ref__ a -> Bool
+--foreign import primitive eqRef__ :: Ref__ a -> Ref__ a -> Bool
hunk ./lib/base/Data/IORef.hs 39
-instance Eq (IORef a) where
-    (IORef x) == (IORef y) = eqRef__ x y
+--instance Eq (IORef a) where
+--    (IORef x) == (IORef y) = eqRef__ x y
hunk ./lib/base/Foreign/Storable.m4 11
+    alignment _ = boxInt (alignmentOf$2 0#)
hunk ./lib/base/Foreign/Storable.m4 17
+foreign import primitive "alignmentOf.$3" alignmentOf$2 :: $2 -> Int__
hunk ./lib/base/Jhc/Addr.hs 7
-    Addr(),
-    FunAddr(),
+    Addr(..),
+    FunAddr(..),
hunk ./lib/base/Jhc/Inst/Storable.hs 1
+{-# OPTIONS_JHC -fm4 -N -fffi -funboxed-tuples -funboxed-values #-}
+module Jhc.Inst.Storable where
+
+m4_include(Foreign/Storable.m4)
+
+import Jhc.Types
+import Jhc.Float
+import Foreign.Storable
+import Jhc.Prim
+import Jhc.Basics
+import Jhc.Addr
+import Jhc.Int
+import Jhc.IO
+
+
+INST_STORABLE(Float,Float32_,fbits<32>)
+INST_STORABLE(Double,Float64_,fbits<64>)
+
+
hunk ./lib/base/Prelude.hs 66
+import Jhc.Inst.Storable