diff options
| author | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
| commit | c0fd219230e4295c44743ad165a0d5a1c980b7dc (patch) | |
| tree | ecdef91e34f72a712092b469a2a5ff861db47fb7 /generic/tclParseExpr.c | |
| parent | 131c68d85079ca5a553b28fef489cf29b79f1176 (diff) | |
| download | tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.zip tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.gz tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.bz2 | |
lots of lint
wrapped mutex declarations in ifdefs to avoid compiler warnings
Diffstat (limited to 'generic/tclParseExpr.c')
| -rw-r--r-- | generic/tclParseExpr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c index 1bd2a14..e177dae 100644 --- a/generic/tclParseExpr.c +++ b/generic/tclParseExpr.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParseExpr.c,v 1.1.2.2 1998/10/03 01:56:41 stanton Exp $ + * RCS: @(#) $Id: tclParseExpr.c,v 1.1.2.3 1998/11/11 04:54:18 stanton Exp $ */ #include "tclInt.h" @@ -1714,9 +1714,9 @@ GetLexeme(infoPtr) default: offset = Tcl_UtfToUniChar(src, &ch); c = UCHAR(ch); - if (isalpha(c)) { /* INTL: ISO only. */ + if (isalpha(UCHAR(c))) { /* INTL: ISO only. */ infoPtr->lexeme = FUNC_NAME; - while (isalnum(c) || (c == '_')) { /* INTL: ISO only. */ + while (isalnum(UCHAR(c)) || (c == '_')) { /* INTL: ISO only. */ src += offset; offset = Tcl_UtfToUniChar(src, &ch); c = UCHAR(ch); |