projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
20ea4cf
)
LLVM: Fix test 'ffi005' under linux-x64
author
David Terei
<davidterei@gmail.com>
Mon, 28 Jun 2010 15:53:55 +0000
(15:53 +0000)
committer
David Terei
<davidterei@gmail.com>
Mon, 28 Jun 2010 15:53:55 +0000
(15:53 +0000)
compiler/llvmGen/LlvmCodeGen/CodeGen.hs
patch
|
blob
|
history
diff --git
a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index
2ebd5d9
..
0abc618
100644
(file)
--- a/
compiler/llvmGen/LlvmCodeGen/CodeGen.hs
+++ b/
compiler/llvmGen/LlvmCodeGen/CodeGen.hs
@@
-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)