Convey target triple to LLVM earlier
commit63b69ff6237b2770156dd47831693dc6101a2207
authorBenjamin Saunders <besaunde@sfu.ca>
dateFri 5 Jul 2013, 13:54 (13 years ago)
parentb69a649
src/IRTS/CodegenLLVM.hs+1−1
@@ -235,7 +235,7 @@ getStdOut = ConstantOperand . C.GlobalReference . Name . stdoutName <$> asks tar
235235getStdErr = ConstantOperand . C.GlobalReference . Name . stderrName <$> asks target
236236
237237codegen :: 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)
239239 where
240240 (gendefs, _, globals) = runRWS (mapM cgDef defs) tgt 0
241241