testing/tcl
SHA256
3
0
Fork 0
forked from pool/tcl
Code Pull Requests Activity

remove old tcl-unload.patch and tcl.patch

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:tcl/tcl?expand=0&rev=74
This commit is contained in:
Reinhard Max 2014-08-29 13:21:06 +00:00 committed by Git OBS Bridge
parent 88af814ee8
commit 4ec0724c8a
2 changed files with 0 additions and 56 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);
}
}

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 ";"