[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