summaryrefslogtreecommitdiff
path: root/source/tcl/tclx/tclx-8.4.gcc4.diff
blob: 08fe7d881191b1789ebe18f8e906d1c49e4841ac (plain)
1
2
3
4
5
6
7
8
9
10
11
--- 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],