From: sof <unknown>
Date: Tue, 8 Jan 2002 14:55:50 +0000 (+0000)
Subject: [project @ 2002-01-08 14:55:50 by sof]
X-Git-Tag: Approximately_9120_patches~299
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9066f9344a5fc1f2968671364466b8d89671b337;p=ghc-hetmet.git

[project @ 2002-01-08 14:55:50 by sof]
make -split-objs work again
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index f233358..76b1760 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -613,6 +613,8 @@ run_phase cc_phase basename suff input_fn output_fn
 	pkg_extra_cc_opts <- getPackageExtraCcOpts
 
 	split_objs <- readIORef v_Split_object_files
+	let split_opt | hcc && split_objs = [ "-DUSE_SPLIT_MARKERS" ]
+		      | otherwise         = [ ]
 
 	excessPrecision <- readIORef v_Excess_precision
 
@@ -635,6 +637,7 @@ run_phase cc_phase basename suff input_fn output_fn
 		       ++ [ verb, "-S", "-Wimplicit", opt_flag ]
 		       ++ [ "-D__GLASGOW_HASKELL__="++cProjectVersionInt ]
 		       ++ cc_opts
+		       ++ split_opt
 		       ++ (if excessPrecision then [] else [ "-ffloat-store" ])
 		       ++ include_paths
 		       ++ pkg_extra_cc_opts