diff options
author | dgp <dgp@users.sourceforge.net> | 2020-03-28 18:23:43 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-03-28 18:23:43 (GMT) |
commit | 65c59cb146dd2ee5d7336f95cd8e3323661b7c21 (patch) | |
tree | 9d94c68c36c268d926c6e48b5658db2ac771457c /generic/tclBinary.c | |
parent | 29cb05c855a633d5df7fba523faa62f2a3d027e4 (diff) | |
download | tcl-65c59cb146dd2ee5d7336f95cd8e3323661b7c21.zip tcl-65c59cb146dd2ee5d7336f95cd8e3323661b7c21.tar.gz tcl-65c59cb146dd2ee5d7336f95cd8e3323661b7c21.tar.bz2 |
Missing error codes from decoder routines.
Diffstat (limited to 'generic/tclBinary.c')
-rw-r--r-- | generic/tclBinary.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 33c8382..a85c045 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2443,6 +2443,7 @@ BinaryDecodeHex( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "invalid hexadecimal digit \"%c\" at position %d", c, (int) (data - datastart - 1))); + Tcl_SetErrorCode(interp, "TCL", "BINARY", "DECODE", "INVALID", NULL); return TCL_ERROR; } @@ -3018,6 +3019,7 @@ BinaryDecode64( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "invalid base64 character \"%c\" at position %d", ch, (int) (data - datastart - 1))); + Tcl_SetErrorCode(interp, "TCL", "BINARY", "DECODE", "INVALID", NULL); TclDecrRefCount(resultObj); return TCL_ERROR; } |