{-# OPTIONS -#include "hschooks.h" #-}
-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.62 2001/07/24 04:46:37 ken Exp $
+-- $Id: DriverFlags.hs,v 1.67 2001/08/31 13:51:45 sewardj Exp $
--
-- Driver flags
--
------- verbosity ----------------------------------------------------
, ( "n" , NoArg setDryRun )
+ ------- GHCi -------------------------------------------------------
+ , ( "ignore-dot-ghci", NoArg (writeIORef v_Read_DotGHCi False) )
+ , ( "read-dot-ghci" , NoArg (writeIORef v_Read_DotGHCi True) )
+
------- recompilation checker --------------------------------------
, ( "recomp" , NoArg (writeIORef v_Recomp True) )
, ( "no-recomp" , NoArg (writeIORef v_Recomp False) )
------- Packages ----------------------------------------------------
, ( "package-name" , HasArg (\s -> add v_Opt_C ("-inpackage="++s)) )
+ , ( "package-conf" , HasArg (readPackageConf) )
, ( "package" , HasArg (addPackage) )
, ( "syslib" , HasArg (addPackage) ) -- for compatibility w/ old vsns
, ( "optc", HasArg (addOpt_c) )
, ( "optm", HasArg (addOpt_m) )
, ( "opta", HasArg (addOpt_a) )
+#ifdef ILX
+ , ( "optI", HasArg (addOpt_I) )
+ , ( "opti", HasArg (addOpt_i) )
+#endif
------ HsCpp opts ---------------------------------------------------
-- With a C compiler whose system() doesn't use a UNIX shell (i.e.
, ( "fvia-c", NoArg (setLang HscC) )
, ( "fvia-C", NoArg (setLang HscC) )
, ( "filx", NoArg (setLang HscILX) )
+ , ( "fno-code", NoArg (setLang HscNothing) )
-- "active negatives"
, ( "fno-implicit-prelude", NoArg (setDynFlag Opt_NoImplicitPrelude) )
)
| prefixMatch "mips" cTARGETPLATFORM
- = return ( ["static"], [] )
+ = return ( ["-static"], [] )
+
+ | prefixMatch "sparc" cTARGETPLATFORM
+ = return ( [], ["-w"] )
| prefixMatch "powerpc" cTARGETPLATFORM || prefixMatch "rs6000" cTARGETPLATFORM
- = return ( ["static"], ["-finhibit-size-directive"] )
+ = return ( ["-static"], ["-finhibit-size-directive"] )
| otherwise
= return ( [], [] )
-addOpt_L a = updDynFlags (\s -> s{opt_L = a : opt_L s})
-addOpt_P a = updDynFlags (\s -> s{opt_P = a : opt_P s})
-addOpt_c a = updDynFlags (\s -> s{opt_c = a : opt_c s})
-addOpt_a a = updDynFlags (\s -> s{opt_a = a : opt_a s})
-addOpt_m a = updDynFlags (\s -> s{opt_m = a : opt_m s})
+addOpt_L a = updDynFlags (\s -> s{opt_L = a : opt_L s})
+addOpt_P a = updDynFlags (\s -> s{opt_P = a : opt_P s})
+addOpt_c a = updDynFlags (\s -> s{opt_c = a : opt_c s})
+addOpt_a a = updDynFlags (\s -> s{opt_a = a : opt_a s})
+addOpt_m a = updDynFlags (\s -> s{opt_m = a : opt_m s})
+#ifdef ILX
+addOpt_I a = updDynFlags (\s -> s{opt_I = a : opt_I s})
+addOpt_i a = updDynFlags (\s -> s{opt_i = a : opt_i s})
+#endif
addCmdlineHCInclude a = updDynFlags (\s -> s{cmdlineHcIncludes = a : cmdlineHcIncludes s})
getOpts opts = dynFlag opts >>= return . reverse
-- we can only change HscC to HscAsm and vice-versa with dynamic flags
--- (-fvia-C and -fasm).
--- NB: we can also set the new lang to ILX, via -filx. I hope this is right
+-- (-fvia-C and -fasm). We can also set the new lang to ILX, via -filx.
setLang l = updDynFlags (\ dfs -> case hscLang dfs of
HscC -> dfs{ hscLang = l }
HscAsm -> dfs{ hscLang = l }