Differences From Artifact [93a6b3e03d]:

• File generic/tclStrToD.c — part of check-in [2886da4545] at 2019-03-08 15:09:48 on branch dgp-refactor — merge trunk (user: dgp size: 129721) [more...]

To Artifact [0c9f481fb3]:

• File generic/tclStrToD.c — part of check-in [84d2435115] at 2019-03-15 15:51:08 on branch dgp-refactor — merge trunk (user: dgp size: 129726) [more...]

4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531

	if (lsb == -1-shift) {

	    /*
	     * Round to even
	     */

	    mp_div_2d(a, -shift, &b, NULL);
	    if (mp_isodd(&b)) {
		if (b.sign == MP_ZPOS) {
		    mp_add_d(&b, 1, &b);
		} else {
		    mp_sub_d(&b, 1, &b);
		}
	    }
	} else {

|

4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531

	if (lsb == -1-shift) {

	    /*
	     * Round to even
	     */

	    mp_div_2d(a, -shift, &b, NULL);
	    if (mp_get_bit(&b, 0)) {
		if (b.sign == MP_ZPOS) {
		    mp_add_d(&b, 1, &b);
		} else {
		    mp_sub_d(&b, 1, &b);
		}
	    }
	} else {