make the call unsafe, so as to block the GC. /!\ hack

vincenthz · Jan 10, 2015 · 9e05e82 · 9e05e82
1 parent c96da1f
commit 9e05e82
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Crypto/Cipher/AES.hs b/Crypto/Cipher/AES.hs
@@ -617,7 +617,7 @@ foreign import ccall "aes.h aes_decrypt_xts"
 foreign import ccall "aes.h aes_gen_ctr"
     c_aes_gen_ctr :: CString -> Ptr AES -> Ptr Word8 -> CUInt -> IO ()
 
-foreign import ccall "aes.h aes_gen_ctr_cont"
+foreign import ccall unsafe "aes.h aes_gen_ctr_cont"
     c_aes_gen_ctr_cont :: CString -> Ptr AES -> Ptr Word8 -> CUInt -> IO ()
 
 foreign import ccall "aes.h aes_encrypt_ctr"