diff options
| author | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:28:01 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:28:01 (GMT) |
| commit | ba82b0c9afd6e91aa97e13a95cf1a2ee4fcd4097 (patch) | |
| tree | 98d87a2e30b5bca5076898da247a9a699a528c2d /generic/tclCompCmdsSZ.c | |
| parent | 022866233a63e9133701ff21ca684cb009c171fb (diff) | |
| parent | 2ce077e7c8a82332c62a598756f2de7dffb17376 (diff) | |
| download | tcl-ba82b0c9afd6e91aa97e13a95cf1a2ee4fcd4097.zip tcl-ba82b0c9afd6e91aa97e13a95cf1a2ee4fcd4097.tar.gz tcl-ba82b0c9afd6e91aa97e13a95cf1a2ee4fcd4097.tar.bz2 | |
closes bug [27520c9b17]
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 8828b59..4c325c2 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2931,6 +2931,9 @@ TclCompileTryCmd( goto failedToCompile; } finallyToken = TokenAfter(tokenPtr); + if (finallyToken->type != TCL_TOKEN_SIMPLE_WORD) { + goto failedToCompile; + } } else { goto failedToCompile; } |