diff options
author | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
commit | cb0803df0cdcda3e486b73757f4522b467d90a83 (patch) | |
tree | 48845410ef798fd91e8246e9d6b9925f4bbe3ad8 /generic/tclEnsemble.c | |
parent | d86dc18415900f56ffc3591cf7dceb210f3b3c9d (diff) | |
parent | a398b126a43e46efa6d6044b0bcf57a4b9385c4e (diff) | |
download | tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.zip tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.tar.gz tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.tar.bz2 |
merge trunk
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); |