diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-07 11:54:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-07 11:54:00 +0000 |
| commit | b026c698fddcfeba5d125e09583555f6fbffd5e9 (patch) | |
| tree | 9dc79780e49318de7b9fa12b251444bca291ad6a /src/boot | |
| parent | 52f63170b7e7989ed6720bda143307acbf07dd06 (diff) | |
| download | open-axiom-b026c698fddcfeba5d125e09583555f6fbffd5e9.tar.gz | |
* configure.ac.pamphlet: Add 'debug' to Lisp optimize proclamation
when --enable-checking.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/translator.boot | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 01778e2e..86aada78 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -60,6 +60,10 @@ genModuleFinalization(stream) == REALLYPRETTYPRINT(init,stream) nil +genOptimizeOptions stream == + REALLYPRETTYPRINT + (["PROCLAIM",["QUOTE",["OPTIMIZE",:$LispOptimizeOptions]]],stream) + +++ True if we are translating code written in Old Boot. $translatingOldBoot := false @@ -106,7 +110,8 @@ shoeClLines(a,fn,lines,outfn)== a=nil => shoeNotFound fn $GenVarCounter := 0 shoeOpenOutputFile(stream,outfn,_ - ((for line in lines repeat shoeFileLine(line,stream); + (genOptimizeOptions stream; + (for line in lines repeat shoeFileLine(line,stream); shoeFileTrees(shoeTransformStream a,stream)); genModuleFinalization(stream))) outfn @@ -130,7 +135,8 @@ shoeClCLines(a,fn,lines,outfn)== a=nil => shoeNotFound fn $GenVarCounter := 0 shoeOpenOutputFile(stream,outfn, - (for line in lines repeat shoeFileLine (line,stream); + (genOptimizeOptions stream; + for line in lines repeat shoeFileLine (line,stream); shoeFileTrees(shoeTransformToFile(stream, shoeInclude bAddLineNumber(bRgen a,bIgen 0)),stream); genModuleFinalization(stream))) |