diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 15:42:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 15:42:15 (GMT) |
| commit | 1235d67d760f5048a4a7bf0a6916c49df5bf1be0 (patch) | |
| tree | 587170a31d672e39e2fbc37b7e1155a82123eb34 /generic/tclArithSeries.c | |
| parent | 380ef99d03439d62883131d3d6048f74e8a2042d (diff) | |
| parent | a0a8e2f294ec770dbb8713ce29dda0865d7028f0 (diff) | |
| download | tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.zip tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.tar.gz tcl-1235d67d760f5048a4a7bf0a6916c49df5bf1be0.tar.bz2 | |
Simplification for [d58e315172]
Diffstat (limited to 'generic/tclArithSeries.c')
| -rwxr-xr-x | generic/tclArithSeries.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index d05d07f..92cf611 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -193,7 +193,7 @@ ArithSeriesIndexDbl( if (index) { d += (index * dblRepPtr->step); } - + return ArithRound(d, dblRepPtr->precision); } @@ -334,7 +334,7 @@ ArithSeriesLenDbl( } /* distance */ end -= start; - /* + /* * To improve numerical stability use wide arithmetic instead of IEEE-754 * when distance and step do not exceed wide-integers. */ @@ -1086,7 +1086,7 @@ TclArithSeriesObjReverse( -dblRepPtr->step, arithSeriesRepPtr->len, dblRepPtr->precision); } else { ArithSeriesInt *intRepPtr = (ArithSeriesInt *)arithSeriesRepPtr; - resultObj = NewArithSeriesInt(ArithSeriesEndInt(intRepPtr), + resultObj = NewArithSeriesInt(ArithSeriesEndInt(intRepPtr), -intRepPtr->step, arithSeriesRepPtr->len); } } else { |