From 132209605a569012699d48f985c09c4f5826a0d2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 13 Jun 2009 17:29:24 +0000
Subject: 	* interp/sys-constants.boot ($defaultOptimizationLevel): New. 
 * interp/sys-driver.boot (initializeGlobalState): Use it for 	default
 initialization level.

---
 src/interp/sys-constants.boot | 3 +++
 src/interp/sys-driver.boot    | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 000b2b4b..b8aa8983 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -734,6 +734,9 @@ $SpadReaderTag ==
 
 --%
 
+++ Default optimization level
+$defaultOptimizationLevel == 2
+
 ++ List of operator names that can be overloaded in libraries.
 $OperatorFunctionNames ==
   ["**", "^", "*", "/", "rem", "quo", "mod", "div", "exquo",
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index b4d23d29..58b36e74 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -191,6 +191,8 @@ initializeGlobalState() ==
   $compileExportsOnly := getOptionValue "exports-only"
   $compileDefaultsOnly := getOptionValue "defaults-only"
   $reportOptimization := getOptionValue "show-insn"
+  setCompilerOptimizations(getOptionValue "optimize" or
+                             $defaultOptimizationLevel)
   GCMSG(NIL)
   if have_to then
     $superHash := MAKE_-HASHTABLE('UEQUAL)
@@ -268,7 +270,6 @@ compileSpadLibrary(progname,options,file) ==
   $verbose := false
   $ProcessInteractiveValue := true
   $PrintCompilerMessageIfTrue := $verbose
-  setCompilerOptimizations getOptionValue "optimize"
   CATCH($intTopLevel,
     CATCH("SpadCompileItem",
      CATCH($SpadReaderTag,compiler [file])))
-- 
cgit v1.2.3