From: sof <unknown>
Date: Tue, 2 Mar 1999 17:46:51 +0000 (+0000)
Subject: [project @ 1999-03-02 17:46:51 by sof]
X-Git-Tag: Approximately_9120_patches~6460
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b1b1d6ccff483df6d7cc03b6dac87e54c46bf305;p=ghc-hetmet.git

[project @ 1999-03-02 17:46:51 by sof]
One new option:

 -static    produce code for use in statically linked binaries.
            The driver makes sure that this option is on for
	    platforms that doesn't support DLLs. Leaving it
	    off won't have any bad effects though.
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 8bf17a6..30412e8 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -80,6 +80,7 @@ module CmdLineOpts (
 	opt_SccGroup,
 	opt_SccProfilingOn,
 	opt_SourceUnchanged,
+	opt_Static,
 	opt_StgDoLetNoEscapes,
 	opt_Parallel,
 
@@ -338,6 +339,7 @@ opt_SccProfilingOn		= lookUp  SLIT("-fscc-profiling")
 opt_SourceUnchanged		= lookUp  SLIT("-fsource-unchanged")
 opt_StgDoLetNoEscapes		= lookUp  SLIT("-flet-no-escape")
 opt_Parallel			= lookUp  SLIT("-fparallel")
+opt_Static			= lookUp  SLIT("-static")
 opt_SccGroup  			= lookup_str "-G="
 opt_Verbose			= lookUp  SLIT("-v")
 
diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index c38079e..717c58d 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -27,7 +27,7 @@ import CodeGen		( codeGen )
 import AsmCodeGen	( dumpRealAsm, writeRealAsm )
 #endif
 
-import OccName		( Module, moduleString )
+import Module		( Module, moduleString )
 import AbsCSyn		( absCNop )
 import AbsCUtils	( flattenAbsC )
 import CmdLineOpts
@@ -120,7 +120,8 @@ doIt (core_cmds, stg_cmds)
     -- ******* TYPECHECKER
     show_pass "TypeCheck" 				>>
     _scc_     "TypeCheck"
-    typecheckModule tc_uniqs rn_name_supply rn_mod	>>= \ maybe_tc_stuff ->
+    typecheckModule tc_uniqs rn_name_supply iface_file_stuff rn_mod
+						        >>= \ maybe_tc_stuff ->
     case maybe_tc_stuff of {
 	Nothing -> ghcExit 1;	-- Type checker failed