svn commit: r370327 - head/lang/tclX/files

[Pietro Cerutti]

Author: gahr
Date: Tue Oct  7 12:45:02 2014
New Revision: 370327
URL: https://svnweb.freebsd.org/changeset/ports/370327
QAT: https://qat.redports.org/buildarchive/r370327/

Log:
  - Chase compiler warnings
  
  PR:		192370
  Submitted by:	gahr
  Approved by:	maintainer (timeout > 2 months)

Added:
  head/lang/tclX/files/patch-generic_tclXchmod.c   (contents, props changed)
  head/lang/tclX/files/patch-generic_tclXdup.c   (contents, props changed)
  head/lang/tclX/files/patch-generic_tclXfcntl.c   (contents, props changed)
  head/lang/tclX/files/patch-generic_tclXhandles.c   (contents, props changed)
  head/lang/tclX/files/patch-generic_tclXutil.c   (contents, props changed)
  head/lang/tclX/files/patch-unix_tclXunixDup.c   (contents, props changed)

Added: head/lang/tclX/files/patch-generic_tclXchmod.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-generic_tclXchmod.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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;
+     }
+ 

Added: head/lang/tclX/files/patch-generic_tclXdup.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-generic_tclXdup.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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);

Added: head/lang/tclX/files/patch-generic_tclXfcntl.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-generic_tclXfcntl.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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:

Added: head/lang/tclX/files/patch-generic_tclXhandles.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-generic_tclXhandles.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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 =

Added: head/lang/tclX/files/patch-generic_tclXutil.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-generic_tclXutil.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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) ||

Added: head/lang/tclX/files/patch-unix_tclXunixDup.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/tclX/files/patch-unix_tclXunixDup.c	Tue Oct  7 12:45:02 2014	(r370327)
@@ -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;
+