remove old tcl-unload.patch and tcl.patch

OBS-URL: https://build.opensuse.org/package/show/devel:languages:tcl/tcl?expand=0&rev=74

tcl-unload.patch

@@ -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);
- 	    }
- 	}

tcl.patch

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