From: simonmar <unknown>
Date: Mon, 3 Jul 2000 16:06:17 +0000 (+0000)
Subject: [project @ 2000-07-03 16:06:17 by simonmar]
X-Git-Tag: Approximately_9120_patches~4094
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7509d7f5fdfa18e596f14cc059bd8a747e7c6a09;p=ghc-hetmet.git

[project @ 2000-07-03 16:06:17 by simonmar]
D'oh!  Only generate split markers when actually splitting
---

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 889013d..6db7b79 100644
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -46,7 +46,7 @@ import DataCon		( dataConWrapId )
 import BitSet 		( intBS )
 import Name             ( NamedThing(..) )
 import Char		( ord )
-import CmdLineOpts	( opt_Static )
+import CmdLineOpts	( opt_Static, opt_EnsureSplittableC )
 \end{code}
 
 For each independent chunk of AbstractC code, we generate a list of
@@ -263,7 +263,9 @@ split-mangler later on and used to split the assembly into chunks.
 
 \begin{code}
 
- gencode CSplitMarker = returnUs (\xs -> StLabel mkSplitMarkerLabel : xs)
+ gencode CSplitMarker
+   | opt_EnsureSplittableC = returnUs (\xs -> StLabel mkSplitMarkerLabel : xs)
+   | otherwise             = returnUs id
 
 \end{code}