projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8e009ec
)
[project @ 2000-10-11 16:06:38 by simonmar]
author
simonmar
<unknown>
Wed, 11 Oct 2000 16:06:38 +0000
(16:06 +0000)
committer
simonmar
<unknown>
Wed, 11 Oct 2000 16:06:38 +0000
(16:06 +0000)
dead code removal
ghc/driver/Main.hs
patch
|
blob
|
history
diff --git
a/ghc/driver/Main.hs
b/ghc/driver/Main.hs
index
77e45e3
..
2e235bf
100644
(file)
--- a/
ghc/driver/Main.hs
+++ b/
ghc/driver/Main.hs
@@
-1,6
+1,6
@@
{-# OPTIONS -W -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
{-# OPTIONS -W -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.67 2000/10/11 10:21:10 rrt Exp $
+-- $Id: Main.hs,v 1.68 2000/10/11 16:06:38 simonmar Exp $
--
-- GHC Driver program
--
--
-- GHC Driver program
--
@@
-866,16
+866,14
@@
way_details =
[ ]),
(WayPar, Way "mp" "Parallel"
[ ]),
(WayPar, Way "mp" "Parallel"
- [ "-fstack-check"
- , "-fparallel"
+ [ "-fparallel"
, "-D__PARALLEL_HASKELL__"
, "-optc-DPAR"
, "-package concurrent"
, "-fvia-C" ]),
(WayGran, Way "mg" "Gransim"
, "-D__PARALLEL_HASKELL__"
, "-optc-DPAR"
, "-package concurrent"
, "-fvia-C" ]),
(WayGran, Way "mg" "Gransim"
- [ "-fstack-check"
- , "-fgransim"
+ [ "-fgransim"
, "-D__GRANSIM__"
, "-optc-DGRAN"
, "-package concurrent"
, "-D__GRANSIM__"
, "-optc-DGRAN"
, "-package concurrent"
@@
-1756,13
+1754,6
@@
run_phase Hsc basename suff input_fn output_fn
-- build the hsc command line
hsc_opts <- build_hsc_opts
-- build the hsc command line
hsc_opts <- build_hsc_opts
- doing_hi <- readIORef produceHi
- tmp_hi_file <- if doing_hi
- then do fn <- newTempName "hi"
- add files_to_clean fn
- return fn
- else return ""
-
-- deal with -Rghc-timing
timing <- readIORef collect_ghc_timing
stat_file <- newTempName "stat"
-- deal with -Rghc-timing
timing <- readIORef collect_ghc_timing
stat_file <- newTempName "stat"