diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
| commit | be275081a1ef4cf0490a07d2e253ca901d932fe8 (patch) | |
| tree | 6bd1b9d196a5924bc9e00578719d36ef22f2eafd /generic/tclRegexp.c | |
| parent | 0a36b1187dcef39b41d28a5ce319aa7c54f56f66 (diff) | |
| parent | 733b7a43a45ee6be75ccd99172f66b35b69841c5 (diff) | |
| download | tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.zip tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.gz tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index 0ddb65d..068b701 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -675,9 +675,9 @@ TclRegAbout( * well and Tcl has other limits that constrain things as well... */ - resultObj = Tcl_NewObj(); - Tcl_ListObjAppendElement(NULL, resultObj, - TclNewWideIntObjFromSize(regexpPtr->re.re_nsub)); + TclNewObj(resultObj); + TclNewIntObj(infoObj, regexpPtr->re.re_nsub); + Tcl_ListObjAppendElement(NULL, resultObj, infoObj); /* * Now append a list of all the bit-flags set for the RE. |