diff options
author | dos-reis <gdr@axiomatics.org> | 2009-06-13 17:29:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-06-13 17:29:24 +0000 |
commit | 132209605a569012699d48f985c09c4f5826a0d2 (patch) | |
tree | a54c76adbb5a724af17dcfe07942d0a387f73a62 /src/interp | |
parent | 60ac954f5d873a609675ee63188f09d01b91a6de (diff) | |
download | open-axiom-132209605a569012699d48f985c09c4f5826a0d2.tar.gz |
* interp/sys-constants.boot ($defaultOptimizationLevel): New.
* interp/sys-driver.boot (initializeGlobalState): Use it for
default initialization level.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/sys-constants.boot | 3 | ||||
-rw-r--r-- | src/interp/sys-driver.boot | 3 |
2 files changed, 5 insertions, 1 deletions
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]))) |