diff options
author | dgp <dgp@noemail.net> | 2013-07-11 17:06:35 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-07-11 17:06:35 (GMT) |
commit | 902bac9c2d93c0ef18d1e1ce4c59649ffede6971 (patch) | |
tree | 6e42b0f1a0237610bfd35cd07c8a7d8073d64cdd /generic/tclEnsemble.c | |
parent | 859de2c42a6edfa00ca2f875cd39db9d63d72919 (diff) | |
download | tcl-902bac9c2d93c0ef18d1e1ce4c59649ffede6971.zip tcl-902bac9c2d93c0ef18d1e1ce4c59649ffede6971.tar.gz tcl-902bac9c2d93c0ef18d1e1ce4c59649ffede6971.tar.bz2 |
Have TclMakeEnsemble() set ENSEMBLE_COMPILE at creation, not as a separate
epoch-bumping step.
FossilOrigin-Name: ecb508317b39e25addc3fe188d59002e27b0414c
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 0bb7cb6..680ab45d 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1527,6 +1527,14 @@ TclMakeEnsemble( cmdName = nameParts[nameCount - 1]; } } + + /* + * Switch on compilation always for core ensembles now that we can do + * nice bytecode things with them. Do it now. Waiting until later will + * just cause pointless epoch bumps. + */ + + ensembleFlags |= ENSEMBLE_COMPILE; ensemble = Tcl_CreateEnsemble(interp, cmdName, ns, ensembleFlags); /* @@ -1578,14 +1586,6 @@ TclMakeEnsemble( } } Tcl_SetEnsembleMappingDict(interp, ensemble, mapDict); - - /* - * Switch on compilation always for core ensembles now that we can do - * nice bytecode things with them. - */ - - Tcl_SetEnsembleFlags(interp, ensemble, - ensembleFlags | ENSEMBLE_COMPILE); } Tcl_DStringFree(&buf); |