From: sof <unknown>
Date: Tue, 4 Dec 2001 16:42:06 +0000 (+0000)
Subject: [project @ 2001-12-04 16:42:06 by sof]
X-Git-Tag: Approximately_9120_patches~470
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4356450b3b30b1978a5a37ec5597e2db5a9d7af;p=ghc-hetmet.git

[project @ 2001-12-04 16:42:06 by sof]
genPipeLine: DoMkDll didn't have a stop_phase, causing any use of
--mk-dll to fall over.

MERGE TO STABLE.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index ec85815..44dbe50 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -84,7 +84,7 @@ getGhcMode flags
 	([(flag,one)], rest) -> return (rest, one, flag)
 	(_    , _   ) -> 
 	  throwDyn (UsageError 
-		"only one of the flags -M, -E, -C, -S, -c, --make, --interactive, -mk-dll is allowed")
+		"only one of the flags -M, -E, -C, -S, -c, --make, --interactive, --mk-dll is allowed")
 
 -----------------------------------------------------------------------------
 -- genPipeline
@@ -195,6 +195,7 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix)
 			StopBefore phase      -> phase
 			DoMkDependHS	      -> Ln
 			DoLink                -> Ln
+			DoMkDLL               -> Ln
    ----------- -----  ----   ---   --   --  -  -  -
 
 	-- this shouldn't happen.