From 984a7acccb19942338e86c016a09739bb0042873 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 21 Oct 2003 20:42:04 +0000
Subject: Removed variables that are no longer used.

---
 generic/tclExecute.c | 3 +--
 generic/tclProc.c    | 5 +----
 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
-- 
cgit v0.12