diff options
author | griffin <briang42@easystreet.net> | 2022-11-24 20:31:05 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2022-11-24 20:31:05 (GMT) |
commit | 85ff1f33c9898a17fabb8ab90a6f4e823f693154 (patch) | |
tree | a21e404e2c245540590ce318308279e2d5585d0c /generic/tclLink.c | |
parent | a4e76a1c02f39e24cbf6ee4543ce76e34727cecd (diff) | |
parent | 9faff5cc94c4badba3c7b268d6ee6b4d56bacf33 (diff) | |
download | tcl-85ff1f33c9898a17fabb8ab90a6f4e823f693154.zip tcl-85ff1f33c9898a17fabb8ab90a6f4e823f693154.tar.gz tcl-85ff1f33c9898a17fabb8ab90a6f4e823f693154.tar.bz2 |
Sync with trunk
Diffstat (limited to 'generic/tclLink.c')
-rw-r--r-- | generic/tclLink.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 1985151..44755ce 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -880,7 +880,9 @@ LinkTraceProc( case TCL_LINK_BINARY: value = (char *) Tcl_GetByteArrayFromObj(valueObj, &valueLength); - if (valueLength != linkPtr->bytes) { + if (value == NULL) { + return (char *) "invalid binary value"; + } else if (valueLength != linkPtr->bytes) { return (char *) "wrong size of binary value"; } if (linkPtr->flags & LINK_ALLOC_LAST) { |