diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:44:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:44:08 (GMT) |
| commit | f1dbfbf21581370d5dad9cbeb4c8ac09f93fb30c (patch) | |
| tree | 23939403aac62529ec29568c072731b9b2a25e6f /generic/tclCmdMZ.c | |
| parent | d904246bf4e9a50662c96fd30a010175aba29ab1 (diff) | |
| parent | 1fae54c8c004d072d62e3d867ef4e66b238d0bcd (diff) | |
| download | tcl-f1dbfbf21581370d5dad9cbeb4c8ac09f93fb30c.zip tcl-f1dbfbf21581370d5dad9cbeb4c8ac09f93fb30c.tar.gz tcl-f1dbfbf21581370d5dad9cbeb4c8ac09f93fb30c.tar.bz2 | |
merge 8.7
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 d38fd53..4bd75c3 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1218,7 +1218,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; @@ -2639,9 +2639,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; } @@ -2690,7 +2688,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. */ |