diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-20 09:46:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-20 09:46:14 (GMT) |
commit | 47957139fb510e8cb49eea9050f6107756ac83d7 (patch) | |
tree | 2206551d9434c9ab017193f88a6445c8a57c23a8 /generic/tclBinary.c | |
parent | b258cc76aba7c7cb1906d863944bb4cd6ea5d1a4 (diff) | |
download | tcl-47957139fb510e8cb49eea9050f6107756ac83d7.zip tcl-47957139fb510e8cb49eea9050f6107756ac83d7.tar.gz tcl-47957139fb510e8cb49eea9050f6107756ac83d7.tar.bz2 |
more internal use of size_t in stead of int.
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 4d063b2..f8c07f4 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -531,7 +531,8 @@ SetByteArrayFromAny( Tcl_Interp *interp, /* Not used. */ Tcl_Obj *objPtr) /* The object to convert to type ByteArray. */ { - int length, improper = 0; + size_t length; + int improper = 0; const char *src, *srcEnd; unsigned char *dst; ByteArray *byteArrayPtr; @@ -544,7 +545,8 @@ SetByteArrayFromAny( return TCL_OK; } - src = TclGetStringFromObj(objPtr, &length); + src = TclGetString(objPtr); + length = objPtr->length; srcEnd = src + length; byteArrayPtr = ckalloc(BYTEARRAY_SIZE(length)); |