diff options
| author | nijtmans <nijtmans> | 2010-05-03 14:36:40 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-05-03 14:36:40 (GMT) |
| commit | 603632160ce039289adcabac2684febc649c535b (patch) | |
| tree | e5adab677558dc22434d9ee6b375a48333aea345 /generic/tclStrToD.c | |
| parent | 091c9fee62375b69529473b975e37dc279f0bc83 (diff) | |
| download | tcl-603632160ce039289adcabac2684febc649c535b.zip tcl-603632160ce039289adcabac2684febc649c535b.tar.gz tcl-603632160ce039289adcabac2684febc649c535b.tar.bz2 | |
CONSTify various useful internal functions
(TclBignumToDouble, TclCeil, TclFloor), and
related tommath functions.
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index fdfdb5e..8094e87 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStrToD.c,v 1.43 2010/04/27 12:36:22 nijtmans Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.44 2010/05/03 14:36:41 nijtmans Exp $ * *---------------------------------------------------------------------- */ @@ -137,7 +137,7 @@ static int n770_fp; /* Flag is 1 on Nokia N770 floating point. static double AbsoluteValue(double v, int *signum); static int AccumulateDecimalDigit(unsigned, int, Tcl_WideUInt *, mp_int *, int); -static double BignumToBiasedFrExp(mp_int *big, int *machexp); +static double BignumToBiasedFrExp(const mp_int *big, int *machexp); static int GetIntegerTimesPower(double v, mp_int *r, int *e); static double MakeHighPrecisionDouble(int signum, mp_int *significand, int nSigDigs, int exponent); @@ -2369,7 +2369,7 @@ Tcl_InitBignumFromDouble( double TclBignumToDouble( - mp_int *a) /* Integer to convert. */ + const mp_int *a) /* Integer to convert. */ { mp_int b; int bits, shift, i; @@ -2430,7 +2430,7 @@ TclBignumToDouble( double TclCeil( - mp_int *a) /* Integer to convert. */ + const mp_int *a) /* Integer to convert. */ { double r = 0.0; mp_int b; @@ -2473,7 +2473,7 @@ TclCeil( double TclFloor( - mp_int *a) /* Integer to convert. */ + const mp_int *a) /* Integer to convert. */ { double r = 0.0; mp_int b; @@ -2529,7 +2529,7 @@ TclFloor( static double BignumToBiasedFrExp( - mp_int *a, /* Integer to convert */ + const mp_int *a, /* Integer to convert */ int *machexp) /* Power of two */ { mp_int b; |