X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=d66f1473b0c53b8ec07eff4f69e8255e8bba2ade;hb=ee565d464248078a4f2d46f98667aa4fcdc56db4;hp=e8f64e81a699cb14d71480b68e9fdadbb019ad2e;hpb=f943473cc7db20fbeceb66bd67b2f7872da6941b;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index e8f64e8..d66f147 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -29,7 +29,7 @@ module DriverPipeline (
 import Packages
 import HeaderInfo
 import DriverPhases
-import SysTools		( newTempName, addFilesToClean, getSysMan, copy )
+import SysTools		( newTempName, addFilesToClean, copy )
 import qualified SysTools	
 import HscMain
 import Finder
@@ -859,6 +859,15 @@ runPhase cc_phase stop dflags basename suff input_fn get_output_fn maybe_loc
 		       ++ map SysTools.Option (
 		          md_c_flags
                        ++ pic_c_flags
+#ifdef sparc_TARGET_ARCH
+        -- We only support SparcV9 and better because V8 lacks an atomic CAS
+        -- instruction. Note that the user can still override this
+	-- (e.g., -mcpu=ultrasparc) as GCC picks the "best" -mcpu flag
+	-- regardless of the ordering.
+        --
+        -- This is a temporary hack.
+                       ++ ["-mcpu=v9"]
+#endif
 		       ++ (if hcc && mangle
 		  	     then md_regd_c_flags
 		  	     else [])
@@ -946,6 +955,16 @@ runPhase As stop dflags _basename _suff input_fn get_output_fn maybe_loc
 	SysTools.runAs dflags	
 		       (map SysTools.Option as_opts
 		       ++ [ SysTools.Option ("-I" ++ p) | p <- cmdline_include_paths ]
+#ifdef sparc_TARGET_ARCH
+        -- We only support SparcV9 and better because V8 lacks an atomic CAS
+	-- instruction so we have to make sure that the assembler accepts the
+        -- instruction set. Note that the user can still override this
+	-- (e.g., -mcpu=ultrasparc). GCC picks the "best" -mcpu flag
+	-- regardless of the ordering.
+	--
+	-- This is a temporary hack.
+		       ++ [ SysTools.Option "-mcpu=v9" ]
+#endif
 		       ++ [ SysTools.Option "-c"
 		          , SysTools.FileOption "" input_fn
 			  , SysTools.Option "-o"
@@ -1025,9 +1044,9 @@ runPhase SplitAs stop dflags basename _suff _input_fn get_output_fn maybe_loc
 -- we don't need the generality of a phase (MoveBinary is always
 -- done after linking and makes only sense in a parallel setup)   -- HWL
 
-runPhase_MoveBinary input_fn
+runPhase_MoveBinary dflags input_fn
   = do	
-        sysMan   <- getSysMan
+        let sysMan = pgm_sysman dflags
         pvm_root <- getEnv "PVM_ROOT"
         pvm_arch <- getEnv "PVM_ARCH"
         let 
@@ -1224,7 +1243,7 @@ staticLink dflags o_files dep_packages = do
 
     -- parallel only: move binary to another dir -- HWL
     when (WayPar `elem` ways)
-	 (do success <- runPhase_MoveBinary output_fn
+	 (do success <- runPhase_MoveBinary dflags output_fn
              if success then return ()
                         else throwDyn (InstallationError ("cannot move binary to PVM dir")))