Commit 46e7ae64 authored by dterei's avatar dterei
Browse files

LLVM: Fix test 'ffi005' under linux-x64

parent 20ea4cf4
......@@ -244,10 +244,10 @@ genCall env target res args ret = do
Nothing Nothing False
return (env1, fun, nilOL, [])
Just _ -> do
Just ty' -> do
-- label in module but not function pointer, convert
let fty@(LMFunction sig) = funTy name
let fun = LMGlobalVar name fty (funcLinkage sig)
let fun = LMGlobalVar name (pLift ty') (funcLinkage sig)
Nothing Nothing False
(v1, s1) <- doExpr (pLift fty)
$ Cast LM_Bitcast fun (pLift fty)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment