pool/tcl
SHA256
2
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accepting request 247812 from devel:languages:tcl

Browse Source 
- avoid %nil to pass download_files service

- Update license tag to SPDX 1.2.

- Update to 8.6.2:
  * TIP 429: New command [string cat].
  * [lsearch -integer], [lsort -integer] operate on wide ints.
       *** POTENTIAL INCOMPATIBILITY ***
  * [dict replace], [dict remove] return canonical dicts.
       *** POTENTIAL INCOMPATIBILITY ***
  * Improved ::env synchronization with environment.
  * transchans converted blocked writes to errors.
  * [info class subclasses ::oo::object] includes ::oo::class .
  * Fix: [chan configure -error] breaks [socket -async] connection.
  * Better handle NUL in filenames.
  * Fix: failures in nested ensemble bytecode compiler.
  * Fixed crashes in...
      - [apply {{} {while 1 {a {*}
      	[return -level 0 -code continue]}}}]
      - [apply {{} {namespace upvar a b [x]}}]
      - [coroutine X coroutine Y info frame]
      - multi-interp font teardown
      - oo chain deletion
  * Plugged memory leaks in...
      - execution traced coroutine deletion
      - [close [zlib push ... -dictionary ...]]
      - AtForkChild()
      - managing oo instance lists
  * Performance addressed in...
      - [lappend l $multiple $arg] compile: quadratic -> linear

OBS-URL: https://build.opensuse.org/request/show/247812
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tcl?expand=0&rev=44
This commit is contained in:
Stephan Kulow 2014-09-07 09:11:52 +00:00 committed by Git OBS Bridge
commit fff9cc1962
6 changed files with 66 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tcl-unload.patch
View File

@ -1,24 +0,0 @@
--- generic/tclLoad.c.orig
+++ generic/tclLoad.c
@@ -795,9 +795,7 @@ Tcl_UnloadObjCmd(
if (unLoadProcPtr != NULL) {
Tcl_MutexLock(&packageMutex);
- if ((pkgPtr->unloadProc != NULL) || (unLoadProcPtr == TclFSUnloadTempFile)) {
- (*unLoadProcPtr)(pkgPtr->loadHandle);
- }
+ (*unLoadProcPtr)(pkgPtr->loadHandle);
/*
* Remove this library from the loaded library cache.
@@ -1154,9 +1152,7 @@ TclFinalizeLoad(void)
if (pkgPtr->fileName[0] != '\0') {
Tcl_FSUnloadFileProc *unLoadProcPtr = pkgPtr->unLoadProcPtr;
- if ((unLoadProcPtr != NULL)
- && ((pkgPtr->unloadProc != NULL)
- || (unLoadProcPtr == TclFSUnloadTempFile))) {
+ if (unLoadProcPtr != NULL) {
(*unLoadProcPtr)(pkgPtr->loadHandle);
}
}

58
tcl.changes
View File

@ -1,3 +1,61 @@
-------------------------------------------------------------------
Sat Sep 6 10:23:13 UTC 2014 - coolo@suse.de
- avoid %nil to pass download_files service
-------------------------------------------------------------------
Mon Sep 1 07:45:22 UTC 2014 - fcrozat@suse.com
- Update license tag to SPDX 1.2.
-------------------------------------------------------------------
Thu Aug 28 14:24:16 UTC 2014 - vwallfahrer@suse.com
- Update to 8.6.2:
* TIP 429: New command [string cat].
* [lsearch -integer], [lsort -integer] operate on wide ints.
*** POTENTIAL INCOMPATIBILITY ***
* [dict replace], [dict remove] return canonical dicts.
*** POTENTIAL INCOMPATIBILITY ***
* Improved ::env synchronization with environment.
* transchans converted blocked writes to errors.
* [info class subclasses ::oo::object] includes ::oo::class .
* Fix: [chan configure -error] breaks [socket -async] connection.
* Better handle NUL in filenames.
* Fix: failures in nested ensemble bytecode compiler.
* Fixed crashes in...
- [apply {{} {while 1 {a {*}
[return -level 0 -code continue]}}}]
- [apply {{} {namespace upvar a b [x]}}]
- [coroutine X coroutine Y info frame]
- multi-interp font teardown
- oo chain deletion
* Plugged memory leaks in...
- execution traced coroutine deletion
- [close [zlib push ... -dictionary ...]]
- AtForkChild()
- managing oo instance lists
* Performance addressed in...
- [lappend l $multiple $arg] compile: quadratic -> linear
- binary [chan copy]: move bytes instead of copy
- Improved bytecode: [catch], [foreach], [lmap],
num. conversion
* Bytecode compiled: [concat], [linsert], [namespace origin],
[next], [nextto], [string is], [string replace],
[string tolower], [string totitle], [string toupper],
[string trim], [string trimleft],
[string trimright] [yieldto]
* New package releases:
http 2.8.8: Accept upper case schemes in URLs
tcltest 2.3.7: cleanup runs before output comparisons
platform 1.0.13: Update macosx-* variant compatibilities
TclOO 1.0.2
itcl 4.0.1
thread 2.7.1
sqlite3 3.8.6
tdbc* 1.0.1
- removed tcl-unload.patch and tcl.patch
-------------------------------------------------------------------
Fri Sep 20 07:53:52 UTC 2013 - max@suse.com

32
tcl.patch
View File

@ -1,32 +0,0 @@
Index: tcl8.5.2/library/init.tcl
===================================================================
--- library/init.tcl
+++ library/init.tcl
@@ -53,11 +53,6 @@ namespace eval tcl {
lappend ::auto_path $Dir
}
}
- set Dir [file join [file dirname [file dirname \
- [info nameofexecutable]]] lib]
- if {$Dir ni $::auto_path} {
- lappend ::auto_path $Dir
- }
catch {
foreach Dir $::tcl_pkgPath {
if {$Dir ni $::auto_path} {
Index: tcl8.5.2/library/tm.tcl
===================================================================
--- library/tm.tcl
+++ library/tm.tcl
@@ -310,10 +310,7 @@ proc ::tcl::tm::Defaults {} {
# Note that we're using [::list], not [list] because [list] means
# something other than [::list] in this namespace.
- roots [::list \
- [file dirname [info library]] \
- [file join [file dirname [file dirname $exe]] lib] \
- ]
+ roots [lreverse $::tcl_pkgPath]
if {$tcl_platform(platform) eq "windows"} {
set sep ";"

10
tcl.spec
View File

@ -1,7 +1,7 @@
#
# spec file for package tcl
#
# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@ -18,13 +18,13 @@
Name: tcl
Url: http://www.tcl.tk
Version: 8.6.1
Version: 8.6.2
Release: 0
%define rrc %nil
%define rrc %{nil}
%define TCL_MINOR %(echo %version | cut -c1-3)
BuildRoot: %{_tmppath}/%{name}-%{version}-build
Summary: The Tcl Programming Language
License: SUSE-TCL
License: TCL
Group: Development/Languages/Tcl
# bug437293
%ifarch ppc64
@ -36,7 +36,7 @@ Provides: tclsh%{TCL_MINOR}
Obsoletes: itcl < 4.0.0
Provides: itcl = 4.0.0
PreReq: /bin/rm
Source0: ftp://ftp.tcl.tk/pub/tcl/tcl8_6/%name%{version}%{rrc}-src.tar.gz
Source0: ftp://ftp.tcl.tk/pub/tcl/tcl8_6/%{name}%{version}%{rrc}-src.tar.gz
Source1: tcl-rpmlintrc
Source2: baselibs.conf
Source3: macros.tcl

3
tcl8.6.1-src.tar.gz
View File

@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:16ee769248e64ba1cae6b4834fcc4e4edd7470d881410e8d58f7dd1434343514
size 8755700

3
tcl8.6.2-src.tar.gz Normal file
View File

@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:86f7ae5f581dd0904d04415637ab3aef5a50986c1b6d04c340e2b1b0258da9c4
size 8857161