From 09e6aba8000ccf52943ada4fb9ac76e0d93a202f Mon Sep 17 00:00:00 2001 From: David Terei Date: Mon, 21 Jun 2010 12:52:20 +0000 Subject: Reduce the number of passes over the cmm in llvm BE --- compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs') diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index f5c71ab2b9..13fe123f48 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -275,7 +275,7 @@ genCall env target res args ret = do CmmPrim mop -> do let name = cmmPrimOpFunctions mop let lbl = mkForeignLabel name Nothing - ForeignLabelInExternalPackage IsFunction + ForeignLabelInExternalPackage IsFunction getFunPtr $ CmmCallee (CmmLit (CmmLabel lbl)) CCallConv (env2, fptr, stmts2, top2) <- getFunPtr target @@ -335,7 +335,8 @@ arg_vars env (CmmHinted e AddrHint:rest) (vars, stmts, tops) ++ show a ++ ")" (v2, s1) <- doExpr i8Ptr $ Cast op v1 i8Ptr - arg_vars env' rest (vars ++ [v2], stmts `appOL` stmts' `snocOL` s1, tops ++ top') + arg_vars env' rest (vars ++ [v2], stmts `appOL` stmts' `snocOL` s1, + tops ++ top') arg_vars env (CmmHinted e _:rest) (vars, stmts, tops) = do (env', v1, stmts', top') <- exprToVar env e -- cgit v1.2.1