summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-07 13:53:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-07 13:53:08 (GMT)
commitdb32aeed9858ddb8dd0828e2fb7ef36ac46bc5f6 (patch)
tree1aac3c2b0a1094ceb09b60b0d7d728fb613ef8e9 /generic/tclBinary.c
parent593462fc80d3e1a4684644f3237115112131f83f (diff)
downloadtcl-db32aeed9858ddb8dd0828e2fb7ef36ac46bc5f6.zip
tcl-db32aeed9858ddb8dd0828e2fb7ef36ac46bc5f6.tar.gz
tcl-db32aeed9858ddb8dd0828e2fb7ef36ac46bc5f6.tar.bz2
Tcl_InvalidateStringRep -> TclInvalidateStringRep
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r--generic/tclBinary.c4
1 files changed, 2 insertions, 2 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;
}