Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package tcl for openSUSE:Factory checked in
at 2023-02-16 21:09:48
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/tcl (Old)
and /work/SRC/openSUSE:Factory/.tcl.new.22824 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "tcl"
Thu Feb 16 21:09:48 2023 rev:68 rq:1065566 version:8.6.13
Changes:
--------
--- /work/SRC/openSUSE:Factory/tcl/tcl.changes 2023-01-27 10:23:05.397704282
+0100
+++ /work/SRC/openSUSE:Factory/.tcl.new.22824/tcl.changes 2023-02-16
21:09:49.352215886 +0100
@@ -1,0 +2,6 @@
+Mon Feb 6 18:29:45 UTC 2023 - Reinhard Max <m...@suse.com>
+
+- bsc#1203982, tcl-interp-limit-time.patch: Fix a y2k38 problem
+ in [interp limit -time] .
+
+-------------------------------------------------------------------
New:
----
tcl-interp-limit-time.patch
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ tcl.spec ++++++
--- /var/tmp/diff_new_pack.BnnDee/_old 2023-02-16 21:09:50.312221118 +0100
+++ /var/tmp/diff_new_pack.BnnDee/_new 2023-02-16 21:09:50.320221162 +0100
@@ -50,6 +50,7 @@
Source3: macros.tcl
Patch0: tcl-refchan-mode-needed.patch
Patch1: tcl-string-compare.patch
+Patch2: tcl-interp-limit-time.patch
BuildRequires: autoconf
BuildRequires: pkg-config
BuildRequires: zlib-devel
@@ -95,6 +96,7 @@
fi
%patch0
%patch1
+%patch2
# The SQLite extension is provided by the sqlite3 package,
# so don't build it here.
++++++ tcl-interp-limit-time.patch ++++++
Index: generic/tclInterp.c
==================================================================
--- generic/tclInterp.c
+++ generic/tclInterp.c
@@ -4684,11 +4684,11 @@
case OPT_SEC:
if (Tcl_LimitTypeEnabled(childInterp, TCL_LIMIT_TIME)) {
Tcl_Time limitMoment;
Tcl_LimitGetTime(childInterp, &limitMoment);
- Tcl_SetObjResult(interp, Tcl_NewLongObj(limitMoment.sec));
+ Tcl_SetObjResult(interp, Tcl_NewWideIntObj(limitMoment.sec));
}
break;
}
return TCL_OK;
} else if ((objc-consumedObjc) & 1 /* isOdd(objc-consumedObjc) */) {
@@ -4742,28 +4742,30 @@
"BADVALUE", NULL);
return TCL_ERROR;
}
limitMoment.usec = ((long) tmp)*1000;
break;
- case OPT_SEC:
+ case OPT_SEC: {
+ Tcl_WideInt sec;
secObj = objv[i+1];
(void) Tcl_GetStringFromObj(objv[i+1], &secLen);
if (secLen == 0) {
break;
}
- if (TclGetIntFromObj(interp, objv[i+1], &tmp) != TCL_OK) {
+ if (TclGetWideIntFromObj(interp, objv[i+1], &sec) != TCL_OK) {
return TCL_ERROR;
}
- if (tmp < 0) {
+ if (sec < 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"seconds must be at least 0", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP",
"BADVALUE", NULL);
return TCL_ERROR;
}
- limitMoment.sec = tmp;
+ limitMoment.sec = sec;
break;
+ }
}
}
if (milliObj != NULL || secObj != NULL) {
if (milliObj != NULL) {
/*
