summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-07-14 02:03:52 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-07-14 02:03:52 (GMT)
commitd41419c07d90567c76f27ec6c1c7a78ae083d8fd (patch)
tree644671b2959082472a7d18ded9fabb107bb2b7d0 /generic/tclExecute.c
parentc7d86348c2cc3cdd8643cfb967c672969796b165 (diff)
downloadtcl-d41419c07d90567c76f27ec6c1c7a78ae083d8fd.zip
tcl-d41419c07d90567c76f27ec6c1c7a78ae083d8fd.tar.gz
tcl-d41419c07d90567c76f27ec6c1c7a78ae083d8fd.tar.bz2
* generic/tclExecute.c: Remove unneeded TclInterpReady call
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c13
1 files changed, 1 insertions, 12 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 8e6a056..fc1ca9c 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.379 2008/07/14 01:38:00 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.380 2008/07/14 02:03:53 msofer Exp $
*/
#include "tclInt.h"
@@ -1495,17 +1495,6 @@ TclCompileObj(
register ByteCode *codePtr; /* Tcl Internal type of bytecode. */
Namespace *namespacePtr;
- /*
- * Check that the interpreter is ready to execute scripts. Note that we
- * manage the interp's runlevel here: it is a small white lie (maybe), but
- * saves a ++/-- pair at each invocation. Amazingly enough, the impact on
- * performance is noticeable.
- */
-
- if (TclInterpReady(interp) == TCL_ERROR) {
- return NULL;
- }
-
namespacePtr = iPtr->varFramePtr->nsPtr;
/*