diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:17:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:17:57 (GMT) |
| commit | 613ad6861bdef8e2bfcde5630c0b34af183c6f56 (patch) | |
| tree | ae21db96f839aaf379f5a9a1d283531cdcbe248b /generic/tclTest.c | |
| parent | a75cc416451b0e35a0cd1a23bd8ca09c2ec99525 (diff) | |
| download | tcl-613ad6861bdef8e2bfcde5630c0b34af183c6f56.zip tcl-613ad6861bdef8e2bfcde5630c0b34af183c6f56.tar.gz tcl-613ad6861bdef8e2bfcde5630c0b34af183c6f56.tar.bz2 | |
Fix [b8a30af3da]: test failures in reg.test. Now works with -DTCL_NO_DEPRECATED and without it.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index a07d449..e9a0a40 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4629,11 +4629,11 @@ TestregexpObjCmd( } else { if (ii == TCL_INDEX_NONE) { TclRegExpRangeUniChar(regExpr, ii, &start, &end); - newPtr = Tcl_GetRange(objPtr, start, end); + newPtr = TclGetRange(objPtr, start, end); } else if (ii > info.nsubs || info.matches[ii].end <= 0) { newPtr = Tcl_NewObj(); } else { - newPtr = Tcl_GetRange(objPtr, info.matches[ii].start, + newPtr = TclGetRange(objPtr, info.matches[ii].start, info.matches[ii].end - 1); } } |