summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmdsGR.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-03-17 15:05:50 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-03-17 15:05:50 (GMT)
commit10367534a7313529151f25caee18fcab436b621f (patch)
treead088c9802009d10e1f0f5d9b12dfabbf3d059a7 /generic/tclCompCmdsGR.c
parent25473372703a8ba0a8bba93c36afad63b8a9e2f6 (diff)
downloadtcl-10367534a7313529151f25caee18fcab436b621f.zip
tcl-10367534a7313529151f25caee18fcab436b621f.tar.gz
tcl-10367534a7313529151f25caee18fcab436b621f.tar.bz2
More progress
Diffstat (limited to 'generic/tclCompCmdsGR.c')
-rw-r--r--generic/tclCompCmdsGR.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index 6486b21..92dec77 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -2510,7 +2510,7 @@ TclCompileReturnCmd(
ExceptionRange range = envPtr->exceptArrayPtr[index];
if ((range.type == CATCH_EXCEPTION_RANGE)
- && (range.catchOffset == -1)) {
+ && (range.catchOffset == TCL_INDEX_NONE)) {
enclosingCatch = 1;
break;
}