From: sewardj <unknown>
Date: Wed, 5 Jul 2000 09:46:35 +0000 (+0000)
Subject: [project @ 2000-07-05 09:46:35 by sewardj]
X-Git-Tag: Approximately_9120_patches~4080
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=558c0ec0fcb37051a8d91870c4d2520dc2de65aa;p=ghc-hetmet.git

[project @ 2000-07-05 09:46:35 by sewardj]
Make -S work when going via the NCG.
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 6c982ad..9c18f0c 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1157,7 +1157,7 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
 		_other -> False
 
      output_fn <- 
-	(if phase == last_phase && not do_linking && use_ofile
+	(if next_phase > last_phase && not do_linking && use_ofile
 	    then do o_file <- readIORef output_file
 		    case o_file of 
 		        Just s  -> return s