diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:08:30 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:08:30 (GMT) |
| commit | 43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17 (patch) | |
| tree | 74158fb01c3179efb6d8805341eade27e3b3c67c /generic/tclCompCmdsSZ.c | |
| parent | e5eeaadf3c490991f3360ae3cea60e064e0b2c37 (diff) | |
| download | tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.zip tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.tar.gz tcl-43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17.tar.bz2 | |
Fix [784befb0ba] - tailcall crash
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 383abc2..355c741 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2618,7 +2618,7 @@ TclCompileTailcallCmd( Tcl_Token *tokenPtr = parsePtr->tokenPtr; int i; - if (parsePtr->numWords < 2 || parsePtr->numWords > 256 + if (parsePtr->numWords < 2 || parsePtr->numWords >= 256 || envPtr->procPtr == NULL) { return TCL_ERROR; } |