diff options
author | nijtmans <nijtmans@noemail.net> | 2010-01-06 21:35:21 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-01-06 21:35:21 (GMT) |
commit | 9dce1e9a984a3e0beb09e0c3a1292a13c1f63bc6 (patch) | |
tree | e6ad158e27cb4aae64737fd8c11326891a51ac7f /generic/tclCompExpr.c | |
parent | 6cbc7dfe30d158f9d3c06973dee976b2659e3c91 (diff) | |
download | tcl-9dce1e9a984a3e0beb09e0c3a1292a13c1f63bc6.zip tcl-9dce1e9a984a3e0beb09e0c3a1292a13c1f63bc6.tar.gz tcl-9dce1e9a984a3e0beb09e0c3a1292a13c1f63bc6.tar.bz2 |
Various trivial fixes, discovered during CYGWIN porting attempt. All backported from trunk.
FossilOrigin-Name: 100e5d2f1262afde210c7844d866359a8409924c
Diffstat (limited to 'generic/tclCompExpr.c')
-rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index f6ef042..6eda4d6 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompExpr.c,v 1.97 2008/02/28 20:40:24 dgp Exp $ + * RCS: @(#) $Id: tclCompExpr.c,v 1.97.2.1 2010/01/06 21:35:25 nijtmans Exp $ */ #include "tclInt.h" @@ -752,7 +752,7 @@ ParseExpr( && (lastStart[2] <= '9')) { const char *end = lastStart + 2; Tcl_Obj* copy; - while (isdigit(*end)) { + while (isdigit(UCHAR(*end))) { end++; } copy = Tcl_NewStringObj(lastStart, |