From f89f2984acf2ad386f851f779fca8894ad7ec781 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:27:44 +0000
Subject: [PATCH] [project @ 1998-08-14 11:27:44 by sof] New options:
 -ddump-foreign-stubs, -femit-extern-decls, opts for output
 files for foreign decl stubbery, (the oh-so cool)
 -freport-compile, -fhi-version

---
 ghc/compiler/main/CmdLineOpts.lhs |   20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 9fa7b60..0e41ef3 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -1,5 +1,5 @@
 %
-% (c) The AQUA Project, Glasgow University, 1996
+% (c) The AQUA Project, Glasgow University, 1996-98
 %
 \section[CmdLineOpts]{Things to do with command-line options}
 
@@ -26,6 +26,7 @@ module CmdLineOpts (
 	opt_D_dump_deriv,
 	opt_D_dump_ds,
 	opt_D_dump_flatC,
+	opt_D_dump_foreign,
 	opt_D_dump_occur_anal,
 	opt_D_dump_rdr,
 	opt_D_dump_realC,
@@ -48,12 +49,14 @@ module CmdLineOpts (
 	opt_DoSemiTagging,
 	opt_DoEtaReduction,
 	opt_DoTickyProfiling,
+	opt_EmitCExternDecls,
 	opt_EnsureSplittableC,
 	opt_FoldrBuildOn,
 	opt_ForConcurrent,
 	opt_GlasgowExts,
 	opt_GranMacros,
 	opt_HiMap,
+	opt_HiVersion,
 	opt_IgnoreIfacePragmas,
 	opt_IrrefutableTuples,
 	opt_LiberateCaseThreshold,
@@ -70,8 +73,11 @@ module CmdLineOpts (
 	opt_ProduceC,
 	opt_ProduceHi,
 	opt_ProduceS,
+	opt_ProduceExportCStubs,
+	opt_ProduceExportHStubs,
 	opt_ReportWhyUnfoldingsDisallowed,
 	opt_ReturnInRegsThreshold,
+	opt_ReportCompile,
 	opt_SccGroup,
 	opt_SccProfilingOn,
 	opt_ShowImportSpecs,
@@ -305,6 +311,7 @@ opt_D_dump_asm			= lookUp  SLIT("-ddump-asm")
 opt_D_dump_deriv		= lookUp  SLIT("-ddump-deriv")
 opt_D_dump_ds			= lookUp  SLIT("-ddump-ds")
 opt_D_dump_flatC		= lookUp  SLIT("-ddump-flatC")
+opt_D_dump_foreign		= lookUp  SLIT("-ddump-foreign-stubs")
 opt_D_dump_occur_anal		= lookUp  SLIT("-ddump-occur-anal")
 opt_D_dump_rdr			= lookUp  SLIT("-ddump-rdr")
 opt_D_dump_realC		= lookUp  SLIT("-ddump-realC")
@@ -324,15 +331,17 @@ opt_D_verbose_core2core		= lookUp  SLIT("-dverbose-simpl")
 opt_D_verbose_stg2stg		= lookUp  SLIT("-dverbose-stg")
 opt_DoCoreLinting		= lookUp  SLIT("-dcore-lint")
 opt_DoStgLinting		= lookUp  SLIT("-dstg-lint")
+opt_DoEtaReduction		= lookUp  SLIT("-fdo-eta-reduction")
 opt_DoSemiTagging		= lookUp  SLIT("-fsemi-tagging")
 opt_DoTickyProfiling		= lookUp  SLIT("-fticky-ticky")
-opt_DoEtaReduction		= lookUp  SLIT("-fdo-eta-reduction")
+opt_EmitCExternDecls	        = lookUp  SLIT("-femit-extern-decls")
 opt_EnsureSplittableC		= lookUp  SLIT("-fglobalise-toplev-names")
 opt_FoldrBuildOn		= lookUp  SLIT("-ffoldr-build-on")
 opt_ForConcurrent		= lookUp  SLIT("-fconcurrent")
 opt_GranMacros			= lookUp  SLIT("-fgransim")
 opt_GlasgowExts			= lookUp  SLIT("-fglasgow-exts")
-opt_HiMap 			= lookup_str "-himap="  -- file saying where to look for .hi files
+opt_HiMap 			= lookup_str "-himap="       -- file saying where to look for .hi files
+opt_HiVersion			= lookup_def_int "-fhi-version=" 0 -- what version we're compiling.
 opt_IgnoreIfacePragmas		= lookUp  SLIT("-fignore-interface-pragmas")
 opt_IrrefutableTuples		= lookUp  SLIT("-firrefutable-tuples")
 opt_MultiParamClasses		= opt_GlasgowExts
@@ -347,8 +356,12 @@ opt_PprStyle_User		= lookUp  SLIT("-dppr-user")
 opt_PprUserLength	        = lookup_def_int "-dppr-user-length" 5 --ToDo: give this a name
 opt_ProduceC  			= lookup_str "-C="
 opt_ProduceS  			= lookup_str "-S="
+opt_ProduceExportCStubs		= lookup_str "-F="
+opt_ProduceExportHStubs		= lookup_str "-FH="
 opt_ProduceHi 			= lookup_str "-hifile=" -- the one to produce this time 
 opt_ReportWhyUnfoldingsDisallowed= lookUp SLIT("-freport-disallowed-unfoldings")
+opt_ReportCompile                = lookUp SLIT("-freport-compile")
+opt_ReturnInRegsThreshold	= lookup_int "-freturn-in-regs-threshold"
 opt_SccProfilingOn		= lookUp  SLIT("-fscc-profiling")
 opt_ShowImportSpecs		= lookUp  SLIT("-fshow-import-specs")
 opt_SigsRequired		= lookUp  SLIT("-fsignatures-required")
@@ -359,7 +372,6 @@ opt_SpecialiseOverloaded	= lookUp  SLIT("-fspecialise-overloaded")
 opt_SpecialiseTrace		= lookUp  SLIT("-ftrace-specialisation")
 opt_SpecialiseUnboxed		= lookUp  SLIT("-fspecialise-unboxed")
 opt_StgDoLetNoEscapes		= lookUp  SLIT("-flet-no-escape")
-opt_ReturnInRegsThreshold	= lookup_int "-freturn-in-regs-threshold"
 opt_SccGroup  			= lookup_str "-G="
 opt_Verbose			= lookUp  SLIT("-v")
 
-- 
1.7.10.4