-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.7 2000/10/24 15:58:02 simonmar Exp $
+-- $Id: DriverFlags.hs,v 1.18 2000/11/13 16:16:05 sewardj Exp $
--
-- Driver flags
--
import PackageMaintenance
import DriverState
import DriverUtil
+import TmpFiles ( v_TmpDir )
import CmdLineOpts
import Config
import Util
-import CmdLineOpts
import Exception
import IOExts
processArgs :: [(String,OptKind)] -> [String] -> [String]
-> IO [String] -- returns spare args
processArgs _spec [] spare = return (reverse spare)
-processArgs spec args@(arg@('-':_):args') spare = do
+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
Nothing ->
- processArgs spec args' (arg:spare)
+ processArgs spec args' (('-':arg):spare)
processArgs spec (arg:args) spare =
processArgs spec args (arg:spare)
findArg spec arg
= case [ (remove_spaces rest, k)
| (pat,k) <- spec, Just rest <- [my_prefix_match pat arg],
- arg_ok k arg rest ]
+ arg_ok k rest arg ]
of
[] -> Nothing
(one:_) -> Just one
------- version ----------------------------------------------------
, ( "-version" , NoArg (do hPutStrLn stdout (cProjectName
- ++ ", version " ++ version_str)
+ ++ ", version " ++ cProjectVersion)
exitWith ExitSuccess))
- , ( "-numeric-version", NoArg (do hPutStrLn stdout version_str
+ , ( "-numeric-version", NoArg (do hPutStrLn stdout cProjectVersion
exitWith ExitSuccess))
------- verbosity ----------------------------------------------------
- , ( "v" , NoArg (writeIORef verbose True) )
- , ( "n" , NoArg (writeIORef dry_run True) )
+ , ( "v" , NoArg (writeIORef v_Verbose True) )
+ , ( "n" , NoArg (writeIORef v_Dry_run True) )
------- recompilation checker --------------------------------------
- , ( "recomp" , NoArg (writeIORef recomp True) )
- , ( "no-recomp" , NoArg (writeIORef recomp False) )
+ , ( "recomp" , NoArg (writeIORef v_Recomp True) )
+ , ( "no-recomp" , NoArg (writeIORef v_Recomp False) )
------- ways --------------------------------------------------------
- , ( "prof" , NoArg (addNoDups ways WayProf) )
- , ( "unreg" , NoArg (addNoDups ways WayUnreg) )
- , ( "dll" , NoArg (addNoDups ways WayDll) )
- , ( "ticky" , NoArg (addNoDups ways WayTicky) )
- , ( "parallel" , NoArg (addNoDups ways WayPar) )
- , ( "gransim" , NoArg (addNoDups ways WayGran) )
- , ( "smp" , NoArg (addNoDups ways WaySMP) )
- , ( "debug" , NoArg (addNoDups ways WayDebug) )
+ , ( "prof" , NoArg (addNoDups v_Ways WayProf) )
+ , ( "unreg" , NoArg (addNoDups v_Ways WayUnreg) )
+ , ( "dll" , NoArg (addNoDups v_Ways WayDll) )
+ , ( "ticky" , NoArg (addNoDups v_Ways WayTicky) )
+ , ( "parallel" , NoArg (addNoDups v_Ways WayPar) )
+ , ( "gransim" , NoArg (addNoDups v_Ways WayGran) )
+ , ( "smp" , NoArg (addNoDups v_Ways WaySMP) )
+ , ( "debug" , NoArg (addNoDups v_Ways WayDebug) )
-- ToDo: user ways
------ Debugging ----------------------------------------------------
- , ( "dppr-noprags", PassFlag (add opt_C) )
- , ( "dppr-debug", PassFlag (add opt_C) )
- , ( "dppr-user-length", AnySuffix (add opt_C) )
+ , ( "dppr-noprags", PassFlag (add v_Opt_C) )
+ , ( "dppr-debug", PassFlag (add v_Opt_C) )
+ , ( "dppr-user-length", AnySuffix (add v_Opt_C) )
-- rest of the debugging flags are dynamic
------- Interface files ---------------------------------------------
- , ( "hi" , NoArg (writeIORef produceHi True) )
- , ( "nohi" , NoArg (writeIORef produceHi False) )
+ , ( "hi" , NoArg (writeIORef v_ProduceHi True) )
+ , ( "nohi" , NoArg (writeIORef v_ProduceHi False) )
--------- Profiling --------------------------------------------------
- , ( "auto-dicts" , NoArg (add opt_C "-fauto-sccs-on-dicts") )
- , ( "auto-all" , NoArg (add opt_C "-fauto-sccs-on-all-toplevs") )
- , ( "auto" , NoArg (add opt_C "-fauto-sccs-on-exported-toplevs") )
- , ( "caf-all" , NoArg (add opt_C "-fauto-sccs-on-individual-cafs") )
+ , ( "auto-dicts" , NoArg (add v_Opt_C "-fauto-sccs-on-dicts") )
+ , ( "auto-all" , NoArg (add v_Opt_C "-fauto-sccs-on-all-toplevs") )
+ , ( "auto" , NoArg (add v_Opt_C "-fauto-sccs-on-exported-toplevs") )
+ , ( "caf-all" , NoArg (add v_Opt_C "-fauto-sccs-on-individual-cafs") )
-- "ignore-sccs" doesn't work (ToDo)
- , ( "no-auto-dicts" , NoArg (add anti_opt_C "-fauto-sccs-on-dicts") )
- , ( "no-auto-all" , NoArg (add anti_opt_C "-fauto-sccs-on-all-toplevs") )
- , ( "no-auto" , NoArg (add anti_opt_C "-fauto-sccs-on-exported-toplevs") )
- , ( "no-caf-all" , NoArg (add anti_opt_C "-fauto-sccs-on-individual-cafs") )
+ , ( "no-auto-dicts" , NoArg (add v_Anti_opt_C "-fauto-sccs-on-dicts") )
+ , ( "no-auto-all" , NoArg (add v_Anti_opt_C "-fauto-sccs-on-all-toplevs") )
+ , ( "no-auto" , NoArg (add v_Anti_opt_C "-fauto-sccs-on-exported-toplevs") )
+ , ( "no-caf-all" , NoArg (add v_Anti_opt_C "-fauto-sccs-on-individual-cafs") )
------- Miscellaneous -----------------------------------------------
, ( "no-link-chk" , NoArg (return ()) ) -- ignored for backwards compat
------- Output Redirection ------------------------------------------
- , ( "odir" , HasArg (writeIORef output_dir . Just) )
- , ( "o" , SepArg (writeIORef output_file . Just) )
- , ( "osuf" , HasArg (writeIORef output_suf . Just) )
- , ( "hisuf" , HasArg (writeIORef hi_suf) )
+ , ( "odir" , HasArg (writeIORef v_Output_dir . Just) )
+ , ( "o" , SepArg (writeIORef v_Output_file . Just) )
+ , ( "osuf" , HasArg (writeIORef v_Object_suf . Just) )
+ , ( "hisuf" , HasArg (writeIORef v_Hi_suf) )
, ( "tmpdir" , HasArg (writeIORef v_TmpDir . (++ "/")) )
, ( "ohi" , HasArg (\s -> case s of
- "-" -> writeIORef hi_on_stdout True
- _ -> writeIORef output_hi (Just s)) )
+ "-" -> writeIORef v_Hi_on_stdout True
+ _ -> writeIORef v_Output_hi (Just s)) )
-- -odump?
- , ( "keep-hc-file" , AnySuffix (\_ -> writeIORef keep_hc_files True) )
- , ( "keep-s-file" , AnySuffix (\_ -> writeIORef keep_s_files True) )
- , ( "keep-raw-s-file", AnySuffix (\_ -> writeIORef keep_raw_s_files True) )
- , ( "keep-tmp-files" , AnySuffix (\_ -> writeIORef keep_tmp_files True) )
+ , ( "keep-hc-file" , AnySuffix (\_ -> writeIORef v_Keep_hc_files True) )
+ , ( "keep-s-file" , AnySuffix (\_ -> writeIORef v_Keep_s_files True) )
+ , ( "keep-raw-s-file", AnySuffix (\_ -> writeIORef v_Keep_raw_s_files True) )
+ , ( "keep-tmp-files" , AnySuffix (\_ -> writeIORef v_Keep_tmp_files True) )
, ( "split-objs" , NoArg (if can_split
- then do writeIORef split_object_files True
- add opt_C "-fglobalise-toplev-names"
--- TODO!!!!! add opt_c "-DUSE_SPLIT_MARKERS"
+ then do writeIORef v_Split_object_files True
+ add v_Opt_C "-fglobalise-toplev-names"
else hPutStrLn stderr
"warning: don't know how to split \
\object files on this architecture"
) )
------- Include/Import Paths ----------------------------------------
- , ( "i" , OptPrefix (addToDirList import_paths) )
- , ( "I" , Prefix (addToDirList include_paths) )
+ , ( "i" , OptPrefix (addToDirList v_Import_paths) )
+ , ( "I" , Prefix (addToDirList v_Include_paths) )
------- Libraries ---------------------------------------------------
- , ( "L" , Prefix (addToDirList library_paths) )
- , ( "l" , Prefix (add cmdline_libraries) )
+ , ( "L" , Prefix (addToDirList v_Library_paths) )
+ , ( "l" , Prefix (add v_Cmdline_libraries) )
------- Packages ----------------------------------------------------
- , ( "package-name" , HasArg (\s -> add opt_C ("-inpackage="++s)) )
+ , ( "package-name" , HasArg (\s -> add v_Opt_C ("-inpackage="++s)) )
, ( "package" , HasArg (addPackage) )
, ( "syslib" , HasArg (addPackage) ) -- for compatibility w/ old vsns
, ( "-delete-package" , SepArg (deletePackage) )
------- Specific phases --------------------------------------------
- , ( "pgmL" , HasArg (writeIORef pgm_L) )
- , ( "pgmP" , HasArg (writeIORef pgm_P) )
- , ( "pgmc" , HasArg (writeIORef pgm_c) )
- , ( "pgmm" , HasArg (writeIORef pgm_m) )
- , ( "pgms" , HasArg (writeIORef pgm_s) )
- , ( "pgma" , HasArg (writeIORef pgm_a) )
- , ( "pgml" , HasArg (writeIORef pgm_l) )
-
- , ( "optdep" , HasArg (add opt_dep) )
- , ( "optl" , HasArg (add opt_l) )
- , ( "optdll" , HasArg (add opt_dll) )
+ , ( "pgmL" , HasArg (writeIORef v_Pgm_L) )
+ , ( "pgmP" , HasArg (writeIORef v_Pgm_P) )
+ , ( "pgmc" , HasArg (writeIORef v_Pgm_c) )
+ , ( "pgmm" , HasArg (writeIORef v_Pgm_m) )
+ , ( "pgms" , HasArg (writeIORef v_Pgm_s) )
+ , ( "pgma" , HasArg (writeIORef v_Pgm_a) )
+ , ( "pgml" , HasArg (writeIORef v_Pgm_l) )
+
+ , ( "optdep" , HasArg (add v_Opt_dep) )
+ , ( "optl" , HasArg (add v_Opt_l) )
+ , ( "optdll" , HasArg (add v_Opt_dll) )
------ Warning opts -------------------------------------------------
- , ( "W" , NoArg (writeIORef warning_opt W_) )
- , ( "Wall" , NoArg (writeIORef warning_opt W_all) )
- , ( "Wnot" , NoArg (writeIORef warning_opt W_not) )
- , ( "w" , NoArg (writeIORef warning_opt W_not) )
+ , ( "W" , NoArg (writeIORef v_Warning_opt W_) )
+ , ( "Wall" , NoArg (writeIORef v_Warning_opt W_all) )
+ , ( "Wnot" , NoArg (writeIORef v_Warning_opt W_not) )
+ , ( "w" , NoArg (writeIORef v_Warning_opt W_not) )
----- Linker --------------------------------------------------------
- , ( "static" , NoArg (writeIORef static True) )
+ , ( "static" , NoArg (writeIORef v_Static True) )
------ Compiler flags -----------------------------------------------
, ( "O2-for-C" , NoArg (writeIORef v_minus_o2_for_C True) )
, ( "O" , OptPrefix (setOptLevel) )
- , ( "fasm" , OptPrefix (\_ -> writeIORef hsc_lang HscAsm) )
+ , ( "fasm" , OptPrefix (\_ -> writeIORef v_Hsc_Lang HscAsm) )
- , ( "fvia-c" , NoArg (writeIORef hsc_lang HscC) )
- , ( "fvia-C" , NoArg (writeIORef hsc_lang HscC) )
+ , ( "fvia-c" , NoArg (writeIORef v_Hsc_Lang HscC) )
+ , ( "fvia-C" , NoArg (writeIORef v_Hsc_Lang HscC) )
- , ( "fno-asm-mangling" , NoArg (writeIORef do_asm_mangling False) )
+ , ( "fno-asm-mangling" , NoArg (writeIORef v_Do_asm_mangling False) )
, ( "fmax-simplifier-iterations",
Prefix (writeIORef v_MaxSimplifierIterations . read) )
, ( "fusagesp" , NoArg (do writeIORef v_UsageSPInf True
- add opt_C "-fusagesp-on") )
+ add v_Opt_C "-fusagesp-on") )
- , ( "fexcess-precision" , NoArg (do writeIORef excess_precision True
- add opt_C "-fexcess-precision"))
+ , ( "fexcess-precision" , NoArg (do writeIORef v_Excess_precision True
+ add v_Opt_C "-fexcess-precision"))
-- flags that are "active negatives"
- , ( "fno-implicit-prelude" , PassFlag (add opt_C) )
- , ( "fno-prune-tydecls" , PassFlag (add opt_C) )
- , ( "fno-prune-instdecls" , PassFlag (add opt_C) )
- , ( "fno-pre-inlining" , PassFlag (add opt_C) )
+ , ( "fno-implicit-prelude" , PassFlag (add v_Opt_C) )
+ , ( "fno-prune-tydecls" , PassFlag (add v_Opt_C) )
+ , ( "fno-prune-instdecls" , PassFlag (add v_Opt_C) )
+ , ( "fno-pre-inlining" , PassFlag (add v_Opt_C) )
-- All other "-fno-<blah>" options cancel out "-f<blah>" on the hsc cmdline
, ( "fno-", PrefixPred (\s -> isStaticHscFlag ("f"++s))
- (\s -> add anti_opt_C ("-f"++s)) )
+ (\s -> add v_Anti_opt_C ("-f"++s)) )
-- Pass all remaining "-f<blah>" options to hsc
- , ( "f", AnySuffixPred (isStaticHscFlag) (add opt_C) )
+ , ( "f", AnySuffixPred (isStaticHscFlag) (add v_Opt_C) )
]
-----------------------------------------------------------------------------
------ Debugging ----------------------------------------------------
, ( "dstg-stats", NoArg (writeIORef v_StgStats True) )
- , ( "ddump_all", NoArg (setDynFlag Opt_D_dump_all) )
- , ( "ddump_most", NoArg (setDynFlag Opt_D_dump_most) )
- , ( "ddump_absC", NoArg (setDynFlag Opt_D_dump_absC) )
- , ( "ddump_asm", NoArg (setDynFlag Opt_D_dump_asm) )
- , ( "ddump_cpranal", NoArg (setDynFlag Opt_D_dump_cpranal) )
- , ( "ddump_deriv", NoArg (setDynFlag Opt_D_dump_deriv) )
- , ( "ddump_ds", NoArg (setDynFlag Opt_D_dump_ds) )
- , ( "ddump_flatC", NoArg (setDynFlag Opt_D_dump_flatC) )
- , ( "ddump_foreign", NoArg (setDynFlag Opt_D_dump_foreign) )
- , ( "ddump_inlinings", NoArg (setDynFlag Opt_D_dump_inlinings) )
- , ( "ddump_occur_anal", NoArg (setDynFlag Opt_D_dump_occur_anal) )
- , ( "ddump_parsed", NoArg (setDynFlag Opt_D_dump_parsed) )
- , ( "ddump_realC", NoArg (setDynFlag Opt_D_dump_realC) )
- , ( "ddump_rn", NoArg (setDynFlag Opt_D_dump_rn) )
- , ( "ddump_simpl", NoArg (setDynFlag Opt_D_dump_simpl) )
- , ( "ddump_simpl_iterations", NoArg (setDynFlag Opt_D_dump_simpl_iterations) )
- , ( "ddump_spec", NoArg (setDynFlag Opt_D_dump_spec) )
- , ( "ddump_stg", NoArg (setDynFlag Opt_D_dump_stg) )
- , ( "ddump_stranal", NoArg (setDynFlag Opt_D_dump_stranal) )
- , ( "ddump_tc", NoArg (setDynFlag Opt_D_dump_tc) )
- , ( "ddump_types", NoArg (setDynFlag Opt_D_dump_types) )
- , ( "ddump_rules", NoArg (setDynFlag Opt_D_dump_rules) )
- , ( "ddump_usagesp", NoArg (setDynFlag Opt_D_dump_usagesp) )
- , ( "ddump_cse", NoArg (setDynFlag Opt_D_dump_cse) )
- , ( "ddump_worker_wrapper", NoArg (setDynFlag Opt_D_dump_worker_wrapper) )
- , ( "dshow_passes", NoArg (setDynFlag Opt_D_show_passes) )
- , ( "ddump_rn_trace", NoArg (setDynFlag Opt_D_dump_rn_trace) )
- , ( "ddump_rn_stats", NoArg (setDynFlag Opt_D_dump_rn_stats) )
- , ( "ddump_stix", NoArg (setDynFlag Opt_D_dump_stix) )
- , ( "ddump_simpl_stats", NoArg (setDynFlag Opt_D_dump_simpl_stats) )
- , ( "dsource_stats", NoArg (setDynFlag Opt_D_source_stats) )
- , ( "dverbose_core2core", NoArg (setDynFlag Opt_D_verbose_core2core) )
- , ( "dverbose_stg2stg", NoArg (setDynFlag Opt_D_verbose_stg2stg) )
- , ( "ddump_hi_diffs", NoArg (setDynFlag Opt_D_dump_hi_diffs) )
- , ( "ddump_minimal_imports", NoArg (setDynFlag Opt_D_dump_minimal_imports) )
- , ( "DoCoreLinting", NoArg (setDynFlag Opt_DoCoreLinting) )
- , ( "DoStgLinting", NoArg (setDynFlag Opt_DoStgLinting) )
- , ( "DoUSPLinting", NoArg (setDynFlag Opt_DoUSPLinting) )
+ , ( "ddump-all", NoArg (setDynFlag Opt_D_dump_all) )
+ , ( "ddump-most", NoArg (setDynFlag Opt_D_dump_most) )
+ , ( "ddump-absC", NoArg (setDynFlag Opt_D_dump_absC) )
+ , ( "ddump-asm", NoArg (setDynFlag Opt_D_dump_asm) )
+ , ( "ddump-cpranal", NoArg (setDynFlag Opt_D_dump_cpranal) )
+ , ( "ddump-deriv", NoArg (setDynFlag Opt_D_dump_deriv) )
+ , ( "ddump-ds", NoArg (setDynFlag Opt_D_dump_ds) )
+ , ( "ddump-flatC", NoArg (setDynFlag Opt_D_dump_flatC) )
+ , ( "ddump-foreign", NoArg (setDynFlag Opt_D_dump_foreign) )
+ , ( "ddump-inlinings", NoArg (setDynFlag Opt_D_dump_inlinings) )
+ , ( "ddump-occur-anal", NoArg (setDynFlag Opt_D_dump_occur_anal) )
+ , ( "ddump-parsed", NoArg (setDynFlag Opt_D_dump_parsed) )
+ , ( "ddump-realC", NoArg (setDynFlag Opt_D_dump_realC) )
+ , ( "ddump-rn", NoArg (setDynFlag Opt_D_dump_rn) )
+ , ( "ddump-simpl", NoArg (setDynFlag Opt_D_dump_simpl) )
+ , ( "ddump-simpl-iterations", NoArg (setDynFlag Opt_D_dump_simpl_iterations) )
+ , ( "ddump-spec", NoArg (setDynFlag Opt_D_dump_spec) )
+ , ( "ddump-stg", NoArg (setDynFlag Opt_D_dump_stg) )
+ , ( "ddump-stranal", NoArg (setDynFlag Opt_D_dump_stranal) )
+ , ( "ddump-tc", NoArg (setDynFlag Opt_D_dump_tc) )
+ , ( "ddump-types", NoArg (setDynFlag Opt_D_dump_types) )
+ , ( "ddump-rules", NoArg (setDynFlag Opt_D_dump_rules) )
+ , ( "ddump-usagesp", NoArg (setDynFlag Opt_D_dump_usagesp) )
+ , ( "ddump-cse", NoArg (setDynFlag Opt_D_dump_cse) )
+ , ( "ddump-worker-wrapper", NoArg (setDynFlag Opt_D_dump_worker_wrapper) )
+ , ( "dshow-passes", NoArg (setDynFlag Opt_D_show_passes) )
+ , ( "ddump-rn-trace", NoArg (setDynFlag Opt_D_dump_rn_trace) )
+ , ( "ddump-rn-stats", NoArg (setDynFlag Opt_D_dump_rn_stats) )
+ , ( "ddump-stix", NoArg (setDynFlag Opt_D_dump_stix) )
+ , ( "ddump-simpl-stats", NoArg (setDynFlag Opt_D_dump_simpl_stats) )
+ , ( "dsource-stats", NoArg (setDynFlag Opt_D_source_stats) )
+ , ( "dverbose-core2core", NoArg (setDynFlag Opt_D_verbose_core2core) )
+ , ( "dverbose-stg2stg", NoArg (setDynFlag Opt_D_verbose_stg2stg) )
+ , ( "ddump-hi-diffs", NoArg (setDynFlag Opt_D_dump_hi_diffs) )
+ , ( "ddump-hi", NoArg (setDynFlag Opt_D_dump_hi) )
+ , ( "ddump-minimal-imports", NoArg (setDynFlag Opt_D_dump_minimal_imports) )
+ , ( "dcore-lint", NoArg (setDynFlag Opt_DoCoreLinting) )
+ , ( "dstg-lint", NoArg (setDynFlag Opt_DoStgLinting) )
+ , ( "dusagesp-lint", NoArg (setDynFlag Opt_DoUSPLinting) )
------ Warnings ----------------------------------------------------
- , ( "-fwarn-duplicate-exports", NoArg (setDynFlag Opt_WarnDuplicateExports) )
- , ( "-fwarn-hi-shadowing", NoArg (setDynFlag Opt_WarnHiShadows) )
- , ( "-fwarn-incomplete-patterns", NoArg (setDynFlag Opt_WarnIncompletePatterns) )
- , ( "-fwarn-missing-fields", NoArg (setDynFlag Opt_WarnMissingFields) )
- , ( "-fwarn-missing-methods", NoArg (setDynFlag Opt_WarnMissingMethods))
- , ( "-fwarn-missing-signatures", NoArg (setDynFlag Opt_WarnMissingSigs) )
- , ( "-fwarn-name-shadowing", NoArg (setDynFlag Opt_WarnNameShadowing) )
- , ( "-fwarn-overlapping-patterns", NoArg (setDynFlag Opt_WarnOverlappingPatterns ) )
- , ( "-fwarn-simple-patterns", NoArg (setDynFlag Opt_WarnSimplePatterns))
- , ( "-fwarn-type-defaults", NoArg (setDynFlag Opt_WarnTypeDefaults) )
- , ( "-fwarn-unused-binds", NoArg (setDynFlag Opt_WarnUnusedBinds) )
- , ( "-fwarn-unused-imports", NoArg (setDynFlag Opt_WarnUnusedImports) )
- , ( "-fwarn-unused-matches", NoArg (setDynFlag Opt_WarnUnusedMatches) )
- , ( "-fwarn-deprecations", NoArg (setDynFlag Opt_WarnDeprecations) )
+ , ( "fwarn-duplicate-exports", NoArg (setDynFlag Opt_WarnDuplicateExports) )
+ , ( "fwarn-hi-shadowing", NoArg (setDynFlag Opt_WarnHiShadows) )
+ , ( "fwarn-incomplete-patterns", NoArg (setDynFlag Opt_WarnIncompletePatterns) )
+ , ( "fwarn-missing-fields", NoArg (setDynFlag Opt_WarnMissingFields) )
+ , ( "fwarn-missing-methods", NoArg (setDynFlag Opt_WarnMissingMethods))
+ , ( "fwarn-missing-signatures", NoArg (setDynFlag Opt_WarnMissingSigs) )
+ , ( "fwarn-name-shadowing", NoArg (setDynFlag Opt_WarnNameShadowing) )
+ , ( "fwarn-overlapping-patterns", NoArg (setDynFlag Opt_WarnOverlappingPatterns ) )
+ , ( "fwarn-simple-patterns", NoArg (setDynFlag Opt_WarnSimplePatterns))
+ , ( "fwarn-type-defaults", NoArg (setDynFlag Opt_WarnTypeDefaults) )
+ , ( "fwarn-unused-binds", NoArg (setDynFlag Opt_WarnUnusedBinds) )
+ , ( "fwarn-unused-imports", NoArg (setDynFlag Opt_WarnUnusedImports) )
+ , ( "fwarn-unused-matches", NoArg (setDynFlag Opt_WarnUnusedMatches) )
+ , ( "fwarn-deprecations", NoArg (setDynFlag Opt_WarnDeprecations) )
------ Machine dependant (-m<blah>) stuff ---------------------------
------ Compiler flags -----------------------------------------------
, ( "fglasgow-exts", NoArg (setDynFlag Opt_GlasgowExts) )
+ , ( "fno-implicit-prelude", NoArg (setDynFlag Opt_NoImplicitPrelude) )
, ( "fallow-overlapping-instances",
NoArg (setDynFlag Opt_AllowOverlappingInstances) )
-----------------------------------------------------------------------------
-- Build the Hsc static command line opts
-build_hsc_opts :: IO [String]
-build_hsc_opts = do
- opt_C_ <- getStaticOpts opt_C -- misc hsc opts
+buildStaticHscOpts :: IO [String]
+buildStaticHscOpts = do
- -- warnings
- warn_level <- readIORef warning_opt
- let warn_opts = case warn_level of
- W_default -> standardWarnings
- W_ -> minusWOpts
- W_all -> minusWallOpts
- W_not -> []
+ opt_C_ <- getStaticOpts v_Opt_C -- misc hsc opts
-- optimisation
minus_o <- readIORef v_OptLevel
_ -> error "unknown opt level"
-- ToDo: -Ofile
- -- STG passes
- ways_ <- readIORef ways
- let stg_massage | WayProf `elem` ways_ = "-fmassage-stg-for-profiling"
- | otherwise = ""
-
- stg_stats <- readIORef v_StgStats
- let stg_stats_flag | stg_stats = "-dstg-stats"
- | otherwise = ""
-
- let stg_opts = [ stg_massage, stg_stats_flag, "-flet-no-escape" ]
+ let stg_opts = [ "-flet-no-escape" ]
-- let-no-escape always on for now
-- take into account -fno-* flags by removing the equivalent -f*
-- flag from our list.
- anti_flags <- getStaticOpts anti_opt_C
- let basic_opts = opt_C_ ++ warn_opts ++ optimisation_opts ++ stg_opts
+ anti_flags <- getStaticOpts v_Anti_opt_C
+ let basic_opts = opt_C_ ++ optimisation_opts ++ stg_opts
filtered_opts = filter (`notElem` anti_flags) basic_opts
verb <- is_verbose
let hi_vers = "-fhi-version="++cProjectVersionInt
- static <- (do s <- readIORef static; if s then return "-static" else return "")
+ static <- (do s <- readIORef v_Static; if s then return "-static"
+ else return "")
- -- get hi-file suffix
- hisuf <- readIORef hi_suf
-
- -- hi-suffix for packages depends on the build tag.
- package_hisuf <-
- do tag <- readIORef build_tag
- if null tag
- then return "hi"
- else return (tag ++ "_hi")
-
- import_dirs <- readIORef import_paths
- package_import_dirs <- getPackageImportPath
-
- return
- (
- filtered_opts
- ++ [ hi_vers, static, verb ]
- )
+ return ( filtered_opts ++ [ hi_vers, static, verb ] )