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 | 2c9105241b11a8608b63a04575b25cff9e69e6c9 (patch) | |
| tree | d46bc0baa1d9b44b657ec9b3fd5f87f947f66cb7 /generic/tclBinary.c | |
| parent | affe6d501aa7307a5b4ed4390011fece3980d24c (diff) | |
| parent | 78fd03de10e26eef255074fab73cc2f016a70db2 (diff) | |
| download | tcl-2c9105241b11a8608b63a04575b25cff9e69e6c9.zip tcl-2c9105241b11a8608b63a04575b25cff9e69e6c9.tar.gz tcl-2c9105241b11a8608b63a04575b25cff9e69e6c9.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); } } |