diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-27 13:38:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-27 13:38:33 (GMT) |
| commit | 7445bc80cf5b66077244a0353f8271ce0867d34f (patch) | |
| tree | 4c64be051a46b10c10bb0d5476a075378a4804f8 /generic/regc_locale.c | |
| parent | 12afcd4f5d1ba0da26a2c5c0ff838f4bb8432848 (diff) | |
| download | tcl-7445bc80cf5b66077244a0353f8271ce0867d34f.zip tcl-7445bc80cf5b66077244a0353f8271ce0867d34f.tar.gz tcl-7445bc80cf5b66077244a0353f8271ce0867d34f.tar.bz2 | |
Backing out unwise changes
Diffstat (limited to 'generic/regc_locale.c')
| -rw-r--r-- | generic/regc_locale.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/regc_locale.c b/generic/regc_locale.c index c702093..99c4327 100644 --- a/generic/regc_locale.c +++ b/generic/regc_locale.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: regc_locale.c,v 1.6.8.1 2001/09/26 14:23:09 dkf Exp $ + * RCS: @(#) $Id: regc_locale.c,v 1.6.8.2 2001/09/27 13:38:33 dkf Exp $ */ /* ASCII character-name table */ @@ -579,7 +579,7 @@ chr *endp; /* points just past end of name */ /* search table */ Tcl_DStringInit(&ds); - np = Tcl_UniCharToUtfDString(startp, (Tcl_Length)len, &ds); + np = Tcl_UniCharToUtfDString(startp, (int)len, &ds); for (cn = cnames; cn->name != NULL; cn++) if (strlen(cn->name) == len && strncmp(cn->name, np, len) == 0) break; /* NOTE BREAK OUT */ @@ -738,7 +738,7 @@ int cases; /* case-independent? */ len = endp - startp; Tcl_DStringInit(&ds); - np = Tcl_UniCharToUtfDString(startp, (Tcl_Length)len, &ds); + np = Tcl_UniCharToUtfDString(startp, (int)len, &ds); /* * Remap lower and upper to alpha if the match is case insensitive. |