From 1c5db697830a5c68632e9979b2a678e6c8606460 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 24 Jan 2019 20:50:35 +0000 Subject: Fix handling of 'a'/'A' in previous commit: Sinze TclGetByteArrayFromObj is a macro evaluating its arguments more than once, we cannot use ++ in there. --- generic/tclBinary.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 6c40a3e..c692b40 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -1091,8 +1091,8 @@ BinaryFormatCmd( char pad = (char) (cmd == 'a' ? '\0' : ' '); unsigned char *bytes; - bytes = TclGetByteArrayFromObj(objv[arg++], &length); - + bytes = TclGetByteArrayFromObj(objv[arg], &length); + arg++; if (count == BINARY_ALL) { count = length; } else if (count == BINARY_NOCOUNT) { -- cgit v0.12