diff options
| author | mig <mig> | 2013-12-18 16:06:22 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-18 16:06:22 (GMT) |
| commit | 2111573919f6f8e8327c705b2df11131b2bf6b95 (patch) | |
| tree | 35a294cbee8763fa0270415cf220c0d8f1c8c44d /generic/tclCompile.c | |
| parent | 12a14105a15ca9bae71b2020fdc9d1c1b1b95dff (diff) | |
| parent | 4cc4d69fe462a3661da5df84b1897b9959f6d5fd (diff) | |
| download | tcl-2111573919f6f8e8327c705b2df11131b2bf6b95.zip tcl-2111573919f6f8e8327c705b2df11131b2bf6b95.tar.gz tcl-2111573919f6f8e8327c705b2df11131b2bf6b95.tar.bz2 | |
Making the optimizer pluggable by extensions
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 6c2e2b6..525571d 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -765,7 +765,9 @@ TclSetByteCodeFromAny( * instruction generator boundaries. */ - TclOptimizeBytecode(&compEnv); + if (iPtr->extra.optimizer) { + (iPtr->extra.optimizer)(&compEnv); + } /* * Invoke the compilation hook procedure if one exists. |