From: rrt <unknown>
Date: Fri, 21 Jul 2000 08:40:04 +0000 (+0000)
Subject: [project @ 2000-07-21 08:40:04 by rrt]
X-Git-Tag: Approximately_9120_patches~3960
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=13c0d8a2c4c7f69290850af377a28843b4b3789d;p=ghc-hetmet.git

[project @ 2000-07-21 08:40:04 by rrt]
Add dll as a fully-fledged way.
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 45c5fee..63d2a76 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -731,6 +731,7 @@ GLOBAL_VAR(build_tag, "", String)
 data WayName
   = WayProf
   | WayUnreg
+  | WayDll
   | WayTicky
   | WayPar
   | WayGran
@@ -757,6 +758,8 @@ data WayName
 
 GLOBAL_VAR(ways, [] ,[WayName])
 
+-- ToDo: allow WayDll with any other allowed combination
+
 allowed_combinations = 
    [  [WayProf,WayUnreg],
       [WayProf,WaySMP]	   -- works???
@@ -811,6 +814,9 @@ way_details =
 	, "-fno-asm-mangling"
 	, "-funregisterised" ]),
 
+    (WayDll, Way  "dll" "DLLized"
+        [ ]),
+
     (WayPar, Way  "mp" "Parallel" 
 	[ "-fstack-check"
 	, "-fparallel"
@@ -1684,6 +1690,7 @@ run_something phase_name cmd
 	putStr phase_name
 	putStrLn ":"
 	putStrLn cmd
+	hFlush stdout
 
    -- test for -n flag
    n <- readIORef dry_run
@@ -1748,6 +1755,7 @@ opts =
 	------- ways --------------------------------------------------------
   ,  ( "prof"		, NoArg (addNoDups ways	WayProf) )
   ,  ( "unreg"		, NoArg (addNoDups ways	WayUnreg) )
+  ,  ( "dll"            , NoArg (addNoDups ways WayDll) )
   ,  ( "ticky"		, NoArg (addNoDups ways	WayTicky) )
   ,  ( "parallel"	, NoArg (addNoDups ways	WayPar) )
   ,  ( "gransim"	, NoArg (addNoDups ways	WayGran) )