diff options
author | mig <mig@noemail.net> | 2013-12-18 15:34:39 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2013-12-18 15:34:39 (GMT) |
commit | b28f5fdcb4f804fd59372b5f5f5ab5e6b93e4165 (patch) | |
tree | f1e8bff922acc40f6e6a1c736947dc7b782dae12 /generic/tclCompile.c | |
parent | b11cfd8f95bd831e03dddfd4495148d51fd2e91b (diff) | |
download | tcl-b28f5fdcb4f804fd59372b5f5f5ab5e6b93e4165.zip tcl-b28f5fdcb4f804fd59372b5f5f5ab5e6b93e4165.tar.gz tcl-b28f5fdcb4f804fd59372b5f5f5ab5e6b93e4165.tar.bz2 |
Making the optimizer pluggable by extensions; please review for committing to trunk
FossilOrigin-Name: 66649275ed3cd4587e7d2f05b8f036abf49057d4
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. |