Differences From Artifact [21b1c33db6]:

• File unix/dltest/pkgua.c — part of check-in [b780ee9ef2] at 2022-05-31 10:57:20 on branch main — Merge 8.7 (user: jan.nijtmans size: 8656) [more...]

To Artifact [7ca7585eff]:

• File unix/dltest/pkgua.c — part of check-in [9d3ede403c] at 2023-04-01 14:52:08 on branch core-8-branch — Add -Wall -Wextra -Wc++-compat -Wconversion -Werror to CFLAGS in unix/dltest/Makefile.in, and minimal changes to make it work warning-free. Fix indenting (user: jan.nijtmans size: 8664) [more...]

134
135
136
137
138
139
140
141
142
143
144
145
146
147
148

	Tcl_WrongNumArgs(interp, 1, objv,  "string1 string2");
	return TCL_ERROR;
    }

    str1 = Tcl_GetStringFromObj(objv[1], &len1);
    str2 = Tcl_GetStringFromObj(objv[2], &len2);
    if (len1 == len2) {
	result = (Tcl_UtfNcmp(str1, str2, len1) == 0);
    } else {
	result = 0;
    }
    Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
    return TCL_OK;
}


|

134
135
136
137
138
139
140
141
142
143
144
145
146
147
148

	Tcl_WrongNumArgs(interp, 1, objv,  "string1 string2");
	return TCL_ERROR;
    }

    str1 = Tcl_GetStringFromObj(objv[1], &len1);
    str2 = Tcl_GetStringFromObj(objv[2], &len2);
    if (len1 == len2) {
	result = (Tcl_UtfNcmp(str1, str2, (size_t)len1) == 0);
    } else {
	result = 0;
    }
    Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
    return TCL_OK;
}