summaryrefslogtreecommitdiffstats
path: root/generic/tclIndexObj.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2020-12-07 16:02:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2020-12-07 16:02:44 (GMT)
commit2f178f93ab97418ebc734320d8c9e2b309906bba (patch)
treed8d55c61bd615b0247e418a73cdaa3e948f4ef42 /generic/tclIndexObj.c
parentbd382d87b3fcb20a757fe65c591c31f0d9f30465 (diff)
parentcf333de0987ad12a325909be7ae372f50d2d28a1 (diff)
downloadtcl-2f178f93ab97418ebc734320d8c9e2b309906bba.zip
tcl-2f178f93ab97418ebc734320d8c9e2b309906bba.tar.gz
tcl-2f178f93ab97418ebc734320d8c9e2b309906bba.tar.bz2
merge 8.6
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r--generic/tclIndexObj.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index b200f6f..7e23931 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -415,9 +415,9 @@ UpdateStringOfIndex(
Tcl_Obj *objPtr)
{
IndexRep *indexRep = objPtr->internalRep.twoPtrValue.ptr1;
- register char *buf;
- register unsigned len;
- register const char *indexStr = EXPAND_OF(indexRep);
+ char *buf;
+ unsigned len;
+ const char *indexStr = EXPAND_OF(indexRep);
len = strlen(indexStr);
buf = ckalloc(len + 1);
@@ -927,7 +927,7 @@ Tcl_WrongNumArgs(
*/
if (origObjv[i]->typePtr == &indexType) {
- register IndexRep *indexRep =
+ IndexRep *indexRep =
origObjv[i]->internalRep.twoPtrValue.ptr1;
elementStr = EXPAND_OF(indexRep);
@@ -977,7 +977,7 @@ Tcl_WrongNumArgs(
*/
if (objv[i]->typePtr == &indexType) {
- register IndexRep *indexRep = objv[i]->internalRep.twoPtrValue.ptr1;
+ IndexRep *indexRep = objv[i]->internalRep.twoPtrValue.ptr1;
Tcl_AppendStringsToObj(objPtr, EXPAND_OF(indexRep), NULL);
} else {
@@ -1069,14 +1069,14 @@ Tcl_ParseArgsObjv(
* successful exit. Will include the name of
* the command. */
int nrem; /* Size of leftovers.*/
- register const Tcl_ArgvInfo *infoPtr;
+ const Tcl_ArgvInfo *infoPtr;
/* Pointer to the current entry in the table
* of argument descriptions. */
const Tcl_ArgvInfo *matchPtr;
/* Descriptor that matches current argument */
Tcl_Obj *curArg; /* Current argument */
const char *str = NULL;
- register char c; /* Second character of current arg (used for
+ char c; /* Second character of current arg (used for
* quick check for matching; use 2nd char.
* because first char. will almost always be
* '-'). */
@@ -1324,7 +1324,7 @@ PrintUsage(
/* Array of command-specific argument
* descriptions. */
{
- register const Tcl_ArgvInfo *infoPtr;
+ const Tcl_ArgvInfo *infoPtr;
int width, numSpaces;
#define NUM_SPACES 20
static const char spaces[] = " ";