From 9b87b2c4f99b1efd5bc92a11cf9f52da0777f0f721cd17401d24fad484eef934 Mon Sep 17 00:00:00 2001 From: OBS User unknown Date: Fri, 11 Jul 2008 20:04:56 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tcl?expand=0&rev=10 --- tcl-dictcrash.patch | 23 ----------------------- tcl-format.patch | 38 -------------------------------------- tcl.changes | 12 ++++++++++++ tcl.spec | 19 ++++++++++++------- tcl8.5.2-src.tar.bz2 | 3 --- tcl8.5.3-src.tar.bz2 | 3 +++ 6 files changed, 27 insertions(+), 71 deletions(-) delete mode 100644 tcl-dictcrash.patch delete mode 100644 tcl-format.patch delete mode 100644 tcl8.5.2-src.tar.bz2 create mode 100644 tcl8.5.3-src.tar.bz2 diff --git a/tcl-dictcrash.patch b/tcl-dictcrash.patch deleted file mode 100644 index a24b812..0000000 --- a/tcl-dictcrash.patch +++ /dev/null @@ -1,23 +0,0 @@ ---- generic/tclCompCmds.c -+++ generic/tclCompCmds.c -@@ -1215,7 +1215,7 @@ - tokenPtr = TokenAfter(tokenPtr); - } - if (parsePtr->numWords > 4) { -- TclEmitInstInt1(INST_CONCAT1, parsePtr->numWords-2, envPtr); -+ TclEmitInstInt1(INST_CONCAT1, parsePtr->numWords-3, envPtr); - } - - /* ---- tests/dict.test -+++ tests/dict.test -@@ -414,6 +414,9 @@ - catch {unset dictVar} - set result - } {1 {can't set "dictVar": variable is array}} -+test dict-13.10 {compiled dict append: crash case} { -+ apply {{} {dict append dictVar a o k}} -+} {a ok} - - test dict-14.1 {dict for command: syntax} { - list [catch {dict for} msg] $msg diff --git a/tcl-format.patch b/tcl-format.patch deleted file mode 100644 index 70fd330..0000000 --- a/tcl-format.patch +++ /dev/null @@ -1,38 +0,0 @@ -Index: generic/tclStringObj.c -=================================================================== -RCS file: /cvsroot/tcl/tcl/generic/tclStringObj.c,v -retrieving revision 1.70 -diff -u -r1.70 tclStringObj.c ---- generic/tclStringObj.c 28 Feb 2008 17:36:49 -0000 1.70 -+++ generic/tclStringObj.c 7 Apr 2008 15:12:36 -0000 -@@ -2003,8 +2003,8 @@ - allocSegment = 1; - Tcl_IncrRefCount(segment); - -- if ((isNegative || gotPlus) && (useBig || (ch == 'd'))) { -- Tcl_AppendToObj(segment, (isNegative ? "-" : "+"), 1); -+ if ((isNegative || gotPlus || gotSpace) && (useBig || (ch == 'd'))) { -+ Tcl_AppendToObj(segment, (isNegative ? "-" : gotPlus ? "+" : " "), 1); - } - - if (gotHash) { -Index: tests/format.test -=================================================================== -RCS file: /cvsroot/tcl/tcl/tests/format.test,v -retrieving revision 1.25 -diff -u -r1.25 format.test ---- tests/format.test 10 Jan 2008 16:09:23 -0000 1.25 -+++ tests/format.test 7 Apr 2008 15:12:36 -0000 -@@ -496,6 +496,12 @@ - test format-15.4 {testing %0..s 0 padding for chars/strings} { - format %05c 61 - } {0000=} -+test format-15.5 {testing %d space padding for integers} { -+ format "(% 1d) (% 1d)" 10 -10 -+} {( 10) (-10)} -+test format-15.6 {testing %d plus padding for integers} { -+ format "(%+1d) (%+1d)" 10 -10 -+} {(+10) (-10)} - - set a "0123456789" - set b "" diff --git a/tcl.changes b/tcl.changes index 1da55d3..a9fa79a 100644 --- a/tcl.changes +++ b/tcl.changes @@ -1,3 +1,15 @@ +------------------------------------------------------------------- +Thu Jul 10 16:48:09 CEST 2008 - max@suse.de + +- New release: 8.5.3: + * Add support for bidirectional [fcopy]. + * Fix [fcopy] callbacks. + * Fix [chan postevent] crash. + * Fix broken [format {% d}]. + * Fix [dict append] crash. + * Fix crash in [glob -dir {} a]. + * Support TM packages in Safe Base. + ------------------------------------------------------------------- Wed May 7 11:44:53 CEST 2008 - max@suse.de diff --git a/tcl.spec b/tcl.spec index c19f0de..71f3331 100644 --- a/tcl.spec +++ b/tcl.spec @@ -1,5 +1,5 @@ # -# spec file for package tcl (Version 8.5.2) +# spec file for package tcl (Version 8.5.3) # # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -13,8 +13,8 @@ Name: tcl Url: http://www.tcl.tk -Version: 8.5.2 -Release: 9 +Version: 8.5.3 +Release: 1 %define TCL_MINOR %(echo %version | cut -c1-3) BuildRoot: %{_tmppath}/%{name}-%{version}-build Summary: The Tcl Programming Language @@ -28,8 +28,6 @@ Source1: tcl-rpmlintrc Source2: baselibs.conf Source3: macros.tcl Patch0: tcl.patch -Patch1: tcl-format.patch -Patch2: tcl-dictcrash.patch %description Tcl (Tool Command Language) is a very powerful but easy to learn @@ -71,8 +69,6 @@ Authors: %prep %setup -q -n %name%version %patch0 -%patch1 -%patch2 %build cd unix @@ -148,6 +144,15 @@ exit 0 %_libdir/tclConfig.sh %changelog +* Thu Jul 10 2008 max@suse.de +- New release: 8.5.3: + * Add support for bidirectional [fcopy]. + * Fix [fcopy] callbacks. + * Fix [chan postevent] crash. + * Fix broken [format {%% d}]. + * Fix [dict append] crash. + * Fix crash in [glob -dir {} a]. + * Support TM packages in Safe Base. * Wed May 07 2008 max@suse.de - Added a fix and a test for a crash in the [dict append] command. * Mon Apr 07 2008 max@suse.de diff --git a/tcl8.5.2-src.tar.bz2 b/tcl8.5.2-src.tar.bz2 deleted file mode 100644 index ab10136..0000000 --- a/tcl8.5.2-src.tar.bz2 +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:3eef378343e793c1a7b35ffe0a1a1fc01dee06622a8df061f83955d20f814b0b -size 3381211 diff --git a/tcl8.5.3-src.tar.bz2 b/tcl8.5.3-src.tar.bz2 new file mode 100644 index 0000000..26eb2af --- /dev/null +++ b/tcl8.5.3-src.tar.bz2 @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:234909436a6f532a314820df9343e51f26d4d54903de294cc6ccc973c841ff73 +size 3328476