diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-06-17 13:29:39 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-06-17 13:29:39 (GMT) |
commit | 4d83a838a6861b9fa014b640eeb57ad476d127e7 (patch) | |
tree | 2d9c0d338e15190cadb20e3a8482b17da9625459 /generic/tclCmdAH.c | |
parent | 576d1949888301c700c8940e0d05048ad3936c19 (diff) | |
parent | 23f05c2848e282801d28d295c1d237f1434e9c7a (diff) | |
download | tcl-4d83a838a6861b9fa014b640eeb57ad476d127e7.zip tcl-4d83a838a6861b9fa014b640eeb57ad476d127e7.tar.gz tcl-4d83a838a6861b9fa014b640eeb57ad476d127e7.tar.bz2 |
Use more portable TclIsSpaceProc() in stead of isspace().
FossilOrigin-Name: 4bfe3111b15faf3aef860431fd88ab5ab58df398
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r-- | generic/tclCmdAH.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index eb2a303..f90819a 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -194,8 +194,7 @@ Tcl_CaseObjCmd( for (i = 0; i < caseObjc; i += 2) { int patObjc, j; const char **patObjv; - const char *pat; - unsigned char *p; + const char *pat, *p; if (i == caseObjc-1) { Tcl_ResetResult(interp); @@ -210,8 +209,8 @@ Tcl_CaseObjCmd( */ pat = TclGetString(caseObjv[i]); - for (p = (unsigned char *) pat; *p != '\0'; p++) { - if (isspace(*p) || (*p == '\\')) { /* INTL: ISO space, UCHAR */ + for (p = pat; *p != '\0'; p++) { + if (TclIsSpaceProc(*p) || (*p == '\\')) { break; } } |