diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-20 13:50:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-20 13:50:32 (GMT) |
| commit | 0009e78e1575784f367ef17fc6f4558832b855c9 (patch) | |
| tree | 30c272c5f0c026b9bf7916a27eb60dba5641f781 /generic/tclCompCmds.c | |
| parent | c39fa63642ec703842ef984663c6fa78845f6ae6 (diff) | |
| download | tcl-0009e78e1575784f367ef17fc6f4558832b855c9.zip tcl-0009e78e1575784f367ef17fc6f4558832b855c9.tar.gz tcl-0009e78e1575784f367ef17fc6f4558832b855c9.tar.bz2 | |
Fix [0af9450e56]: test incr-1.31 fails
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index a422072..16d5d50 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -608,11 +608,13 @@ TclCompileCatchCmd( cmdTokenPtr = TokenAfter(parsePtr->tokenPtr); if (parsePtr->numWords >= 3) { resultNameTokenPtr = TokenAfter(cmdTokenPtr); + /* DGP */ resultIndex = LocalScalarFromToken(resultNameTokenPtr, envPtr); if (resultIndex < 0) { return TCL_ERROR; } + /* DKF */ if (parsePtr->numWords == 4) { optsNameTokenPtr = TokenAfter(resultNameTokenPtr); optsIndex = LocalScalarFromToken(optsNameTokenPtr, envPtr); |