Tcl Source Code

Artifact 6d6da6a86bcdb15fa8d4443a409615cfbd4de78d:

Attachment "1511357.patch" to ticket [1511357fff] added by dgp 2006-06-23 21:53:43.

---

Index: generic/tclParseExpr.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclParseExpr.c,v
retrieving revision 1.32
diff -u -r1.32 tclParseExpr.c
--- generic/tclParseExpr.c	19 Dec 2005 19:03:17 -0000	1.32
+++ generic/tclParseExpr.c	23 Jun 2006 14:50:26 -0000
@@ -1845,10 +1845,9 @@
 	    utfBytes[length] = '\0';
 	    offset = Tcl_UtfToUniChar(utfBytes, &ch);
 	}
-	c = UCHAR(ch);
-	if (isalpha(UCHAR(c))) {			/* INTL: ISO only. */
+	if (Tcl_UniCharIsAlpha(ch)) {
 	    infoPtr->lexeme = FUNC_NAME;
-	    while (isalnum(UCHAR(c)) || (c == '_')) {	/* INTL: ISO only. */
+	    while (Tcl_UniCharIsAlnum(ch) || (UCHAR(ch) == '_')) {
 		src += offset;
 		length -= offset;
 		if (Tcl_UtfCharComplete(src, length)) {
@@ -1860,7 +1859,6 @@
 		    utfBytes[length] = '\0';
 		    offset = Tcl_UtfToUniChar(utfBytes, &ch);
 		}
-		c = UCHAR(ch);
 	    }
 	    infoPtr->size = (src - infoPtr->start);
 	    infoPtr->next = src;