grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-10-03 19:17:42 +03:00
Code Issues Projects Releases Wiki Activity

Fix ffi linking for primops in interpreter

Browse Source 
No need to try and use libffi with primops as they are defined in haskell in PureEvalPlugin
This commit is contained in:
Zoe Stafford 2022-01-15 11:46:03 +00:00
parent 0ac74dc2da
commit 8ac99ab4a7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
grin/src/Reducer/Pure.hs
View File

@ -185,7 +185,9 @@ evalExp env = \case
createForeignFns :: [External] -> Map Name (FunPtr ()) -> IO (Map Name (FunPtr ()))
createForeignFns [] acc = pure acc
createForeignFns exts@(ext : _) acc = case find (\(os, _) -> toString os == Info.os) (eLibs ext) of
createForeignFns exts@(ext : _) acc
| eKind ext == PrimOp = createForeignFns (tail exts) acc
| otherwise = case find (\(os, _) -> toString os == Info.os) (eLibs ext) of
Nothing -> do
ptr <- dlsym Default $ Text.unpack $ unNM $ eName ext
createForeignFns (tail exts) $ Map.insert (eName ext) ptr acc