diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:37:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:37:09 (GMT) |
| commit | 1fae54c8c004d072d62e3d867ef4e66b238d0bcd (patch) | |
| tree | 54c9a396d306c15ea15d97c4b9cfc5066bd15c27 /generic/tclCmdMZ.c | |
| parent | 511765faae09dd5a56da42a2df297514cff7df3e (diff) | |
| parent | 35299947e3250ea5b40f66bf8ee1c78844a9b553 (diff) | |
| download | tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.zip tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.tar.gz tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index cc4a3c2..d21a521 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1216,7 +1216,7 @@ Tcl_SplitObjCmd( Tcl_InitHashTable(&charReuseTable, TCL_ONE_WORD_KEYS); for ( ; stringPtr < end; stringPtr += len) { - int fullchar; + int fullchar; len = TclUtfToUniChar(stringPtr, &ch); fullchar = ch; @@ -2632,9 +2632,7 @@ StringEqualCmd( */ objv += objc-2; - match = TclStringCmp(objv[0], objv[1], 0, nocase, reqlength); - Tcl_SetObjResult(interp, Tcl_NewBooleanObj(match ? 0 : 1)); return TCL_OK; } @@ -2683,7 +2681,8 @@ StringCmpCmd( return TCL_OK; } -int TclStringCmpOpts( +int +TclStringCmpOpts( Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[], /* Argument objects. */ |