slackware-current/source/tcl/tclx/tclx-8.4.gcc4.diff

--- tclx8.4/generic/tclXdup.c.varinit	2006-02-03 15:54:38.000000000 -0500
+++ tclx8.4/generic/tclXdup.c	2006-02-03 15:54:53.000000000 -0500
@@ -202,7 +202,7 @@
 {
     Tcl_Channel newChannel;
     int bindFnum, fnum;
-    char *srcChannelId, *targetChannelId;
+    char *srcChannelId = NULL, *targetChannelId;
 
     if ((objc < 2) || (objc > 3)) {
         return TclX_WrongArgs (interp, objv [0],
Slackware 13.0 Wed Aug 26 10:00:38 CDT 2009 Slackware 13.0 x86_64 is released as stable! Thanks to everyone who helped make this release possible -- see the RELEASE_NOTES for the credits. The ISOs are off to the replicator. This time it will be a 6 CD-ROM 32-bit set and a dual-sided 32-bit/64-bit x86/x86_64 DVD. We're taking pre-orders now at store.slackware.com. Please consider picking up a copy to help support the project. Once again, thanks to the entire Slackware community for all the help testing and fixing things and offering suggestions during this development cycle. As always, have fun and enjoy! -P. 2009-08-26 10:00:38 -05:00			`--- tclx8.4/generic/tclXdup.c.varinit 2006-02-03 15:54:38.000000000 -0500`
			`+++ tclx8.4/generic/tclXdup.c 2006-02-03 15:54:53.000000000 -0500`
			`@@ -202,7 +202,7 @@`
			`{`
			`Tcl_Channel newChannel;`
			`int bindFnum, fnum;`
			`- char srcChannelId, targetChannelId;`
			`+ char srcChannelId = NULL, targetChannelId;`

			`if ((objc < 2) \|\| (objc > 3)) {`
			`return TclX_WrongArgs (interp, objv [0],`