diff options
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index d25b645..9fd152c 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.26 2006/11/15 20:08:45 dgp Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.27 2007/02/20 23:24:03 nijtmans Exp $ * *---------------------------------------------------------------------- */ @@ -100,7 +100,7 @@ static int minDigits; /* The maximum number of digits to the right * of the decimal point in a double. */ static int mantDIGIT; /* Number of mp_digit's needed to hold the * significand of a double. */ -static CONST double pow_10_2_n[] = { /* Inexact higher powers of ten. */ +static const double pow_10_2_n[] = { /* Inexact higher powers of ten. */ 1.0, 100.0, 10000.0, @@ -244,12 +244,12 @@ int TclParseNumber( Tcl_Interp *interp, /* Used for error reporting. May be NULL */ Tcl_Obj *objPtr, /* Object to receive the internal rep */ - CONST char *expected, /* Description of the type of number the caller + const char *expected, /* Description of the type of number the caller * expects to be able to parse ("integer", * "boolean value", etc.). */ - CONST char *bytes, /* Pointer to the start of the string to scan */ + const char *bytes, /* Pointer to the start of the string to scan */ int numBytes, /* Maximum number of bytes to scan, see above */ - CONST char **endPtrPtr, /* Place to store pointer to the character + const char **endPtrPtr, /* Place to store pointer to the character * that terminated the scan */ int flags) /* Flags governing the parse */ { @@ -291,9 +291,9 @@ TclParseNumber( int exponentSignum = 0; /* Signum of the exponent of a floating point * number */ long exponent = 0; /* Exponent of a floating point number */ - CONST char *p; /* Pointer to next character to scan */ + const char *p; /* Pointer to next character to scan */ size_t len; /* Number of characters remaining after p */ - CONST char *acceptPoint; /* Pointer to position after last character in + const char *acceptPoint; /* Pointer to position after last character in * an acceptable number */ size_t acceptLen; /* Number of characters following that * point. */ @@ -2264,7 +2264,7 @@ Tcl_InitBignumFromDouble( if (TclIsInfinite(d)) { if (interp != NULL) { - char *s = "integer value too large to represent"; + const char *s = "integer value too large to represent"; Tcl_SetObjResult(interp, Tcl_NewStringObj(s, -1)); Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", s, NULL); } |