git.iko.soy/Idris-dev
on master help sign in
Convey target triple to LLVM earlier
63b69ffBenjamin Saunders
src/IRTS/CodegenLLVM.hs+1−1
compare with master
unifiedsplit
@@ -235,7 +235,7 @@ getStdOut = ConstantOperand . C.GlobalReference . Name . stdoutName <$> asks tar
235getStdErr = ConstantOperand . C.GlobalReference . Name . stderrName <$> asks target
235getStdErr = ConstantOperand . C.GlobalReference . Name . stderrName <$> asks target
236
236
237codegen :: Target -> [SDecl] -> Module
237codegen :: Target -> [SDecl] -> Module
238−codegen tgt defs = Module "idris" (Just . dataLayout $ tgt) Nothing (initDefs tgt ++ globals ++ gendefs)
238+codegen tgt defs = Module "idris" (Just . dataLayout $ tgt) (Just . triple $ tgt) (initDefs tgt ++ globals ++ gendefs)
239 where
239 where
240 (gendefs, _, globals) = runRWS (mapM cgDef defs) tgt 0
240 (gendefs, _, globals) = runRWS (mapM cgDef defs) tgt 0
241
241