summaryrefslogtreecommitdiffstats
path: root/generic/tclBinary.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r--generic/tclBinary.c23
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;