X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAsmCodeGen.lhs;h=e7909913f9bad4e44101c62fc4b5986c4cac644e;hb=ee81425d0c684f5d2bffd4b647b0897df0539122;hp=2a7492b858f4f4d2f08125d667bdb48647f1d593;hpb=d1c1b7d0e7b94ede238845c91f58582bad3b3ef3;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 [] []