- Chase compiler warnings

PR:		192370
Submitted by:	gahr
Approved by:	maintainer (timeout > 2 months)

6 files changed, 75 insertions, 0 deletions

diff --git a/lang/tclX/files/patch-generic_tclXchmod.c b/lang/tclX/files/patch-generic_tclXchmod.c
new file mode 100644
index 000000000000..68983fcf002b
--- /dev/null
+++ b/lang/tclX/files/patch-generic_tclXchmod.c
@@ -0,0 +1,10 @@
+--- generic/tclXchmod.c.orig	2014-07-30 17:45:54.000000000 +0200
++++ generic/tclXchmod.c	2014-07-30 17:48:09.000000000 +0200
+@@ -353,6 +353,7 @@
+ 	modeInfo.absMode = modeBits;
+         modeInfo.symMode = NULL;
+     } else {
++        modeInfo.absMode = 0; // not used, but keeps compilers happy
+         modeInfo.symMode = modeString;
+     }
+ 
diff --git a/lang/tclX/files/patch-generic_tclXdup.c b/lang/tclX/files/patch-generic_tclXdup.c
new file mode 100644
index 000000000000..895d40ac9773
--- /dev/null
+++ b/lang/tclX/files/patch-generic_tclXdup.c
@@ -0,0 +1,11 @@
+--- generic/tclXdup.c.orig	2014-07-30 16:44:06.000000000 +0200
++++ generic/tclXdup.c	2014-07-30 16:45:30.000000000 +0200
+@@ -128,7 +128,7 @@
+     char       *targetChannelId;
+ {
+     Tcl_Channel srcChannel, newChannel = NULL;
+-    Tcl_ChannelType *channelType;
++    const Tcl_ChannelType *channelType;
+     int mode;
+ 
+     srcChannel = Tcl_GetChannel (interp, srcChannelId, &mode);
diff --git a/lang/tclX/files/patch-generic_tclXfcntl.c b/lang/tclX/files/patch-generic_tclXfcntl.c
new file mode 100644
index 000000000000..c75853b3f2f5
--- /dev/null
+++ b/lang/tclX/files/patch-generic_tclXfcntl.c
@@ -0,0 +1,12 @@
+--- generic/tclXfcntl.c.orig	2014-07-30 16:45:58.000000000 +0200
++++ generic/tclXfcntl.c	2014-07-30 16:46:21.000000000 +0200
+@@ -162,7 +162,8 @@
+     int          mode;
+     int          attrib;
+ {
+-    int value, optValue;
++    int value = 0;
++    int optValue;
+ 
+     switch (attrib) {
+       case ATTR_RDONLY:
diff --git a/lang/tclX/files/patch-generic_tclXhandles.c b/lang/tclX/files/patch-generic_tclXhandles.c
new file mode 100644
index 000000000000..50c67946476a
--- /dev/null
+++ b/lang/tclX/files/patch-generic_tclXhandles.c
@@ -0,0 +1,11 @@
+--- generic/tclXhandles.c.orig	2014-07-30 17:35:38.000000000 +0200
++++ generic/tclXhandles.c	2014-07-30 17:35:43.000000000 +0200
+@@ -567,7 +567,7 @@
+ 
+     entryHdrPtr = HEADER_AREA (entryPtr);
+     if (entryHdrPtr->freeLink != ALLOCATED_IDX)
+-        panic ("Tcl_HandleFree: entry not allocated %x\n", entryHdrPtr);
++        panic ("Tcl_HandleFree: entry not allocated %p\n", entryHdrPtr);
+ 
+     entryHdrPtr->freeLink = tblHdrPtr->freeHeadIdx;
+     tblHdrPtr->freeHeadIdx =
diff --git a/lang/tclX/files/patch-generic_tclXutil.c b/lang/tclX/files/patch-generic_tclXutil.c
new file mode 100644
index 000000000000..9376b28df0a3
--- /dev/null
+++ b/lang/tclX/files/patch-generic_tclXutil.c
@@ -0,0 +1,20 @@
+--- generic/tclXutil.c.orig	2014-07-30 16:56:00.000000000 +0200
++++ generic/tclXutil.c	2014-07-30 16:56:50.000000000 +0200
+@@ -870,7 +870,7 @@
+ TclX_IsNullObj (objPtr)
+     Tcl_Obj *objPtr;
+ {
+-    static Tcl_ObjType *listType = NULL, *stringType = NULL;
++    const static Tcl_ObjType *listType = NULL, *stringType = NULL;
+     int length;
+     
+     /*
+@@ -956,7 +956,7 @@
+ {
+     Tcl_Obj **saveObjv;
+     int saveObjc;
+-    long flags;
++    long flags = 0;
+ 
+     if ((Tcl_ListObjGetElements (NULL, saveObjPtr, &saveObjc,
+                                  &saveObjv) != TCL_OK) ||
diff --git a/lang/tclX/files/patch-unix_tclXunixDup.c b/lang/tclX/files/patch-unix_tclXunixDup.c
new file mode 100644
index 000000000000..7fcfb6852353
--- /dev/null
+++ b/lang/tclX/files/patch-unix_tclXunixDup.c
@@ -0,0 +1,11 @@
+--- unix/tclXunixDup.c.orig	2014-07-30 16:57:13.000000000 +0200
++++ unix/tclXunixDup.c	2014-07-30 17:00:42.000000000 +0200
+@@ -84,7 +84,7 @@
+     char       *targetChannelId;
+ {
+     ClientData handle;
+-    Tcl_ChannelType *channelType;
++    const Tcl_ChannelType *channelType;
+     Tcl_Channel newChannel = NULL;
+     int srcFileNum, newFileNum = -1;
+