diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-15 11:51:54 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-15 11:51:54 (GMT) |
commit | 8fda4dd37512f41e1e7b277e11b450cd7185d5ed (patch) | |
tree | db38f2a99ed7f6e9786a5bd79527f87f2eddfea6 /generic/tclAssembly.c | |
parent | 3ce94d7a92879b852d784527197413482fb4573b (diff) | |
download | tcl-8fda4dd37512f41e1e7b277e11b450cd7185d5ed.zip tcl-8fda4dd37512f41e1e7b277e11b450cd7185d5ed.tar.gz tcl-8fda4dd37512f41e1e7b277e11b450cd7185d5ed.tar.bz2 |
Fix [26870862f0]: Wrong sentinel in Tcl_SetErrorCode usage
Diffstat (limited to 'generic/tclAssembly.c')
-rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index e69348c..2e5709a 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -2011,7 +2011,7 @@ CreateMirrorJumpTable( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "duplicate entry in jump table for \"%s\"", Tcl_GetString(objv[i]))); - Tcl_SetErrorCode(interp, "TCL", "ASSEM", "DUPJUMPTABLEENTRY"); + Tcl_SetErrorCode(interp, "TCL", "ASSEM", "DUPJUMPTABLEENTRY", NULL); DeleteMirrorJumpTable(jtPtr); return TCL_ERROR; } @@ -3451,7 +3451,7 @@ StackCheckBasicBlock( if (assemEnvPtr->flags & TCL_EVAL_DIRECT) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "code pops stack below level of enclosing catch", -1)); - Tcl_SetErrorCode(interp, "TCL", "ASSEM", "BADSTACKINCATCH", -1); + Tcl_SetErrorCode(interp, "TCL", "ASSEM", "BADSTACKINCATCH", NULL); AddBasicBlockRangeToErrorInfo(assemEnvPtr, blockPtr); Tcl_SetErrorLine(interp, blockPtr->startLine); } |