diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-13 03:20:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-13 03:20:31 +0000 |
| commit | 2b67e7c6078a1fe400bcac82fd5b071cee643f8f (patch) | |
| tree | 256f6b18267054c25440025b1ad360b7448064e4 /src/interp | |
| parent | 5f863b1ca407b898fd3bf788cb3aaffdb2701d2b (diff) | |
| download | open-axiom-2b67e7c6078a1fe400bcac82fd5b071cee643f8f.tar.gz | |
* interp/g-opt.boot: Rework. Schedule conditional splitting
before changing %LETs to %stores. Run beta reduction and
condtional splitting afterward, one more time.
(optimizeFunctionDef): Simplify.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index bdca2d74..20b1b962 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -318,8 +318,10 @@ spliceSeq! x == walkWith!(x,function f) where ++ a lower intermediate form, applying several transformations ++ generaly intended to improve quality and efficiency. optimize! x == - simplifyVMForm spliceSeq! packWhen! spliceSeq! packWhen! transformIF! - removeSeq! inlineLocals! groupTranscients! reduceXLAM! x + x := spliceSeq! packWhen! transformIF! x + changeVariableDefinitionToStore(x,nil) + simplifyVMForm spliceSeq! packWhen! inlineLocals! + groupTranscients! removeSeq! reduceXLAM! x ++ A non-mutating version of `optimize!'. optimize x == @@ -330,9 +332,7 @@ optimizeFunctionDef(def) == sayBrightlyI bright '"Original LISP code:" pp def - expr := copyTree second def - changeVariableDefinitionToStore(expr.absBody,expr.absParms) - expr := optimize! expr + expr := optimize! copyTree second def if $reportOptimization then sayBrightlyI bright '"Intermediate VM code:" |