X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;h=94db1a4d2a9946cc572f58570e65e29a1025d82d;hb=a5840900804a5e44e13c35c0acc9bb11d65d0da5;hp=06e2bc58c8ade14adabe9108ecb2e235f82abedc;hpb=cc3d91e372a0bdc6e74a0e2a1fb1b27df3c636f0;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 06e2bc5..94db1a4 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -#include "hschooks.h" #-}
 
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.67 2001/08/31 13:51:45 sewardj Exp $
+-- $Id: DriverFlags.hs,v 1.71 2001/09/23 21:29:35 ken Exp $
 --
 -- Driver flags
 --
@@ -76,8 +76,8 @@ processArgs _spec [] spare = return (reverse spare)
 
 processArgs spec args@(('-':arg):args') spare = do
   case findArg spec arg of
-    Just (rest,action) ->  do args' <- processOneArg action rest args
-			      processArgs spec args' spare
+    Just (rest,action) -> do args' <- processOneArg action rest args
+			     processArgs spec args' spare
     Nothing	       -> processArgs spec args' (('-':arg):spare)
 
 processArgs spec (arg:args) spare = 
@@ -272,6 +272,9 @@ static_flags =
   ,  ( "fmax-simplifier-iterations", 
 		Prefix (writeIORef v_MaxSimplifierIterations . read) )
 
+  ,  ( "frule-check", 
+		SepArg (\s -> writeIORef v_RuleCheck (Just s)) )
+
   ,  ( "fusagesp"	   , NoArg (do writeIORef v_UsageSPInf True
 				       add v_Opt_C "-fusagesp-on") )
 
@@ -482,7 +485,10 @@ buildStaticHscOpts = do
 
 machdepCCOpts 
    | prefixMatch "alpha"   cTARGETPLATFORM  
-	= return ( ["-static", "-Xlinker -noprefix_recognition"], [] )
+	= return ( ["-static", "-w"], [] )
+	-- For now, to suppress the gcc warning "call-clobbered
+	-- register used for global register variable", we simply
+	-- disable all warnings altogether using the -w flag. Oh well.
 
    | prefixMatch "hppa"    cTARGETPLATFORM  
         -- ___HPUX_SOURCE, not _HPUX_SOURCE, is #defined if -ansi!
@@ -519,6 +525,9 @@ machdepCCOpts
 
    | prefixMatch "sparc"    cTARGETPLATFORM
 	= return ( [], ["-w"] )
+	-- For now, to suppress the gcc warning "call-clobbered
+	-- register used for global register variable", we simply
+	-- disable all warnings altogether using the -w flag. Oh well.
 
    | prefixMatch "powerpc" cTARGETPLATFORM || prefixMatch "rs6000" cTARGETPLATFORM
 	= return ( ["-static"], ["-finhibit-size-directive"] )