From 46e7ae64c37e193ae57fc8646602cc94a7caf573 Mon Sep 17 00:00:00 2001 From: David Terei Date: Mon, 28 Jun 2010 15:53:55 +0000 Subject: [PATCH] LLVM: Fix test 'ffi005' under linux-x64 --- compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 2ebd5d9..0abc618 100644 --- 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) -- 1.7.10.4