diff options
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 8a3aeac..c360c8f 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.55 2009/07/16 21:24:39 dgp Exp $ + * RCS: @(#) $Id: tclBinary.c,v 1.56 2009/11/18 21:59:51 nijtmans Exp $ */ #include "tclInt.h" @@ -472,6 +472,7 @@ FreeByteArrayInternalRep( Tcl_Obj *objPtr) /* Object with internal rep to free. */ { ckfree((char *) GET_BYTEARRAY(objPtr)); + objPtr->typePtr = NULL; } /* @@ -595,23 +596,23 @@ TclInitBinaryCmd( Tcl_Interp *interp) { const EnsembleImplMap binaryMap[] = { - { "format", BinaryFormatCmd, NULL }, - { "scan", BinaryScanCmd, NULL }, - { "encode", NULL, NULL }, - { "decode", NULL, NULL }, - { NULL, NULL, NULL } + { "format", BinaryFormatCmd, NULL, NULL ,NULL }, + { "scan", BinaryScanCmd, NULL,NULL ,NULL }, + { "encode", NULL, NULL, NULL, NULL }, + { "decode", NULL, NULL, NULL, NULL }, + { NULL, NULL, NULL, NULL, NULL } }; const EnsembleImplMap encodeMap[] = { { "hex", BinaryEncodeHex, NULL, NULL, (ClientData)HexDigits }, { "uuencode", BinaryEncode64, NULL, NULL, (ClientData)UueDigits }, { "base64", BinaryEncode64, NULL, NULL, (ClientData)B64Digits }, - { NULL, NULL, NULL } + { NULL, NULL, NULL, NULL, NULL } }; const EnsembleImplMap decodeMap[] = { - { "hex", BinaryDecodeHex, NULL }, - { "uuencode", BinaryDecodeUu, NULL }, - { "base64", BinaryDecode64, NULL }, - { NULL, NULL, NULL } + { "hex", BinaryDecodeHex, NULL, NULL, NULL }, + { "uuencode", BinaryDecodeUu, NULL, NULL, NULL }, + { "base64", BinaryDecode64, NULL, NULL, NULL }, + { NULL, NULL, NULL, NULL, NULL } }; Tcl_Command binaryEnsemble; |