Tcl Source Code

Artifact f7da1e518da3440890992cfdf83305e71586937f9148eb3dae39a23d528f125c:

Attachment "tcl-string-compare.patch" to ticket [8f7fdea2df] added by max 2023-01-12 13:49:35.

---

Index: generic/tclCmdMZ.c
==================================================================
--- generic/tclCmdMZ.c
+++ generic/tclCmdMZ.c
@@ -2752,23 +2752,11 @@
 		s2 = value2Ptr->bytes;
 		memCmpFn = memcmp;
 	    } else {
 		s1 = (char *) Tcl_GetUnicode(value1Ptr);
 		s2 = (char *) Tcl_GetUnicode(value2Ptr);
-		if (
-#if defined(WORDS_BIGENDIAN) && (TCL_UTF_MAX != 4)
-			1
-#else
-			checkEq
-#endif /* WORDS_BIGENDIAN */
-		        ) {
-		    memCmpFn = memcmp;
-		    s1len *= sizeof(Tcl_UniChar);
-		    s2len *= sizeof(Tcl_UniChar);
-		} else {
-		    memCmpFn = (memCmpFn_t) Tcl_UniCharNcmp;
-		}
+		memCmpFn = (memCmpFn_t) Tcl_UniCharNcmp;
 	    }
 	}
     } else {
 	/*
 	 * Get the string representations, being careful in case we have