summaryrefslogtreecommitdiffstats
path: root/generic/tclStringObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclStringObj.c')
-rw-r--r--generic/tclStringObj.c88
1 files changed, 44 insertions, 44 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index a615397..7abebb3 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -201,7 +201,7 @@ GrowUnicodeBuffer(
*/
size_t limit = STRING_MAXCHARS - needed;
- size_t extra = needed - stringPtr->numChars1
+ size_t extra = needed - stringPtr->numChars
+ TCL_MIN_UNICHAR_GROWTH;
size_t growth = (extra > limit) ? limit : extra;
@@ -436,7 +436,7 @@ Tcl_GetCharLength(
SetStringFromAny(NULL, objPtr);
stringPtr = GET_STRING(objPtr);
- numChars = stringPtr->numChars1;
+ numChars = stringPtr->numChars;
/*
* If numChars is unknown, compute it.
@@ -444,7 +444,7 @@ Tcl_GetCharLength(
if (numChars == -1) {
TclNumUtfChars(numChars, objPtr->bytes, objPtr->length);
- stringPtr->numChars1 = numChars;
+ stringPtr->numChars = numChars;
}
return numChars;
}
@@ -498,10 +498,10 @@ Tcl_GetUniChar(
* If numChars is unknown, compute it.
*/
- if (stringPtr->numChars1 == (size_t)-1) {
- TclNumUtfChars(stringPtr->numChars1, objPtr->bytes, objPtr->length);
+ if (stringPtr->numChars == (size_t)-1) {
+ TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length);
}
- if (stringPtr->numChars1 == (size_t)objPtr->length) {
+ if (stringPtr->numChars == (size_t)objPtr->length) {
return (Tcl_UniChar) objPtr->bytes[index];
}
FillUnicodeRep(objPtr);
@@ -575,7 +575,7 @@ Tcl_GetUnicodeFromObj(
}
if (lengthPtr != NULL) {
- *lengthPtr = stringPtr->numChars1;
+ *lengthPtr = stringPtr->numChars;
}
return stringPtr->unicode;
}
@@ -632,10 +632,10 @@ Tcl_GetRange(
* If numChars is unknown, compute it.
*/
- if (stringPtr->numChars1 == (size_t)-1) {
- TclNumUtfChars(stringPtr->numChars1, objPtr->bytes, objPtr->length);
+ if (stringPtr->numChars == (size_t)-1) {
+ TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length);
}
- if (stringPtr->numChars1 == (size_t)objPtr->length) {
+ if (stringPtr->numChars == (size_t)objPtr->length) {
newObjPtr = Tcl_NewStringObj(objPtr->bytes + first, last-first+1);
/*
@@ -644,7 +644,7 @@ Tcl_GetRange(
SetStringFromAny(NULL, newObjPtr);
stringPtr = GET_STRING(newObjPtr);
- stringPtr->numChars1 = newObjPtr->length;
+ stringPtr->numChars = newObjPtr->length;
return newObjPtr;
}
FillUnicodeRep(objPtr);
@@ -782,7 +782,7 @@ Tcl_SetObjLength(
* Invalidate the unicode data.
*/
- stringPtr->numChars1 = (size_t)-1;
+ stringPtr->numChars = (size_t)-1;
stringPtr->hasUnicode = 0;
} else {
/*
@@ -800,7 +800,7 @@ Tcl_SetObjLength(
* Mark the new end of the unicode string
*/
- stringPtr->numChars1 = length;
+ stringPtr->numChars = length;
stringPtr->unicode[length] = 0;
stringPtr->hasUnicode = 1;
@@ -892,7 +892,7 @@ Tcl_AttemptSetObjLength(
* Invalidate the unicode data.
*/
- stringPtr->numChars1 = (size_t)-1;
+ stringPtr->numChars = (size_t)-1;
stringPtr->hasUnicode = 0;
} else {
/*
@@ -916,7 +916,7 @@ Tcl_AttemptSetObjLength(
*/
stringPtr->unicode[length] = 0;
- stringPtr->numChars1 = length;
+ stringPtr->numChars = length;
stringPtr->hasUnicode = 1;
/*
@@ -999,7 +999,7 @@ SetUnicodeObj(
stringPtr->maxChars = numChars;
memcpy(stringPtr->unicode, unicode, numChars * sizeof(Tcl_UniChar));
stringPtr->unicode[numChars] = 0;
- stringPtr->numChars1 = numChars;
+ stringPtr->numChars = numChars;
stringPtr->hasUnicode = 1;
TclInvalidateStringRep(objPtr);
@@ -1071,7 +1071,7 @@ Tcl_AppendLimitedToObj(
SetStringFromAny(NULL, objPtr);
stringPtr = GET_STRING(objPtr);
- if (stringPtr->hasUnicode && (stringPtr->numChars1+1) > 1) {
+ if (stringPtr->hasUnicode && (stringPtr->numChars+1) > 1) {
AppendUtfToUnicodeRep(objPtr, bytes, toCopy);
} else {
AppendUtfToUtfRep(objPtr, bytes, toCopy);
@@ -1082,7 +1082,7 @@ Tcl_AppendLimitedToObj(
}
stringPtr = GET_STRING(objPtr);
- if (stringPtr->hasUnicode && (stringPtr->numChars1+1) > 1) {
+ if (stringPtr->hasUnicode && (stringPtr->numChars+1) > 1) {
AppendUtfToUnicodeRep(objPtr, ellipsis, strlen(ellipsis));
} else {
AppendUtfToUtfRep(objPtr, ellipsis, strlen(ellipsis));
@@ -1293,16 +1293,16 @@ Tcl_AppendObjToObj(
bytes = TclGetStringFromObj(appendObjPtr, &length);
- numChars = stringPtr->numChars1;
+ numChars = stringPtr->numChars;
if ((numChars >= 0) && (appendObjPtr->typePtr == &tclStringType)) {
String *appendStringPtr = GET_STRING(appendObjPtr);
- appendNumChars = appendStringPtr->numChars1;
+ appendNumChars = appendStringPtr->numChars;
}
AppendUtfToUtfRep(objPtr, bytes, length);
if (numChars >= 0 && appendNumChars != (size_t)-1) {
- stringPtr->numChars1 = numChars + appendNumChars;
+ stringPtr->numChars = numChars + appendNumChars;
}
}
@@ -1350,7 +1350,7 @@ AppendUnicodeToUnicodeRep(
* explanation of this growth algorithm.
*/
- numChars = stringPtr->numChars1 + appendNumChars;
+ numChars = stringPtr->numChars + appendNumChars;
stringCheckLimits(numChars);
if (numChars > stringPtr->maxChars) {
@@ -1385,11 +1385,11 @@ AppendUnicodeToUnicodeRep(
*/
if (unicode) {
- memmove(stringPtr->unicode + stringPtr->numChars1, unicode,
+ memmove(stringPtr->unicode + stringPtr->numChars, unicode,
appendNumChars * sizeof(Tcl_UniChar));
}
stringPtr->unicode[numChars] = 0;
- stringPtr->numChars1 = numChars;
+ stringPtr->numChars = numChars;
stringPtr->allocated = 0;
TclInvalidateStringRep(objPtr);
@@ -1422,8 +1422,8 @@ AppendUnicodeToUtfRep(
numChars = ExtendStringRepWithUnicode(objPtr, unicode, numChars);
- if (stringPtr->numChars1 != (size_t)-1) {
- stringPtr->numChars1 += numChars;
+ if (stringPtr->numChars != (size_t)-1) {
+ stringPtr->numChars += numChars;
}
}
@@ -1543,7 +1543,7 @@ AppendUtfToUtfRep(
* Invalidate the unicode data.
*/
- stringPtr->numChars1 = (size_t)-1;
+ stringPtr->numChars = (size_t)-1;
stringPtr->hasUnicode = 0;
if (bytes) {
@@ -3103,7 +3103,7 @@ TclStringObjReverse(
if (stringPtr->hasUnicode) {
Tcl_UniChar *from = Tcl_GetUnicode(objPtr);
- Tcl_UniChar *src = from + stringPtr->numChars1;
+ Tcl_UniChar *src = from + stringPtr->numChars;
if (Tcl_IsShared(objPtr)) {
Tcl_UniChar *to;
@@ -3115,7 +3115,7 @@ TclStringObjReverse(
ch = 0;
objPtr = Tcl_NewUnicodeObj(&ch, 1);
- Tcl_SetObjLength(objPtr, stringPtr->numChars1);
+ Tcl_SetObjLength(objPtr, stringPtr->numChars);
to = Tcl_GetUnicode(objPtr);
while (--src >= from) {
*to++ = *src;
@@ -3131,7 +3131,7 @@ TclStringObjReverse(
}
if (objPtr->bytes) {
- int numChars = stringPtr->numChars1;
+ int numChars = stringPtr->numChars;
int numBytes = objPtr->length;
char *to, *from = objPtr->bytes;
@@ -3170,7 +3170,7 @@ TclStringObjReverse(
}
from = to = objPtr->bytes;
- stringPtr->numChars1 = charCount;
+ stringPtr->numChars = charCount;
}
/* Pass 2. Reverse all the bytes. */
ReverseBytes((unsigned char *)to, (unsigned char *)from, numBytes);
@@ -3204,7 +3204,7 @@ FillUnicodeRep(
String *stringPtr = GET_STRING(objPtr);
ExtendUnicodeRepWithString(objPtr, objPtr->bytes, objPtr->length,
- stringPtr->numChars1);
+ stringPtr->numChars);
}
static void
@@ -3219,7 +3219,7 @@ ExtendUnicodeRepWithString(
Tcl_UniChar *dst;
if (stringPtr->hasUnicode) {
- numOrigChars = stringPtr->numChars1;
+ numOrigChars = stringPtr->numChars;
}
if (numAppendChars == (size_t)-1) {
TclNumUtfChars(numAppendChars, bytes, numBytes);
@@ -3234,7 +3234,7 @@ ExtendUnicodeRepWithString(
stringPtr->hasUnicode = 1;
if (bytes) {
- stringPtr->numChars1 = needed;
+ stringPtr->numChars = needed;
} else {
numAppendChars = 0;
}
@@ -3272,7 +3272,7 @@ DupStringInternalRep(
String *srcStringPtr = GET_STRING(srcPtr);
String *copyStringPtr = NULL;
- if (srcStringPtr->numChars1 == (size_t)-1) {
+ if (srcStringPtr->numChars == (size_t)-1) {
/*
* The String struct in the source value holds zero useful data. Don't
* bother copying it. Don't even bother allocating space in which to
@@ -3285,27 +3285,27 @@ DupStringInternalRep(
if (srcStringPtr->hasUnicode) {
int copyMaxChars;
- if (srcStringPtr->maxChars / 2 >= srcStringPtr->numChars1) {
- copyMaxChars = 2 * srcStringPtr->numChars1;
+ if (srcStringPtr->maxChars / 2 >= srcStringPtr->numChars) {
+ copyMaxChars = 2 * srcStringPtr->numChars;
} else {
copyMaxChars = srcStringPtr->maxChars;
}
copyStringPtr = stringAttemptAlloc(copyMaxChars);
if (copyStringPtr == NULL) {
- copyMaxChars = srcStringPtr->numChars1;
+ copyMaxChars = srcStringPtr->numChars;
copyStringPtr = stringAlloc(copyMaxChars);
}
copyStringPtr->maxChars = copyMaxChars;
memcpy(copyStringPtr->unicode, srcStringPtr->unicode,
- srcStringPtr->numChars1 * sizeof(Tcl_UniChar));
- copyStringPtr->unicode[srcStringPtr->numChars1] = 0;
+ srcStringPtr->numChars * sizeof(Tcl_UniChar));
+ copyStringPtr->unicode[srcStringPtr->numChars] = 0;
} else {
copyStringPtr = stringAlloc(0);
copyStringPtr->maxChars = 0;
copyStringPtr->unicode[0] = 0;
}
copyStringPtr->hasUnicode = srcStringPtr->hasUnicode;
- copyStringPtr->numChars1 = srcStringPtr->numChars1;
+ copyStringPtr->numChars = srcStringPtr->numChars;
/*
* Tricky point: the string value was copied by generic object management
@@ -3356,7 +3356,7 @@ SetStringFromAny(
* already in place at objPtr->bytes.
*/
- stringPtr->numChars1 = (size_t)-1;
+ stringPtr->numChars = (size_t)-1;
stringPtr->allocated = objPtr->length;
stringPtr->maxChars = 0;
stringPtr->hasUnicode = 0;
@@ -3400,11 +3400,11 @@ UpdateStringOfString(
stringPtr->allocated = 0;
- if (stringPtr->numChars1 == 0) {
+ if (stringPtr->numChars == 0) {
TclInitStringRep(objPtr, tclEmptyStringRep, 0);
} else {
(void) ExtendStringRepWithUnicode(objPtr, stringPtr->unicode,
- stringPtr->numChars1);
+ stringPtr->numChars);
}
}