diff options
author | dkf <dkf@noemail.net> | 2008-04-27 22:21:26 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-04-27 22:21:26 (GMT) |
commit | a6ee7f7e74b9345ae2cb9407865230327d0d576a (patch) | |
tree | 4e7b1367d8eb030241db8325caa541ce387b7313 /compat/strtod.c | |
parent | 29b75f74f37139eb2b27dbcd0a6a1aa874c45517 (diff) | |
download | tcl-a6ee7f7e74b9345ae2cb9407865230327d0d576a.zip tcl-a6ee7f7e74b9345ae2cb9407865230327d0d576a.tar.gz tcl-a6ee7f7e74b9345ae2cb9407865230327d0d576a.tar.bz2 |
Get rid of pre-C89-isms (esp. CONST vs const).
FossilOrigin-Name: 2d205c22fbe5def21ccd36bc6f7b2d3831f6122d
Diffstat (limited to 'compat/strtod.c')
-rw-r--r-- | compat/strtod.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compat/strtod.c b/compat/strtod.c index 9e494b1..aa73ab0 100644 --- a/compat/strtod.c +++ b/compat/strtod.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: strtod.c,v 1.8 2007/04/16 13:36:34 dkf Exp $ + * RCS: @(#) $Id: strtod.c,v 1.9 2008/04/27 22:21:28 dkf Exp $ */ #include "tclInt.h" @@ -63,7 +63,7 @@ static double powersOf10[] = { /* Table giving binary powers of 10. Entry */ double strtod( - CONST char *string, /* A decimal ASCII floating-point number, + const char *string, /* A decimal ASCII floating-point number, * optionally preceded by white space. Must * have form "-I.FE-X", where I is the integer * part of the mantissa, F is the fractional @@ -79,7 +79,7 @@ strtod( { int sign, expSign = FALSE; double fraction, dblExp, *d; - register CONST char *p; + register const char *p; register int c; int exp = 0; /* Exponent read from "EX" field. */ int fracExp = 0; /* Exponent that derives from the fractional @@ -94,7 +94,7 @@ strtod( int mantSize; /* Number of digits in mantissa. */ int decPt; /* Number of mantissa digits BEFORE decimal * point. */ - CONST char *pExp; /* Temporarily holds location of exponent in + const char *pExp; /* Temporarily holds location of exponent in * string. */ /* |