summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-02-27 21:44:29 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-02-27 21:44:29 (GMT)
commit4750fd7755b00f56e5f5dc3c27f9d60b770ec5cc (patch)
tree2499e1373119d9dd5871248ee4717b4cbbbf8b73 /generic
parent2417db4d5440b242c585c76222368b87a2d77f29 (diff)
downloadtcl-4750fd7755b00f56e5f5dc3c27f9d60b770ec5cc.zip
tcl-4750fd7755b00f56e5f5dc3c27f9d60b770ec5cc.tar.gz
tcl-4750fd7755b00f56e5f5dc3c27f9d60b770ec5cc.tar.bz2
A few more very minor changes
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmds.c31
1 files changed, 11 insertions, 20 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 79e1640..6453012 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.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: tclCompCmds.c,v 1.99 2007/02/27 21:28:45 dkf Exp $
+ * RCS: @(#) $Id: tclCompCmds.c,v 1.100 2007/02/27 21:44:29 dkf Exp $
*/
#include "tclInt.h"
@@ -1302,11 +1302,10 @@ TclCompileForeachCmd(
Tcl_Token *tokenPtr, *bodyTokenPtr;
unsigned char *jumpPc;
JumpFixup jumpFalseFixup;
- int jumpBackDist, jumpBackOffset, infoIndex, range;
+ int jumpBackDist, jumpBackOffset, infoIndex, range, bodyIndex;
int numWords, numLists, numVars, loopIndex, tempVar, i, j, code;
int savedStackDepth = envPtr->currStackDepth;
DefineLineInformation; /* TIP #280 */
- int bodyIndex;
/*
* We parse the variable list argument words and create two arrays:
@@ -1610,8 +1609,7 @@ DupForeachInfo(
register ForeachInfo *srcPtr = clientData;
ForeachInfo *dupPtr;
register ForeachVarList *srcListPtr, *dupListPtr;
- int numLists = srcPtr->numLists;
- int numVars, i, j;
+ int numVars, i, j, numLists = srcPtr->numLists;
dupPtr = (ForeachInfo *) ckalloc((unsigned)
sizeof(ForeachInfo) + numLists*sizeof(ForeachVarList *));
@@ -1702,9 +1700,8 @@ TclCompileIfCmd(
* to the end of the "if" when that PC is
* determined. */
Tcl_Token *tokenPtr, *testTokenPtr;
- int jumpFalseDist;
int jumpIndex = 0; /* Avoid compiler warning. */
- int numWords, wordIdx, numBytes, j, code;
+ int jumpFalseDist, numWords, wordIdx, numBytes, j, code;
const char *word;
int savedStackDepth = envPtr->currStackDepth;
/* Saved stack depth at the start of the first
@@ -3438,9 +3435,8 @@ TclCompileSwitchCmd(
int noCase; /* Has the -nocase flag been given? */
int foundMode = 0; /* Have we seen a mode flag yet? */
int isListedArms = 0;
- int i;
+ int i, valueIndex;
DefineLineInformation; /* TIP #280 */
- int valueIndex;
/*
* Only handle the following versions:
@@ -4228,13 +4224,11 @@ TclCompileWhileCmd(
{
Tcl_Token *testTokenPtr, *bodyTokenPtr;
JumpFixup jumpEvalCondFixup;
- int testCodeOffset, bodyCodeOffset, jumpDist;
- int range, code;
+ int testCodeOffset, bodyCodeOffset, jumpDist, range, code, boolVal;
int savedStackDepth = envPtr->currStackDepth;
int loopMayEnd = 1; /* This is set to 0 if it is recognized as an
* infinite loop. */
Tcl_Obj *boolObj;
- int boolVal;
DefineLineInformation; /* TIP #280 */
if (parsePtr->numWords != 3) {
@@ -4408,12 +4402,9 @@ PushVarName(
register const char *p;
const char *name, *elName;
register int i, n;
- int nameChars, elNameChars, simpleVarName, localIndex;
-
Tcl_Token *elemTokenPtr = NULL;
- int elemTokenCount = 0;
- int allocedTokens = 0;
- int removedParen = 0;
+ int nameChars, elNameChars, simpleVarName, localIndex;
+ int elemTokenCount = 0, allocedTokens = 0, removedParen = 0;
/*
* Decide if we can use a frame slot for the var/array name or if we need
@@ -5125,7 +5116,7 @@ TclCompileDivOpCmd(
} else if (parsePtr->numWords == 2) {
PushLiteral(envPtr, "1.0", 3);
tokenPtr = TokenAfter(parsePtr->tokenPtr);
- CompileWord(envPtr, tokenPtr, interp,1);
+ CompileWord(envPtr, tokenPtr, interp, 1);
TclEmitOpcode(INST_DIV, envPtr);
return TCL_OK;
} else {
@@ -5137,10 +5128,10 @@ TclCompileDivOpCmd(
return TCL_ERROR;
}
tokenPtr = TokenAfter(parsePtr->tokenPtr);
- CompileWord(envPtr, tokenPtr, interp,1);
+ CompileWord(envPtr, tokenPtr, interp, 1);
for (words=2 ; words<parsePtr->numWords ; words++) {
tokenPtr = TokenAfter(tokenPtr);
- CompileWord(envPtr, tokenPtr, interp,words);
+ CompileWord(envPtr, tokenPtr, interp, words);
TclEmitOpcode(INST_DIV, envPtr);
}
return TCL_OK;