summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2007-06-14 17:09:14 (GMT)
committerhobbs <hobbs>2007-06-14 17:09:14 (GMT)
commit8a68f98d38f0ab0c1dca80d0ac18551302c0a12a (patch)
tree6938265d040755f77c0e54622f8075e3fc54258b
parent4a0b54903a95f70e6582b4be1b83762c970dc81c (diff)
downloadtcl-8a68f98d38f0ab0c1dca80d0ac18551302c0a12a.zip
tcl-8a68f98d38f0ab0c1dca80d0ac18551302c0a12a.tar.gz
tcl-8a68f98d38f0ab0c1dca80d0ac18551302c0a12a.tar.bz2
remove C99 var declaration
-rw-r--r--generic/tclProc.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index ff92c96..4468e41 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.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: tclProc.c,v 1.118 2007/06/14 15:56:07 dgp Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.119 2007/06/14 17:09:14 hobbs Exp $
*/
#include "tclInt.h"
@@ -1708,6 +1708,8 @@ ProcCompileProc(
}
}
if (bodyPtr->typePtr != &tclByteCodeType) {
+ Tcl_HashEntry *hePtr;
+
#ifdef TCL_COMPILE_DEBUG
if (tclTraceCompile >= 1) {
/*
@@ -1808,8 +1810,7 @@ ProcCompileProc(
* was saved by 'Tcl_ProcObjCmd' (using linePBodyPtr).
*/
- Tcl_HashEntry *hePtr = Tcl_FindHashEntry(iPtr->linePBodyPtr,
- (char *) procPtr);
+ hePtr = Tcl_FindHashEntry(iPtr->linePBodyPtr, (char *) procPtr);
/*
* Constructed saved frame has body as word 0. See Tcl_ProcObjCmd.