[project @ 2001-01-12 11:04:45 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / DriverState.hs

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 99fee2b..70a80b8 100644 (file)
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.21 2001/01/08 12:31:34 rrt Exp $
+-- $Id: DriverState.hs,v 1.23 2001/01/12 11:04:45 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -244,14 +244,15 @@ GLOBAL_VAR(v_Strictness,                  True,  Bool)
 GLOBAL_VAR(v_CPR,                      True,  Bool)
 GLOBAL_VAR(v_CSE,                      True,  Bool)
 
-hsc_minusO2_flags = hsc_minusO_flags   -- for now
-
+-- these are the static flags you get without -O.
 hsc_minusNoO_flags =
        [ 
        "-fignore-interface-pragmas",
-       "-fomit-interface-pragmas"
+       "-fomit-interface-pragmas",
+       "-flet-no-escape"
        ]
 
+-- these are the static flags you get when -O is on.
 hsc_minusO_flags =
   [ 
        "-ffoldr-build-on",
@@ -259,9 +260,12 @@ hsc_minusO_flags =
        "-fdo-lambda-eta-expansion",
        "-fcase-of-case",
        "-fcase-merge",
-       "-flet-to-case"
+       "-flet-to-case",
+       "-flet-no-escape"
    ]
 
+hsc_minusO2_flags = hsc_minusO_flags   -- for now
+
 getStaticOptimisationFlags 0 = hsc_minusNoO_flags
 getStaticOptimisationFlags 1 = hsc_minusO_flags
 getStaticOptimisationFlags n = hsc_minusO2_flags
@@ -654,6 +658,7 @@ GLOBAL_VAR(v_Pgm_m,   error "pgm_m", String)
 GLOBAL_VAR(v_Pgm_s,   error "pgm_s", String)
 GLOBAL_VAR(v_Pgm_a,   cGCC,          String)
 GLOBAL_VAR(v_Pgm_l,   cGCC,          String)
+GLOBAL_VAR(v_Pgm_dll, cMkDLL,        String)
 
 GLOBAL_VAR(v_Opt_dep,    [], [String])
 GLOBAL_VAR(v_Anti_opt_C, [], [String])