diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-05-24 12:24:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-05-24 12:24:54 (GMT) |
| commit | 202eeb707c8c5ed8922d6bf52123d14d9ea9390f (patch) | |
| tree | f15dfe81f4c60ab305baec60d9e706a6a02da3be /generic/tclCmdMZ.c | |
| parent | ae6192f9cba3a16d05b9e2e760679b07cfbd0822 (diff) | |
| parent | edb38932e8f071b1326515067d41bc060807dec2 (diff) | |
| download | tcl-202eeb707c8c5ed8922d6bf52123d14d9ea9390f.zip tcl-202eeb707c8c5ed8922d6bf52123d14d9ea9390f.tar.gz tcl-202eeb707c8c5ed8922d6bf52123d14d9ea9390f.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 75aa1f8..cb1eb4a 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -2586,7 +2586,7 @@ StringEqualCmd( objv += objc-2; - match = TclStringCmp (objv[0], objv[1], 0, nocase, reqlength); + match = TclStringCmp(objv[0], objv[1], 0, nocase, reqlength); Tcl_SetObjResult(interp, Tcl_NewBooleanObj(match ? 0 : 1)); return TCL_OK; @@ -2625,25 +2625,23 @@ StringCmpCmd( int match, nocase, reqlength, status; - if ((status = TclStringCmpOpts(interp, objc, objv, &nocase, &reqlength)) - != TCL_OK) { - + status = TclStringCmpOpts(interp, objc, objv, &nocase, &reqlength); + if (status != TCL_OK) { return status; } objv += objc-2; - match = TclStringCmp (objv[0], objv[1], 0, nocase, reqlength); + match = TclStringCmp(objv[0], objv[1], 0, nocase, reqlength); Tcl_SetObjResult(interp, Tcl_NewIntObj(match)); return TCL_OK; } -int TclStringCmpOpts ( +int TclStringCmpOpts( Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[], /* Argument objects. */ int *nocase, - int *reqlength -) + int *reqlength) { int i, length; const char *string; |