diff options
author | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:03:41 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:03:41 (GMT) |
commit | 2ce077e7c8a82332c62a598756f2de7dffb17376 (patch) | |
tree | e306e61f891c75f8e353e1dd6a018b4bad162bd6 /generic | |
parent | 5f9e047cf5d7f3adca4154b75cf8f68325330af8 (diff) | |
download | tcl-2ce077e7c8a82332c62a598756f2de7dffb17376.zip tcl-2ce077e7c8a82332c62a598756f2de7dffb17376.tar.gz tcl-2ce077e7c8a82332c62a598756f2de7dffb17376.tar.bz2 |
fixes compilation of try-command [27520c9b17]: compile only if finaly token is simple
Diffstat (limited to 'generic')
-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 53bff6e..abaf7a7 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2929,6 +2929,9 @@ TclCompileTryCmd( goto failedToCompile; } finallyToken = TokenAfter(tokenPtr); + if (finallyToken->type != TCL_TOKEN_SIMPLE_WORD) { + goto failedToCompile; + } } else { goto failedToCompile; } |