diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-26 17:15:30 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-26 17:15:30 (GMT) |
commit | a77fa7db7342c53d89f417389ced39ff59fc4475 (patch) | |
tree | 5e6dd06043ffd52f8ad07f9a276a12a23aa0b815 /generic/tclCompCmdsSZ.c | |
parent | af645c77b7efb502ba3636d0d448181a190d1024 (diff) | |
parent | 9f54abf33a1289128b25b82e8a2d53013463801e (diff) | |
download | tcl-a77fa7db7342c53d89f417389ced39ff59fc4475.zip tcl-a77fa7db7342c53d89f417389ced39ff59fc4475.tar.gz tcl-a77fa7db7342c53d89f417389ced39ff59fc4475.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
-rw-r--r-- | generic/tclCompCmdsSZ.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index aa2d13e..cd3bd37 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2972,6 +2972,9 @@ TclCompileTryCmd( goto failedToCompile; } finallyToken = TokenAfter(tokenPtr); + if (finallyToken->type != TCL_TOKEN_SIMPLE_WORD) { + goto failedToCompile; + } } else { goto failedToCompile; } |