summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorstanton <stanton>1999-05-03 19:19:03 (GMT)
committerstanton <stanton>1999-05-03 19:19:03 (GMT)
commitf6a3092a5a7c9cae226fa90d90f7859359042ffa (patch)
treeaa7b6cb1593cd98967663f168531c6770b566c18 /generic
parent98d911dd458ceb02d94c4f97769cf2340fb127cc (diff)
downloadtcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.zip
tcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.tar.gz
tcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.tar.bz2
* tests/binary.test:
* generic/tclBinary.c (DupByteArrayInternalRep): Fixed bug where type was not being set in duplicated object.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBinary.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 5156465..4c55c40 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBinary.c,v 1.5 1999/04/16 00:46:42 stanton Exp $
+ * RCS: @(#) $Id: tclBinary.c,v 1.6 1999/05/03 19:19:03 stanton Exp $
*/
#include <math.h>
@@ -457,6 +457,8 @@ DupByteArrayInternalRep(srcPtr, copyPtr)
memcpy((VOID *) copyArrayPtr->bytes, (VOID *) srcArrayPtr->bytes,
(size_t) length);
SET_BYTEARRAY(copyPtr, copyArrayPtr);
+
+ copyPtr->typePtr = &tclByteArrayType;
}
/*