diff options
| author | mig <mig> | 2013-12-18 15:34:39 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-18 15:34:39 (GMT) |
| commit | 0b16f38c48601182e39f3f7dd425878de206d5fc (patch) | |
| tree | 35a294cbee8763fa0270415cf220c0d8f1c8c44d /generic/tclCompile.c | |
| parent | 24e4504f1396ed210942a2d4ddb747fcf52a641e (diff) | |
| download | tcl-0b16f38c48601182e39f3f7dd425878de206d5fc.zip tcl-0b16f38c48601182e39f3f7dd425878de206d5fc.tar.gz tcl-0b16f38c48601182e39f3f7dd425878de206d5fc.tar.bz2 | |
Making the optimizer pluggable by extensions; please review for committing to trunk
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. |