summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2007-06-09 21:58:32 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2007-06-09 21:58:32 (GMT)
commit4aae1a1f748ca733bab588830c03a9faa51b29e7 (patch)
treeece36ad76c631f0eba2568fe82309168d2dabf4e
parenta9c634a7974da04b7fefa4fa3062e41e8ccfec6e (diff)
downloadtcl-4aae1a1f748ca733bab588830c03a9faa51b29e7.zip
tcl-4aae1a1f748ca733bab588830c03a9faa51b29e7.tar.gz
tcl-4aae1a1f748ca733bab588830c03a9faa51b29e7.tar.bz2
* generic/tclExecute.c (INST_INVOKE): isolated two vars to the
small block where they are actually used.
-rw-r--r--ChangeLog3
-rw-r--r--generic/tclExecute.c6
2 files changed, 6 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 302f890..8fbf778 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2007-06-09 Miguel Sofer <msofer@users.sf.net>
+ * generic/tclExecute.c (INST_INVOKE): isolated two vars to the
+ small block where they are actually used.
+
* generic/tclObj.c (Tcl_GetCommandFromObj): rewritten to make the
logic clearer; slightly faster too.
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index f08333d..edf9e4a 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -12,7 +12,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.287 2007/06/09 20:12:55 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.288 2007/06/09 21:58:32 msofer Exp $
*/
#include "tclInt.h"
@@ -1863,8 +1863,6 @@ TclExecuteByteCode(
doInvocation:
{
Tcl_Obj **objv = &OBJ_AT_DEPTH(objc-1);
- int length;
- const char *bytes;
Command *cmdPtr;
#ifdef TCL_COMPILE_DEBUG
@@ -1933,6 +1931,8 @@ TclExecuteByteCode(
* string to pass to TclEvalObjvInternal; note that a copy of
* the string will be made there to include the ending \0.
*/
+ int length;
+ const char *bytes;
bytes = GetSrcInfoForPc(pc, codePtr, &length);
result = TclEvalObjvInternal(interp, objc, objv, bytes,