diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
| commit | 4796062aab8a24df621cf33dbe862f72b36986f8 (patch) | |
| tree | 29b9e228043f436e5eaff478e6178f21c6c185ee /generic/tclCompCmds.c | |
| parent | 7934f521d7f3b837fc6430fe78d9320756af1d82 (diff) | |
| parent | 2d85a1f9deb33cad80923f44a691189b7aefd8a5 (diff) | |
| download | tcl-4796062aab8a24df621cf33dbe862f72b36986f8.zip tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.gz tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 56a98aa..a2c1c43 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2914,7 +2914,7 @@ DupForeachInfo( { ForeachInfo *srcPtr = (ForeachInfo *)clientData; ForeachInfo *dupPtr; - register ForeachVarList *srcListPtr, *dupListPtr; + ForeachVarList *srcListPtr, *dupListPtr; int numVars, i, j, numLists = srcPtr->numLists; dupPtr = (ForeachInfo *)ckalloc(sizeof(ForeachInfo) @@ -2964,7 +2964,7 @@ FreeForeachInfo( ForeachInfo *infoPtr = (ForeachInfo *)clientData; ForeachVarList *listPtr; int numLists = infoPtr->numLists; - register int i; + int i; for (i = 0; i < numLists; i++) { listPtr = infoPtr->varLists[i]; @@ -3439,9 +3439,9 @@ TclPushVarName( int *localIndexPtr, /* Must not be NULL. */ int *isScalarPtr) /* Must not be NULL. */ { - register const char *p; + const char *p; const char *last, *name, *elName; - register int n; + int n; Tcl_Token *elemTokenPtr = NULL; int nameLen, elNameLen, simpleVarName, localIndex; int elemTokenCount = 0, allocedTokens = 0, removedParen = 0; |