From: igloo <unknown>
Date: Wed, 21 May 2003 02:48:56 +0000 (+0000)
Subject: [project @ 2003-05-21 02:48:56 by igloo]
X-Git-Tag: Approx_11550_changesets_converted~887
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a77e522a45f95126d89716b447232bedc9fbfb28

[project @ 2003-05-21 02:48:56 by igloo]
When --make is used we need to save the initial dynamic flags too
---

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 0d9bdce..ac92fd6 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.120 2003/05/19 15:39:18 simonpj Exp $
+-- $Id: Main.hs,v 1.121 2003/05/21 02:48:56 igloo Exp $
 --
 -- GHC Driver program
 --
@@ -208,7 +208,8 @@ main =
 
 	---------------- Do the business -----------
    case mode of
-	DoMake 	       -> doMake srcs
+	DoMake 	       -> do { saveDynFlags ;
+			       doMake srcs }
 	DoMkDependHS   -> do { beginMkDependHS ; 
 			       compileFiles mode srcs; 
 			       endMkDependHS }