X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAsmCodeGen.lhs;h=e7909913f9bad4e44101c62fc4b5986c4cac644e;hb=50159f6c4a3560662e37c55e64af1fb0b685011e;hp=2a7492b858f4f4d2f08125d667bdb48647f1d593;hpb=cbe4c3a7cc2b1e627b308aff520a9f354f7a730b;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index 2a7492b..e790991 100644
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -37,7 +37,7 @@ import List		( groupBy, sortBy )
 import CLabel           ( pprCLabel )
 import ErrUtils		( dumpIfSet_dyn )
 import DynFlags		( DynFlags, DynFlag(..), dopt )
-import StaticFlags	( opt_Static, opt_SplitObjs, opt_PIC )
+import StaticFlags	( opt_Static, opt_PIC )
 
 import Digraph
 import qualified Pretty
@@ -133,8 +133,8 @@ nativeCodeGen dflags cmms us
   where
 
     add_split (Cmm tops)
-	| opt_SplitObjs = split_marker : tops
-	| otherwise	= tops
+	| dopt Opt_SplitObjs dflags = split_marker : tops
+	| otherwise		    = tops
 
     split_marker = CmmProc [] mkSplitMarkerLabel [] []