583f749103
- bsc#1206623, tcl-string-compare.patch: Fix a bug in string comparison on big endian that made test string-2.20.1 fail. OBS-URL: https://build.opensuse.org/request/show/1045043 OBS-URL: https://build.opensuse.org/package/show/devel:languages:tcl/tcl?expand=0&rev=149
31 lines
752 B
Diff
31 lines
752 B
Diff
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
|
|
|