summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-11 17:06:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-11 17:06:35 (GMT)
commit6da16cce5001da699a5d43e075eaf706b8d68d63 (patch)
tree476416964c514145fc26b0762b795af950e68710
parent879263daeede5edbf8536cab6eba690b9a7cad4a (diff)
downloadtcl-6da16cce5001da699a5d43e075eaf706b8d68d63.zip
tcl-6da16cce5001da699a5d43e075eaf706b8d68d63.tar.gz
tcl-6da16cce5001da699a5d43e075eaf706b8d68d63.tar.bz2
Have TclMakeEnsemble() set ENSEMBLE_COMPILE at creation, not as a separate
epoch-bumping step.
-rw-r--r--generic/tclEnsemble.c16
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);