diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-30 01:05:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-30 01:05:48 (GMT) |
| commit | 77befed765bd876b11882607e8bdf4eb976df127 (patch) | |
| tree | cdbe5db833ad956ae007bda88564cb455442ad9f /generic/tclCmdMZ.c | |
| parent | f193bb719a2961f02094c50c2fdd95fa5b5357fb (diff) | |
| parent | 6a1cc41ccac84140abbe6011995eefbf2e8a4435 (diff) | |
| download | tcl-77befed765bd876b11882607e8bdf4eb976df127.zip tcl-77befed765bd876b11882607e8bdf4eb976df127.tar.gz tcl-77befed765bd876b11882607e8bdf4eb976df127.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index f9f2a28..5087fbb 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1565,7 +1565,7 @@ StringIsCmd( /* TODO */ if ((objPtr->typePtr == &tclDoubleType) || (objPtr->typePtr == &tclIntType) || -#ifndef NO_WIDE_TYPE +#ifndef TCL_WIDE_INT_IS_LONG (objPtr->typePtr == &tclWideIntType) || #endif (objPtr->typePtr == &tclBignumType)) { @@ -1602,7 +1602,7 @@ StringIsCmd( goto failedIntParse; case STR_IS_ENTIER: if ((objPtr->typePtr == &tclIntType) || -#ifndef NO_WIDE_TYPE +#ifndef TCL_WIDE_INT_IS_LONG (objPtr->typePtr == &tclWideIntType) || #endif (objPtr->typePtr == &tclBignumType)) { @@ -3527,7 +3527,7 @@ TclNRSwitchObjCmd( i++; goto finishedOptions; case OPT_NOCASE: - strCmpFn = strcasecmp; + strCmpFn = TclUtfCasecmp; noCase = 1; break; |