Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package tcl for openSUSE:Factory checked in
at 2022-12-25 15:14:18
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/tcl (Old)
and /work/SRC/openSUSE:Factory/.tcl.new.1563 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "tcl"
Sun Dec 25 15:14:18 2022 rev:66 rq:1045045 version:8.6.13
Changes:
--------
--- /work/SRC/openSUSE:Factory/tcl/tcl.changes 2022-11-30 14:58:53.309020584
+0100
+++ /work/SRC/openSUSE:Factory/.tcl.new.1563/tcl.changes 2022-12-25
15:14:22.841212703 +0100
@@ -1,0 +2,6 @@
+Fri Dec 23 15:50:47 UTC 2022 - Reinhard Max <m...@suse.com>
+
+- bsc#1206623, tcl-string-compare.patch: Fix a bug in string
+ comparison on big endian that made test string-2.20.1 fail.
+
+-------------------------------------------------------------------
New:
----
tcl-string-compare.patch
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ tcl.spec ++++++
--- /var/tmp/diff_new_pack.XHJ5Kr/_old 2022-12-25 15:14:23.393215827 +0100
+++ /var/tmp/diff_new_pack.XHJ5Kr/_new 2022-12-25 15:14:23.397215850 +0100
@@ -49,6 +49,7 @@
Source2: baselibs.conf
Source3: macros.tcl
Patch0: tcl-refchan-mode-needed.patch
+Patch1: tcl-string-compare.patch
BuildRequires: autoconf
BuildRequires: pkg-config
BuildRequires: zlib-devel
@@ -93,6 +94,7 @@
exit 1
fi
%patch0
+%patch1
# The SQLite extension is provided by the sqlite3 package,
# so don't build it here.
++++++ tcl-string-compare.patch ++++++
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
