summaryrefslogtreecommitdiffstats
path: root/compat/strtod.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-02-25 10:36:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-02-25 10:36:32 (GMT)
commitefe59244840c732a49b93ff7aa6c01cb56874954 (patch)
tree51173dcf6440bab8a4aa0035be9c662f0cba4e8b /compat/strtod.c
parenta0211643722bd3be1a1b6a97595bfc96720edb98 (diff)
downloadtcl-efe59244840c732a49b93ff7aa6c01cb56874954.zip
tcl-efe59244840c732a49b93ff7aa6c01cb56874954.tar.gz
tcl-efe59244840c732a49b93ff7aa6c01cb56874954.tar.bz2
Minor cleanup of compat functions to get rid of GCC warnings.
Diffstat (limited to 'compat/strtod.c')
-rw-r--r--compat/strtod.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/compat/strtod.c b/compat/strtod.c
index ad5b72e..a5f350f 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.4 2001/11/23 01:26:34 das Exp $
+ * RCS: @(#) $Id: strtod.c,v 1.5 2002/02/25 10:36:32 dkf Exp $
*/
#include "tcl.h"
@@ -110,7 +110,7 @@ strtod(string, endPtr)
*/
p = string;
- while (isspace(*p)) {
+ while (isspace(UCHAR(*p))) {
p += 1;
}
if (*p == '-') {
@@ -208,11 +208,11 @@ strtod(string, endPtr)
}
expSign = FALSE;
}
- if (!isdigit(*p)) {
+ if (!isdigit(UCHAR(*p))) {
p = pExp;
goto done;
}
- while (isdigit(*p)) {
+ while (isdigit(UCHAR(*p))) {
exp = exp * 10 + (*p - '0');
p += 1;
}