summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog21
-rw-r--r--generic/tclUtf.c2
-rw-r--r--generic/tclUtil.c10
-rw-r--r--unix/tclUnixFile.c2
4 files changed, 9 insertions, 26 deletions
diff --git a/ChangeLog b/ChangeLog
index 85fdf61..e567f87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,26 +7,9 @@
* generic/tclCmdMZ.c: Use new routines to replace calls to
* generic/tclListObj.c: isspace() and their /* INTL */ risk.
* generic/tclStrToD.c:
+ * generic/tclUtf.c:
+ * unix/tclUnixFile.c:
-2011-03-16 Jan Nijtmans <nijtmans@users.sf.net>
-
- * unix/tcl.m4: Make SHLIB_LD_LIBS='${LIBS}' the default and
- * unix/configure: set to "" on per-platform necessary basis.
- Backported from TEA, but kept all original platform code which was
- removed from TEA.
-
-2011-03-14 Kevin B. Kenny <kennykb@acm.org>
-
- * tools/tclZIC.tcl (onDayOfMonth): Allow for leading zeroes
- in month and day so that tzdata2011d parses correctly.
- * library/tzdata/America/Havana:
- * library/tzdata/America/Juneau:
- * library/tzdata/America/Santiago:
- * library/tzdata/Europe/Istanbul:
- * library/tzdata/Pacific/Apia:
- * library/tzdata/Pacific/Easter:
- * library/tzdata/Pacific/Honolulu: tzdata2011d
-
2011-04-27 Don Porter <dgp@users.sourceforge.net>
* generic/tclListObj.c: FreeListInternalRep() cleanup.
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index c545e66..00b652e 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -1526,7 +1526,7 @@ Tcl_UniCharIsSpace(
*/
if (ch < 0x80) {
- return isspace(UCHAR(ch)); /* INTL: ISO space */
+ return TclIsSpaceProc((char)ch);
} else {
category = (GetUniCharInfo(ch) & UNICODE_CATEGORY_MASK);
return ((SPACE_BITS >> category) & 1);
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 4a7f79f..d542b52 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -2723,7 +2723,7 @@ TclGetIntForIndex(
* Leading whitespace is acceptable in an index.
*/
- while (length && isspace(UCHAR(*bytes))) { /* INTL: ISO space. */
+ while (length && TclIsSpaceProc(*bytes)) {
bytes++;
length--;
}
@@ -2736,7 +2736,7 @@ TclGetIntForIndex(
if ((savedOp != '+') && (savedOp != '-')) {
goto parseError;
}
- if (isspace(UCHAR(opPtr[1]))) {
+ if (TclIsSpaceProc(opPtr[1])) {
goto parseError;
}
*opPtr = '\0';
@@ -2882,7 +2882,7 @@ SetEndOffsetFromAny(
* after "end-" to Tcl_GetInt, then reverse for offset.
*/
- if (isspace(UCHAR(bytes[4]))) {
+ if (TclIsSpaceProc(bytes[4])) {
return TCL_ERROR;
}
if (Tcl_GetInt(interp, bytes+4, &offset) != TCL_OK) {
@@ -2947,7 +2947,7 @@ TclCheckBadOctal(
* zero. Try to generate a meaningful error message.
*/
- while (isspace(UCHAR(*p))) { /* INTL: ISO space. */
+ while (TclIsSpaceProc(*p)) {
p++;
}
if (*p == '+' || *p == '-') {
@@ -2960,7 +2960,7 @@ TclCheckBadOctal(
while (isdigit(UCHAR(*p))) { /* INTL: digit. */
p++;
}
- while (isspace(UCHAR(*p))) { /* INTL: ISO space. */
+ while (TclIsSpaceProc(*p)) {
p++;
}
if (*p == '\0') {
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index 625b864..2639d59 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -82,7 +82,7 @@ TclpFindExecutable(
*/
while (1) {
- while (isspace(UCHAR(*p))) { /* INTL: BUG */
+ while (TclIsSpaceProc(*p)) {
p++;
}
name = p;