Skip to content

Commit

Permalink
Revert "declare all LLVM function imports unsafe: executing thread wi…
Browse files Browse the repository at this point in the history
…ll block"

This reverts commit 207d6b1.

The branch crashed in a proof with 16x parallelism, trying with `Safe` calls again to narrow down why.
  • Loading branch information
jberthold committed Dec 18, 2024
1 parent 207d6b1 commit 2144efc
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions booster/library/Booster/LLVM/TH.hs
Original file line number Diff line number Diff line change
Expand Up @@ -89,9 +89,9 @@ foreignImport name' ty' = do
libHandle <- TH.newName "libHandle"

pure
[ -- foreign import ccall unsafe "dynamic" <camel_name>Unwrap :: FunPtr <ty> -> <ty>
[ -- foreign import ccall "dynamic" <camel_name>Unwrap :: FunPtr <ty> -> <ty>
TH.ForeignD $
TH.ImportF TH.CCall TH.Unsafe "dynamic" nameUnwrap $
TH.ImportF TH.CCall TH.Safe "dynamic" nameUnwrap $
TH.AppT (TH.AppT TH.ArrowT $ TH.AppT (TH.ConT ''FunPtr) ty) ty
, -- <camel_name>FunPtr :: ReaderT DL IO (FunPtr <ty>)
TH.SigD
Expand Down

0 comments on commit 2144efc

Please sign in to comment.