From 7509d7f5fdfa18e596f14cc059bd8a747e7c6a09 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Jul 2000 16:06:17 +0000
Subject: [PATCH] [project @ 2000-07-03 16:06:17 by simonmar] D'oh!  Only
 generate split markers when actually splitting

---
 ghc/compiler/nativeGen/AbsCStixGen.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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}
 
-- 
1.7.10.4