diff options
| author | stanton <stanton> | 1999-05-28 23:02:33 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-28 23:02:33 (GMT) |
| commit | 4ff9cb0b7693cb1c7964b303706a83abae2357a5 (patch) | |
| tree | e0e9bbe86decb3aeb6c426a3fccd527a62615b90 /generic/tclObj.c | |
| parent | 587613988af0418913a124caaa5933bafc53f2a4 (diff) | |
| download | tcl-4ff9cb0b7693cb1c7964b303706a83abae2357a5.zip tcl-4ff9cb0b7693cb1c7964b303706a83abae2357a5.tar.gz tcl-4ff9cb0b7693cb1c7964b303706a83abae2357a5.tar.bz2 | |
* generic/tclObj.c: Changed to eliminate use of isupper/tolower in
favor of the Unicode versions.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index d44b520..f1858f8 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.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: tclObj.c,v 1.6 1999/04/28 17:06:06 stanton Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.7 1999/05/28 23:02:33 stanton Exp $ */ #include "tclInt.h" @@ -1024,8 +1024,8 @@ SetBooleanFromAny(interp, objPtr) if (c & 0x80) { goto badBoolean; } - if (isupper(UCHAR(c))) { /* INTL: ISO only. */ - c = (char) UCHAR(tolower(UCHAR(c))); /* INTL: ISO only. */ + if (Tcl_UniCharIsUpper(UCHAR(c))) { + c = (char) Tcl_UniCharToLower(UCHAR(c)); } lowerCase[i] = c; } |