diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-07 13:57:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-07 13:57:01 (GMT) |
commit | e8b3de6a7553586f4f46f8dabc3b6c7ca83f4d3f (patch) | |
tree | d46bc0baa1d9b44b657ec9b3fd5f87f947f66cb7 /generic/tclBinary.c | |
parent | 6fa485866243b635ecd898e3e4aa5d7999261088 (diff) | |
parent | 52c2de3cb8140e9017dbdc839a06b995670d2ed6 (diff) | |
download | tcl-e8b3de6a7553586f4f46f8dabc3b6c7ca83f4d3f.zip tcl-e8b3de6a7553586f4f46f8dabc3b6c7ca83f4d3f.tar.gz tcl-e8b3de6a7553586f4f46f8dabc3b6c7ca83f4d3f.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 09ad1ae..4f60ac8 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -326,7 +326,7 @@ Tcl_SetByteArrayObj( Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj"); } TclFreeIntRep(objPtr); - Tcl_InvalidateStringRep(objPtr); + TclInvalidateStringRep(objPtr); if (length < 0) { length = 0; @@ -421,7 +421,7 @@ Tcl_SetByteArrayLength( byteArrayPtr->allocated = length; SET_BYTEARRAY(objPtr, byteArrayPtr); } - Tcl_InvalidateStringRep(objPtr); + TclInvalidateStringRep(objPtr); byteArrayPtr->used = length; return byteArrayPtr->bytes; } @@ -692,7 +692,7 @@ TclAppendBytesToByteArray( if (len > 0) { memcpy(byteArrayPtr->bytes + byteArrayPtr->used, bytes, len); byteArrayPtr->used += len; - Tcl_InvalidateStringRep(objPtr); + TclInvalidateStringRep(objPtr); } } |