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/strtoul.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/strtoul.c')
-rw-r--r-- | compat/strtoul.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat/strtoul.c b/compat/strtoul.c index 64f95a6..21ee445 100644 --- a/compat/strtoul.c +++ b/compat/strtoul.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: strtoul.c,v 1.7 2007/04/16 13:36:34 dkf Exp $ + * RCS: @(#) $Id: strtoul.c,v 1.8 2008/04/27 22:21:28 dkf Exp $ */ #include "tclInt.h" @@ -52,7 +52,7 @@ static char cvtIn[] = { unsigned long int strtoul( - CONST char *string, /* String of ASCII digits, possibly preceded + const char *string, /* String of ASCII digits, possibly preceded * by white space. For bases greater than 10, * either lower- or upper-case digits may be * used. */ @@ -64,7 +64,7 @@ strtoul( * hex, "0" means octal, anything else means * decimal. */ { - register CONST char *p; + register const char *p; register unsigned long int result = 0; register unsigned digit; int anyDigits = 0; |