projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove some duplication of C flags
[ghc-hetmet.git]
/
compiler
/
main
/
SysTools.lhs
diff --git
a/compiler/main/SysTools.lhs
b/compiler/main/SysTools.lhs
index
29889db
..
12b73d3
100644
(file)
--- a/
compiler/main/SysTools.lhs
+++ b/
compiler/main/SysTools.lhs
@@
-18,7
+18,6
@@
module SysTools (
runAs, runLink, -- [Option] -> IO ()
runMkDLL,
runWindres,
runAs, runLink, -- [Option] -> IO ()
runMkDLL,
runWindres,
- runLlvmAs,
runLlvmOpt,
runLlvmLlc,
runLlvmOpt,
runLlvmLlc,
@@
-223,8
+222,7
@@
initSysTools mbMinusB dflags0
ld_prog = gcc_prog
-- figure out llvm location. (TODO: Acutally implement).
ld_prog = gcc_prog
-- figure out llvm location. (TODO: Acutally implement).
- ; let la_prog = "llvm-as"
- lc_prog = "llc"
+ ; let lc_prog = "llc"
lo_prog = "opt"
; return dflags1{
lo_prog = "opt"
; return dflags1{
@@
-244,7
+242,6
@@
initSysTools mbMinusB dflags0
pgm_T = touch_path,
pgm_sysman = top_dir ++ "/ghc/rts/parallel/SysMan",
pgm_windres = windres_path,
pgm_T = touch_path,
pgm_sysman = top_dir ++ "/ghc/rts/parallel/SysMan",
pgm_windres = windres_path,
- pgm_la = (la_prog,[]),
pgm_lo = (lo_prog,[]),
pgm_lc = (lc_prog,[])
-- Hans: this isn't right in general, but you can
pgm_lo = (lo_prog,[]),
pgm_lc = (lc_prog,[])
-- Hans: this isn't right in general, but you can
@@
-392,11
+389,6
@@
runAs dflags args = do
mb_env <- getGccEnv args1
runSomethingFiltered dflags id "Assembler" p args1 mb_env
mb_env <- getGccEnv args1
runSomethingFiltered dflags id "Assembler" p args1 mb_env
-runLlvmAs :: DynFlags -> [Option] -> IO ()
-runLlvmAs dflags args = do
- let (p,args0) = pgm_la dflags
- runSomething dflags "LLVM Assembler" p (args0++args)
-
runLlvmOpt :: DynFlags -> [Option] -> IO ()
runLlvmOpt dflags args = do
let (p,args0) = pgm_lo dflags
runLlvmOpt :: DynFlags -> [Option] -> IO ()
runLlvmOpt dflags args = do
let (p,args0) = pgm_lo dflags