diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-12-07 16:02:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-12-07 16:02:44 (GMT) |
| commit | 2f178f93ab97418ebc734320d8c9e2b309906bba (patch) | |
| tree | d8d55c61bd615b0247e418a73cdaa3e948f4ef42 /generic/tclBinary.c | |
| parent | bd382d87b3fcb20a757fe65c591c31f0d9f30465 (diff) | |
| parent | cf333de0987ad12a325909be7ae372f50d2d28a1 (diff) | |
| download | tcl-2f178f93ab97418ebc734320d8c9e2b309906bba.zip tcl-2f178f93ab97418ebc734320d8c9e2b309906bba.tar.gz tcl-2f178f93ab97418ebc734320d8c9e2b309906bba.tar.bz2 | |
merge 8.6
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 78cdd42..8520ec7 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2146,8 +2146,8 @@ ScanNumber( if (*numberCachePtrPtr == NULL) { return Tcl_NewLongObj(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); @@ -2155,7 +2155,7 @@ ScanNumber( return Tcl_GetHashValue(hPtr); } if (tablePtr->numEntries <= BINARY_SCAN_MAX_CACHE) { - register Tcl_Obj *objPtr = Tcl_NewLongObj(value); + Tcl_Obj *objPtr = Tcl_NewLongObj(value); Tcl_IncrRefCount(objPtr); Tcl_SetHashValue(hPtr, objPtr); @@ -2274,7 +2274,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); |