diff options
| author | ashok <ashok> | 2016-07-10 06:41:54 (GMT) |
|---|---|---|
| committer | ashok <ashok> | 2016-07-10 06:41:54 (GMT) |
| commit | 2d2ec051cf1bccebd8ceacb06ffb7ea6f332c72c (patch) | |
| tree | e6c01d8530843cda7e9abf9459e867d0b0b91fcc | |
| parent | 1a4a8552102094aeb6294acf74d78623df4206d3 (diff) | |
| download | tcl-2d2ec051cf1bccebd8ceacb06ffb7ea6f332c72c.zip tcl-2d2ec051cf1bccebd8ceacb06ffb7ea6f332c72c.tar.gz tcl-2d2ec051cf1bccebd8ceacb06ffb7ea6f332c72c.tar.bz2 | |
Bugfix [da340d4f32]. clock-55.9 and clock-55.10 test failures.
| -rw-r--r-- | generic/tclClock.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index 949cb1c..c3b29e9 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -1499,7 +1499,19 @@ GetJulianDayFromEraYearMonthDay( * Try an initial conversion in the Gregorian calendar. */ +#if 0 /* BUG http://core.tcl.tk/tcl/tktview?name=da340d4f32 */ ym1o4 = ym1 / 4; +#else + /* + * Have to make sure quotient is truncated towards 0 when negative. + * See above bug for details. The casts are necessary. + */ + if (ym1 >= 0) + ym1o4 = ym1 / 4; + else { + ym1o4 = - (int) (((unsigned int) -ym1) / 4); + } +#endif if (ym1 % 4 < 0) { ym1o4--; } |