Commit 7509d7f5 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-07-03 16:06:17 by simonmar]

D'oh!  Only generate split markers when actually splitting
parent bc823a08
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment