From: simonmar <unknown>
Date: Wed, 11 Oct 2000 16:06:38 +0000 (+0000)
Subject: [project @ 2000-10-11 16:06:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~3634
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=55416377cceff0d81f6bcd06391f605cba1868cc;p=ghc-hetmet.git

[project @ 2000-10-11 16:06:38 by simonmar]
dead code removal
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 77e45e3..2e235bf 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
 {-# 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
 --
@@ -866,16 +866,14 @@ way_details =
         [ ]),
 
     (WayPar, Way  "mp" "Parallel" 
-	[ "-fstack-check"
-	, "-fparallel"
+	[ "-fparallel"
 	, "-D__PARALLEL_HASKELL__"
 	, "-optc-DPAR"
 	, "-package concurrent"
 	, "-fvia-C" ]),
 
     (WayGran, Way  "mg" "Gransim" 
-	[ "-fstack-check"
-	, "-fgransim"
+	[ "-fgransim"
 	, "-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
 	
-	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"