[make Prelude not depend on Monad or Maybe for faster building.
John Meacham <john@repetae.net>**20060308091452] hunk ./lib/Foreign/Marshal/Alloc.hs 23
-import Monad
hunk ./lib/Foreign/Marshal/Array.hs 54
-import Monad
hunk ./lib/Foreign/Marshal/Array.hs 127
-pokeArray ptr vals =  zipWithM_ (pokeElemOff ptr) [0..] vals
+pokeArray ptr vals =  zipWithM_ (pokeElemOff ptr) [0..] vals where
+    zipWithM_         :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m ()
+    zipWithM_ f xs ys =  sequence_ (zipWith f xs ys)
hunk ./lib/Foreign/Marshal/Utils.hs 50
-import Maybe
hunk ./lib/Jhc/JumpPoint.hs 4
-import Foreign.Ptr
-import Foreign.Marshal.Alloc
+import Jhc.Addr
hunk ./lib/Jhc/JumpPoint.hs 6
-newtype JumpPoint = JumpPoint (Ptr JumpPoint)
+newtype JumpPoint = JumpPoint Addr
hunk ./lib/Jhc/JumpPoint.hs 16
-    free p
+    _free p
hunk ./lib/Jhc/JumpPoint.hs 26
-foreign import ccall "malloc.h malloc" _malloc :: Int -> IO (Ptr a)
+foreign import ccall "malloc.h malloc" _malloc :: Int -> IO Addr
+foreign import ccall "malloc.h free" _free :: Addr -> IO ()