From: simonmar <unknown>
Date: Thu, 15 Jun 2000 15:56:51 +0000 (+0000)
Subject: [project @ 2000-06-15 15:56:51 by simonmar]
X-Git-Tag: Approximately_9120_patches~4188
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9f60c2c455f72e9dbc907f9a917ac6463b2437b4;p=ghc-hetmet.git

[project @ 2000-06-15 15:56:51 by simonmar]
sigh, fix the ordering of the phases so that splitting works again.
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 8509ee8..e71c377 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -94,8 +94,8 @@ data Phase
 	| HCc		-- Haskellised C (as opposed to vanilla C) compilation
 	| Mangle	-- assembly mangling, now done by a separate script.
 	| SplitMangle	-- after mangler if splitting
-	| As
 	| SplitAs
+	| As
 	| Ln 
   deriving (Eq,Ord,Enum,Ix,Show,Bounded)
 
@@ -1121,11 +1121,11 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
 		     | otherwise -> As
 
 		Cc -> As
-		As -> Ln
 
 		Mangle | not split -> As
 		SplitMangle -> SplitAs
-	
+		SplitAs -> Ln
+
 		_  -> succ phase