summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-10-21 20:42:04 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-10-21 20:42:04 (GMT)
commit984a7acccb19942338e86c016a09739bb0042873 (patch)
treebda6cc6bd631609293c7c9d0efb6b63984fda7fe
parent1a2fd83adccf82ab95aa2a1360a348700c5cfdbb (diff)
downloadtcl-984a7acccb19942338e86c016a09739bb0042873.zip
tcl-984a7acccb19942338e86c016a09739bb0042873.tar.gz
tcl-984a7acccb19942338e86c016a09739bb0042873.tar.bz2
Removed variables that are no longer used.
-rw-r--r--generic/tclExecute.c3
-rw-r--r--generic/tclProc.c5
2 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 6f26e10..f794543 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -11,7 +11,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.111 2003/10/14 15:44:52 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.112 2003/10/21 20:42:04 dgp Exp $
*/
#include "tclInt.h"
@@ -4431,7 +4431,6 @@ ValidatePcAndStackTop(codePtr, pc, stackTop, stackLowerBound)
if ((stackTop < stackLowerBound) || (stackTop > stackUpperBound)) {
int numChars;
char *cmd = GetSrcInfoForPc(pc, codePtr, &numChars);
- char *ellipsis = "";
fprintf(stderr, "\nBad stack top %d at pc %u in TclExecuteByteCode (min %i, max %i)",
stackTop, relativePc, stackLowerBound, stackUpperBound);
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 9f0b46b..bec3ed9 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclProc.c,v 1.47 2003/10/14 15:44:53 dgp Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.48 2003/10/21 20:42:05 dgp Exp $
*/
#include "tclInt.h"
@@ -1173,9 +1173,6 @@ TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
}
if (bodyPtr->typePtr != &tclByteCodeType) {
#ifdef TCL_COMPILE_DEBUG
- int numChars;
- char *ellipsis;
-
if (tclTraceCompile >= 1) {
/*
* Display a line summarizing the top level command we