summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--generic/tclBinary.c4
-rw-r--r--generic/tclDictObj.c14
-rw-r--r--generic/tclExecute.c2
-rw-r--r--generic/tclListObj.c14
-rw-r--r--generic/tclStringObj.c12
-rw-r--r--macosx/tclMacOSXFCmd.c2
6 files changed, 24 insertions, 24 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 19b95c1..dbb296b 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -271,7 +271,7 @@ Tcl_SetByteArrayObj(
Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj");
}
TclFreeIntRep(objPtr);
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
if (length < 0) {
length = 0;
@@ -367,7 +367,7 @@ Tcl_SetByteArrayLength(
byteArrayPtr->allocated = length;
SET_BYTEARRAY(objPtr, byteArrayPtr);
}
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
byteArrayPtr->used = length;
return byteArrayPtr->bytes;
}
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index 15e9ace..4adc5ce 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -837,7 +837,7 @@ InvalidateDictChain(
Dict *dict = dictObj->internalRep.twoPtrValue.ptr1;
do {
- Tcl_InvalidateStringRep(dictObj);
+ TclInvalidateStringRep(dictObj);
dict->epoch++;
dictObj = dict->chain;
if (dictObj == NULL) {
@@ -891,7 +891,7 @@ Tcl_DictObjPut(
}
if (dictPtr->bytes != NULL) {
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
}
dict = dictPtr->internalRep.twoPtrValue.ptr1;
hPtr = CreateChainEntry(dict, keyPtr, &isNew);
@@ -993,7 +993,7 @@ Tcl_DictObjRemove(
}
if (dictPtr->bytes != NULL) {
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
}
dict = dictPtr->internalRep.twoPtrValue.ptr1;
if (DeleteChainEntry(dict, keyPtr)) {
@@ -1362,7 +1362,7 @@ Tcl_NewDictObj(void)
Dict *dict;
TclNewObj(dictPtr);
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
dict = (Dict *) ckalloc(sizeof(Dict));
InitChainTable(dict);
dict->epoch = 0;
@@ -1411,7 +1411,7 @@ Tcl_DbNewDictObj(
Dict *dict;
TclDbNewObj(dictPtr, file, line);
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
dict = (Dict *) ckalloc(sizeof(Dict));
InitChainTable(dict);
dict->epoch = 0;
@@ -2143,7 +2143,7 @@ DictIncrCmd(
}
}
if (code == TCL_OK) {
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
valuePtr = Tcl_ObjSetVar2(interp, objv[1], NULL,
dictPtr, TCL_LEAVE_ERR_MSG);
if (valuePtr == NULL) {
@@ -2232,7 +2232,7 @@ DictLappendCmd(
if (allocatedValue) {
Tcl_DictObjPut(interp, dictPtr, objv[2], valuePtr);
} else if (dictPtr->bytes != NULL) {
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
}
resultPtr = Tcl_ObjSetVar2(interp, objv[1], NULL, dictPtr,
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2db98da..904c368 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -6865,7 +6865,7 @@ TclExecuteByteCode(
}
result = TclIncrObj(interp, valPtr, incrPtr);
if (result == TCL_OK) {
- Tcl_InvalidateStringRep(dictPtr);
+ TclInvalidateStringRep(dictPtr);
}
TclDecrRefCount(incrPtr);
}
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index c092bcf..d6ffa95 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -233,7 +233,7 @@ Tcl_NewListObj(
* Now create the object.
*/
- Tcl_InvalidateStringRep(listPtr);
+ TclInvalidateStringRep(listPtr);
ListSetIntRep(listPtr, listRepPtr);
return listPtr;
}
@@ -298,7 +298,7 @@ Tcl_DbNewListObj(
* Now create the object.
*/
- Tcl_InvalidateStringRep(listPtr);
+ TclInvalidateStringRep(listPtr);
ListSetIntRep(listPtr, listRepPtr);
return listPtr;
@@ -359,7 +359,7 @@ Tcl_SetListObj(
TclFreeIntRep(objPtr);
objPtr->typePtr = NULL;
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
/*
* Set the object's type to "list" and initialize the internal rep.
@@ -645,7 +645,7 @@ Tcl_ListObjAppendElement(
* representation has changed.
*/
- Tcl_InvalidateStringRep(listPtr);
+ TclInvalidateStringRep(listPtr);
return TCL_OK;
}
@@ -994,7 +994,7 @@ Tcl_ListObjReplace(
* reflects the list's internal representation.
*/
- Tcl_InvalidateStringRep(listPtr);
+ TclInvalidateStringRep(listPtr);
return TCL_OK;
}
@@ -1437,7 +1437,7 @@ TclLsetFlat(
* of all containing lists.
*/
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
}
/* Clear away our intrep surgery mess */
@@ -1458,7 +1458,7 @@ TclLsetFlat(
/* Store valuePtr in proper sublist and return */
TclListObjSetElement(NULL, subListPtr, index, valuePtr);
- Tcl_InvalidateStringRep(subListPtr);
+ TclInvalidateStringRep(subListPtr);
Tcl_IncrRefCount(retValuePtr);
return retValuePtr;
}
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index ee434c3..a929d04 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -741,7 +741,7 @@ Tcl_SetStringObj(
* length bytes starting at "bytes".
*/
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
if (length < 0) {
length = (bytes? strlen(bytes) : 0);
}
@@ -815,7 +815,7 @@ Tcl_SetObjLength(
if (objPtr->bytes != NULL && objPtr->length != 0) {
memcpy(newBytes, objPtr->bytes, (size_t) objPtr->length);
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
}
objPtr->bytes = newBytes;
}
@@ -943,7 +943,7 @@ Tcl_AttemptSetObjLength(
}
if (objPtr->bytes != NULL && objPtr->length != 0) {
memcpy(newBytes, objPtr->bytes, (size_t) objPtr->length);
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
}
}
objPtr->bytes = newBytes;
@@ -1080,7 +1080,7 @@ SetUnicodeObj(
memcpy(stringPtr->unicode, unicode, uallocated);
stringPtr->unicode[numChars] = 0;
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
objPtr->typePtr = &tclStringType;
SET_STRING(objPtr, stringPtr);
}
@@ -1411,7 +1411,7 @@ AppendUnicodeToUnicodeRep(
stringPtr->numChars = numChars;
stringPtr->allocated = 0;
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
}
/*
@@ -2757,7 +2757,7 @@ TclStringObjReverse(
source[lastCharIdx--] = source[i];
source[i++] = tmp;
}
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
stringPtr->allocated = 0;
return objPtr;
}
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c
index d034886..fb64bb6 100644
--- a/macosx/tclMacOSXFCmd.c
+++ b/macosx/tclMacOSXFCmd.c
@@ -588,7 +588,7 @@ NewOSTypeObj(
Tcl_Obj *objPtr;
TclNewObj(objPtr);
- Tcl_InvalidateStringRep(objPtr);
+ TclInvalidateStringRep(objPtr);
objPtr->internalRep.longValue = (long) osType;
objPtr->typePtr = &tclOSTypeType;
return objPtr;
generated by cgit v0.12 at 2024-11-07 09:15:16 (GMT)