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 889013d086c6..6db7b790bc2e 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}
--
GitLab