diff options
| author | stanton <stanton> | 1998-06-25 16:11:27 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-25 16:11:27 (GMT) |
| commit | 690834e1c77f90f43bc6f2f2d028a75d5b84c023 (patch) | |
| tree | bf282d40c9ffd3e8b604503c543c519153e03ec8 | |
| parent | 49c256e178a749d91ee41cfbcb8b200e8206ba4a (diff) | |
| download | tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.zip tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.tar.gz tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.tar.bz2 | |
lint
| -rw-r--r-- | generic/tclBinary.c | 2 | ||||
| -rw-r--r-- | unix/tclUnixInit.c | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index e15fe4c..840843b 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -829,7 +829,7 @@ GetFormatSpec(formatPtr, cmdPtr, countPtr) if (**formatPtr == '*') { (*formatPtr)++; (*countPtr) = BINARY_ALL; - } else if (isdigit(**formatPtr)) { + } else if (isdigit(UCHAR(**formatPtr))) { (*countPtr) = strtoul(*formatPtr, formatPtr, 10); } else { (*countPtr) = BINARY_NOCOUNT; diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 69df49c..56df95d 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -172,7 +172,8 @@ TclPlatformInit(interp) * name.version and the minor version number is in name.release. */ - if ((strchr(name.release, '.') != NULL) || !isdigit(name.version[0])) { + if ((strchr(name.release, '.') != NULL) + || !isdigit(UCHAR(name.version[0]))) { Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.release, TCL_GLOBAL_ONLY); } else { |