Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix gcc warning |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
0932a83094a611c3ae237704a42c60d0 |
| User & Date: | jan.nijtmans 2019-03-31 17:35:52.175 |
Context
|
2019-04-01
| ||
| 14:32 | merge 8.7 check-in: 40514b76f3 user: sebres tags: trunk | |
|
2019-03-31
| ||
| 17:43 | Merge trunk check-in: 6f501a4fcc user: jan.nijtmans tags: regexp-api-64bit | |
| 17:38 | Merge trunk check-in: 8714b82fdf user: jan.nijtmans tags: novem | |
| 17:35 | Fix gcc warning check-in: 0932a83094 user: jan.nijtmans tags: trunk | |
|
2019-03-29
| ||
| 17:57 | Minor code cleanup: More use of size_t where possible, and elimination of unneeded type-casts. check-in: 2269af324f user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclTest.c.
| ︙ | ︙ | |||
3925 3926 3927 3928 3929 3930 3931 |
varPtr = objv[i];
ii = ((cflags®_EXPECT) && i == objc-1) ? TCL_INDEX_NONE : (size_t)i;
if (indices) {
Tcl_Obj *objs[2];
if (ii == TCL_INDEX_NONE) {
TclRegExpRangeUniChar(regExpr, ii, &start, &end);
| | | 3925 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935 3936 3937 3938 3939 |
varPtr = objv[i];
ii = ((cflags®_EXPECT) && i == objc-1) ? TCL_INDEX_NONE : (size_t)i;
if (indices) {
Tcl_Obj *objs[2];
if (ii == TCL_INDEX_NONE) {
TclRegExpRangeUniChar(regExpr, ii, &start, &end);
} else if (ii > (size_t)info.nsubs) {
start = -1;
end = -1;
} else {
start = info.matches[ii].start;
end = info.matches[ii].end;
}
|
| ︙ | ︙ | |||
3950 3951 3952 3953 3954 3955 3956 |
objs[1] = Tcl_NewWideIntObj(end);
newPtr = Tcl_NewListObj(2, objs);
} else {
if (ii == TCL_INDEX_NONE) {
TclRegExpRangeUniChar(regExpr, ii, &start, &end);
newPtr = Tcl_GetRange(objPtr, start, end);
| | | 3950 3951 3952 3953 3954 3955 3956 3957 3958 3959 3960 3961 3962 3963 3964 |
objs[1] = Tcl_NewWideIntObj(end);
newPtr = Tcl_NewListObj(2, objs);
} else {
if (ii == TCL_INDEX_NONE) {
TclRegExpRangeUniChar(regExpr, ii, &start, &end);
newPtr = Tcl_GetRange(objPtr, start, end);
} else if (ii > (size_t)info.nsubs) {
newPtr = Tcl_NewObj();
} else {
newPtr = Tcl_GetRange(objPtr, info.matches[ii].start,
info.matches[ii].end - 1);
}
}
valuePtr = Tcl_ObjSetVar2(interp, varPtr, NULL, newPtr, TCL_LEAVE_ERR_MSG);
|
| ︙ | ︙ |