diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-19 11:04:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-19 11:04:20 (GMT) |
| commit | 02d6ad1de92f4d55913948f3b299c6f9c116a9ac (patch) | |
| tree | 56c087b6155043a06200a3d5e6d54036ea6abb8a /generic/tclTest.c | |
| parent | 42e398534551b03232e9fec7293e6771a40e9f65 (diff) | |
| parent | d0b286927306af8bde7031529ad180eaa07dcc73 (diff) | |
| download | tcl-02d6ad1de92f4d55913948f3b299c6f9c116a9ac.zip tcl-02d6ad1de92f4d55913948f3b299c6f9c116a9ac.tar.gz tcl-02d6ad1de92f4d55913948f3b299c6f9c116a9ac.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 7b97a65..d8e5b2f 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3574,8 +3574,9 @@ PrintParse( Tcl_NewIntObj(tokenPtr->numComponents)); } Tcl_ListObjAppendElement(NULL, objPtr, + parsePtr->commandStart ? Tcl_NewStringObj(parsePtr->commandStart + parsePtr->commandSize, - -1)); + -1) : Tcl_NewObj()); } /* @@ -3965,7 +3966,7 @@ TestregexpObjCmd( if (ii == -1) { TclRegExpRangeUniChar(regExpr, ii, &start, &end); newPtr = Tcl_GetRange(objPtr, start, end); - } else if (ii > info.nsubs) { + } else if (ii > info.nsubs || info.matches[ii].end <= 0) { newPtr = Tcl_NewObj(); } else { newPtr = Tcl_GetRange(objPtr, info.matches[ii].start, |