From 690834e1c77f90f43bc6f2f2d028a75d5b84c023 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Thu, 25 Jun 1998 16:11:27 +0000
Subject: lint

---
 generic/tclBinary.c | 2 +-
 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 {
-- 
cgit v0.12