[Fencommits] fenfire-hs: remove explicit types from the uses of malloc as tasteless. helps amd64 too

Tuukka Hastrup Tuukka.Hastrup at iki.fi
Tue May 8 21:15:10 EEST 2007


Tue May  8 21:13:26 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * remove explicit types from the uses of malloc as tasteless. helps amd64 too
diff -rN -u old-fenfire-hs/Fenfire/Raptor.chs new-fenfire-hs/Fenfire/Raptor.chs
--- old-fenfire-hs/Fenfire/Raptor.chs	2007-05-08 21:15:09.000000000 +0300
+++ new-fenfire-hs/Fenfire/Raptor.chs	2007-05-08 21:15:09.000000000 +0300
@@ -25,7 +25,7 @@
 import Foreign (Ptr, FunPtr, IntPtr, Storable(pokeByteOff, peekByteOff), 
                 allocaBytes, nullPtr, castPtr, freeHaskellFunPtr, malloc, peek)
 import Foreign.C (CString, castCharToCChar, CFile,
-                  CSize, CInt, CUInt, CUChar, CChar, peekCStringLen)
+                  CSize, CULong, CInt, CUInt, CUChar, CChar, peekCStringLen)
                   
 import Data.ByteString (ByteString, useAsCStringLen, copyCStringLen)
 
@@ -221,8 +221,8 @@
   serializer <- withUTFString "turtle" {# call new_serializer #}
   when (unSerializer serializer == nullPtr) $ fail "serializer is null"
   
-  result_str :: Ptr (Ptr ()) <- malloc
-  result_len :: Ptr CUInt    <- malloc
+  result_str <- malloc
+  result_len <- malloc
   
   base_uri <- withUTFString baseURI new_uri
 




More information about the Fencommits mailing list