[fix instance of U2U primitive not being processed properly
John Meacham <john@repetae.net>**20090905042149
 Ignore-this: 24858b196abd2eb0d1362edf16c85894
] hunk ./lib/jhc/Foreign/Ptr.hs 29
+import Jhc.Types
hunk ./lib/jhc/Foreign/Ptr.hs 56
-foreign import primitive "U2U" ptrToWordPtr :: Ptr a -> WordPtr
-foreign import primitive "U2U" wordPtrToPtr :: WordPtr -> Ptr a
+--foreign import primitive "U2U" ptrToWordPtr :: Ptr a -> WordPtr
+--foreign import primitive "U2U" wordPtrToPtr :: WordPtr -> Ptr a
+
+ptrToWordPtr :: Ptr a -> WordPtr
+ptrToWordPtr (Ptr w) = boxWordPtr w
+
+wordPtrToPtr :: WordPtr -> Ptr a
+wordPtrToPtr w = Ptr (unboxWordPtr w)
+
+foreign import primitive "box" boxWordPtr :: BitsPtr_ -> WordPtr
+foreign import primitive "unbox" unboxWordPtr :: WordPtr -> BitsPtr_
+