diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
| commit | ab449cd1d2b045f11c52324c43feb38f00d12dda (patch) | |
| tree | 67ff12657f597df926639a6aef0753add8985a0a /generic/tclBinary.c | |
| parent | be3995f91a73707ad23aa2454b143f6ee0301005 (diff) | |
| parent | 62d4e2a24eedc77e3aff652f43cf553f8eecca3a (diff) | |
| download | tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.zip tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.gz tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 053c58e..83c323b 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2275,8 +2275,8 @@ ScanNumber( if (*numberCachePtrPtr == NULL) { return Tcl_NewWideIntObj(value); } else { - register Tcl_HashTable *tablePtr = *numberCachePtrPtr; - register Tcl_HashEntry *hPtr; + Tcl_HashTable *tablePtr = *numberCachePtrPtr; + Tcl_HashEntry *hPtr; int isNew; hPtr = Tcl_CreateHashEntry(tablePtr, INT2PTR(value), &isNew); @@ -2284,7 +2284,7 @@ ScanNumber( return Tcl_GetHashValue(hPtr); } if (tablePtr->numEntries <= BINARY_SCAN_MAX_CACHE) { - register Tcl_Obj *objPtr = Tcl_NewWideIntObj(value); + Tcl_Obj *objPtr = Tcl_NewWideIntObj(value); Tcl_IncrRefCount(objPtr); Tcl_SetHashValue(hPtr, objPtr); @@ -2403,7 +2403,7 @@ DeleteScanNumberCache( hEntry = Tcl_FirstHashEntry(numberCachePtr, &search); while (hEntry != NULL) { - register Tcl_Obj *value = Tcl_GetHashValue(hEntry); + Tcl_Obj *value = Tcl_GetHashValue(hEntry); if (value != NULL) { Tcl_DecrRefCount(value); |