Accepting request 75020 from devel:languages:tcl
Version 8.5.10 OBS-URL: https://build.opensuse.org/request/show/75020 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tcl?expand=0&rev=29
This commit is contained in:
Sascha Peilicke
Git OBS Bridge
commit
8a6792e87a
@ -1,35 +0,0 @@
|
||||
? NSK1200002852A
|
||||
Index: generic/tclStrToD.c
|
||||
===================================================================
|
||||
RCS file: /cvsroot/tcl/tcl/generic/tclStrToD.c,v
|
||||
retrieving revision 1.39
|
||||
diff -u -r1.39 tclStrToD.c
|
||||
--- generic/tclStrToD.c 7 Dec 2009 17:15:33 -0000 1.39
|
||||
+++ generic/tclStrToD.c 19 Feb 2010 02:42:35 -0000
|
||||
@@ -110,7 +110,6 @@
|
||||
static int mantBits; /* Number of bits in a double's significand */
|
||||
static mp_int pow5[9]; /* Table of powers of 5**(2**n), up to
|
||||
* 5**256 */
|
||||
-static double tiny; /* The smallest representable double */
|
||||
static int maxDigits; /* The maximum number of digits to the left of
|
||||
* the decimal point of a double. */
|
||||
static int minDigits; /* The maximum number of digits to the right
|
||||
@@ -1490,8 +1489,8 @@
|
||||
goto returnValue;
|
||||
}
|
||||
retval = SafeLdExp(retval, machexp);
|
||||
- if (retval < tiny) {
|
||||
- retval = tiny;
|
||||
+ if (retval == 0.0) {
|
||||
+ retval = SafeLdExp(1.0, DBL_MIN_EXP * log2FLT_RADIX - mantBits);
|
||||
}
|
||||
|
||||
/*
|
||||
@@ -2245,7 +2244,6 @@
|
||||
* the significand of a double.
|
||||
*/
|
||||
|
||||
- tiny = SafeLdExp(1.0, DBL_MIN_EXP * log2FLT_RADIX - mantBits);
|
||||
maxDigits = (int) ((DBL_MAX_EXP * log((double) FLT_RADIX)
|
||||
+ 0.5 * log(10.)) / log(10.));
|
||||
minDigits = (int) floor((DBL_MIN_EXP - DBL_MANT_DIG)
|
||||
65
tcl-stack.patch
Normal file
65
tcl-stack.patch
Normal file
@ -0,0 +1,65 @@
|
||||
Index: ChangeLog
|
||||
===================================================================
|
||||
--- ChangeLog
|
||||
+++ ChangeLog
|
||||
@@ -1,5 +1,11 @@
|
||||
+2011-06-30 Reinhard Max <max@suse.de>
|
||||
+
|
||||
+ * unix/configure.in: Add a volatile declaration to the test for
|
||||
+ TCL_STACK_GROWS_UP to prevent gcc 4.6 from producing invalid
|
||||
+ results due to aggressive optimisation.
|
||||
+
|
||||
2011-06-23 Don Porter <dgp@users.sourceforge.net>
|
||||
|
||||
*** 8.5.10 TAGGED FOR RELEASE ***
|
||||
|
||||
* changes: Update for 8.5.10 release.
|
||||
|
||||
Index: unix/configure
|
||||
===================================================================
|
||||
--- unix/configure
|
||||
+++ unix/configure
|
||||
@@ -18703,14 +18703,16 @@
|
||||
cat >>conftest.$ac_ext <<_ACEOF
|
||||
/* end confdefs.h. */
|
||||
|
||||
int StackGrowsUp(int *parent) {
|
||||
int here;
|
||||
+ volatile int result;
|
||||
if (parent)
|
||||
- return (&here < parent);
|
||||
+ result = (&here < parent);
|
||||
else
|
||||
- return StackGrowsUp(&here);
|
||||
+ result = StackGrowsUp(&here);
|
||||
+ return result;
|
||||
}
|
||||
int main (int argc, char *argv[]) {
|
||||
return StackGrowsUp(0);
|
||||
}
|
||||
|
||||
|
||||
Index: unix/configure.in
|
||||
===================================================================
|
||||
--- unix/configure.in
|
||||
+++ unix/configure.in
|
||||
@@ -703,14 +703,16 @@
|
||||
|
||||
AC_CACHE_CHECK([if the C stack grows upwards in memory], tcl_cv_stack_grows_up, [
|
||||
AC_TRY_RUN([
|
||||
int StackGrowsUp(int *parent) {
|
||||
int here;
|
||||
+ volatile int result;
|
||||
if (parent)
|
||||
- return (&here < parent);
|
||||
+ result = (&here < parent);
|
||||
else
|
||||
- return StackGrowsUp(&here);
|
||||
+ result = StackGrowsUp(&here);
|
||||
+ return result;
|
||||
}
|
||||
int main (int argc, char *argv[]) {
|
||||
return StackGrowsUp(0);
|
||||
}
|
||||
], tcl_cv_stack_grows_up=yes, tcl_cv_stack_grows_up=no,
|
||||
|
||||
@ -1,16 +1,5 @@
|
||||
Index: generic/tclLoad.c
|
||||
===================================================================
|
||||
--- generic/tclLoad.c.orig
|
||||
+++ generic/tclLoad.c
|
||||
@@ -9,7 +9,7 @@
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
*
|
||||
- * RCS: @(#) $Id: tclLoad.c,v 1.16.4.2 2008/11/14 00:22:39 nijtmans Exp $
|
||||
+ * RCS: @(#) $Id: tclLoad.c,v 1.16 2007/02/20 23:24:03 nijtmans Exp $
|
||||
*/
|
||||
|
||||
#include "tclInt.h"
|
||||
@@ -795,9 +795,7 @@ Tcl_UnloadObjCmd(
|
||||
|
||||
if (unLoadProcPtr != NULL) {
|
||||
|
||||
35
tcl.changes
35
tcl.changes
@ -1,3 +1,38 @@
|
||||
-------------------------------------------------------------------
|
||||
Thu Jun 30 15:50:01 UTC 2011 - max@novell.com
|
||||
|
||||
- New patchlevel release 8.5.10:
|
||||
* Update Unicode data to 6.0
|
||||
* Fix handling of empty path lists in Safe Tcl.
|
||||
* (bug fix)[3098302] crash in compiled [catch]
|
||||
* (TIP 378)[3081184] improved TIP 280 performance
|
||||
* (enhancement) Restore TclFormatInt for performance
|
||||
* (enhancement) Tcl_PrintDouble performance improvements
|
||||
* (bug fix)[3142026] GrowEvaluationStack OBOE
|
||||
* (bug fix)[3072640] protect writes to ::error* variables
|
||||
* (bug fix)[3200987,3192636] parser buffer overruns
|
||||
* (bug fix)[3202905] failed intrep release of interp result
|
||||
* (bug fix)[3202171] repair [namespace inscope] optimizer
|
||||
* (bug fix) Fixes from libtommath 0.42.0 release
|
||||
* (bug fix)[3216070] [load] extension from embed Tcl apps
|
||||
* (bug fix)[3285472] intrep corruption in [string reverse]
|
||||
* (bug fix)[2662380] crash when variable append trace unsets
|
||||
* (bug fix)[3285375] Buffer overflow in [concat]
|
||||
* (internals change) revised TclFindElement() interface
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
* (enhancement) dict->list w/o string rep generation
|
||||
* (bug fix)[3173086] Crash parsing long lists
|
||||
* (bug fix)[2715421] surplus \n in POST => http 2.7.6
|
||||
* (enhancement) msgcat internal improvements => msgcat 1.4.4
|
||||
* (bug fix)[3185407] cmd resolution epoch flaw
|
||||
* (bug fix)[3315098] mem leak generating double string rep
|
||||
* (new cmd) [tcltest::loadIntoSlaveInterpreter]
|
||||
=> tcltest 2.3.3
|
||||
* (new feature) DEB_HOST_MULTIARCH support => platform 1.0.10
|
||||
- Add tcl-stack.patch to fix stack direction checking for gcc 4.6.
|
||||
- Removed stack-3.1 from the list of known-failing tests.
|
||||
- tcl-SafeLdExp.patch isn't needed anymore.
|
||||
|
||||
-------------------------------------------------------------------
|
||||
Wed Apr 27 09:15:05 UTC 2011 - idoenmez@novell.com
|
||||
|
||||
|
||||
8
tcl.spec
8
tcl.spec
@ -20,7 +20,7 @@
|
||||
|
||||
Name: tcl
|
||||
Url: http://www.tcl.tk
|
||||
Version: 8.5.9
|
||||
Version: 8.5.10
|
||||
Release: 5
|
||||
%define TCL_MINOR %(echo %version | cut -c1-3)
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||
@ -41,7 +41,7 @@ Source2: baselibs.conf
|
||||
Source3: macros.tcl
|
||||
Patch0: tcl.patch
|
||||
Patch1: tcl-unload.patch
|
||||
Patch3: tcl-SafeLdExp.patch
|
||||
Patch2: tcl-stack.patch
|
||||
|
||||
%description
|
||||
Tcl (Tool Command Language) is a very powerful but easy to learn
|
||||
@ -89,10 +89,11 @@ Authors:
|
||||
%setup -q -n %name%version
|
||||
%patch0
|
||||
%patch1
|
||||
%patch3
|
||||
%patch2
|
||||
|
||||
%build
|
||||
cd unix
|
||||
autoconf
|
||||
%configure \
|
||||
--enable-man-symlinks \
|
||||
--enable-man-compression=gzip
|
||||
@ -118,7 +119,6 @@ export HOME=$PWD/home
|
||||
cat > known-failures <<EOF
|
||||
httpold-4.12
|
||||
mathop-25.14
|
||||
stack-3.1
|
||||
EOF
|
||||
%ifnarch %arm
|
||||
eval $MAKE test 2>&1 | tee testresults
|
||||
|
||||
3
tcl8.5.10-src.tar.bz2
Normal file
3
tcl8.5.10-src.tar.bz2
Normal file
@ -0,0 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:c7c145f9749135f769552d1b10bbd6c9901aae84c37e94828b303a8fc5740e4e
|
||||
size 3480226
|
||||
@ -1,3 +0,0 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:44dd7ddb891363a3db5d6edaf15dae5251237bccd5be2dc5c20f48367e220871
|
||||
size 3444091
|
||||
Loading…
Reference in New Issue
Block a user