summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOGT.c6
-rw-r--r--generic/tclIORChan.c6
-rw-r--r--generic/tclIORTrans.c6
3 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c
index a4ba61a..1935a3d 100644
--- a/generic/tclIOGT.c
+++ b/generic/tclIOGT.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * CVS: $Id: tclIOGT.c,v 1.21 2008/08/10 23:06:17 nijtmans Exp $
+ * CVS: $Id: tclIOGT.c,v 1.22 2010/01/10 22:58:40 nijtmans Exp $
*/
#include "tclInt.h"
@@ -118,7 +118,7 @@ static inline void ResultAdd(ResultBuffer *r, unsigned char *buf,
* transformations.
*/
-static Tcl_ChannelType transformChannelType = {
+static const Tcl_ChannelType transformChannelType = {
"transform", /* Type name. */
TCL_CHANNEL_VERSION_5, /* v5 channel */
TransformCloseProc, /* Close proc. */
@@ -135,7 +135,7 @@ static Tcl_ChannelType transformChannelType = {
TransformNotifyProc, /* Handling of events bubbling up. */
TransformWideSeekProc, /* Wide seek proc. */
NULL, /* Thread action. */
- NULL, /* Truncate. */
+ NULL /* Truncate. */
};
/*
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c
index e3ba688..68072fa 100644
--- a/generic/tclIORChan.c
+++ b/generic/tclIORChan.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIORChan.c,v 1.43 2009/11/21 21:58:30 patthoyts Exp $
+ * RCS: @(#) $Id: tclIORChan.c,v 1.44 2010/01/10 22:58:40 nijtmans Exp $
*/
#include <tclInt.h>
@@ -57,7 +57,7 @@ static int ReflectSetOption(ClientData clientData,
* a version 3 structure.
*/
-static Tcl_ChannelType tclRChannelType = {
+static const Tcl_ChannelType tclRChannelType = {
"tclrchannel", /* Type name. */
TCL_CHANNEL_VERSION_5, /* v5 channel */
ReflectClose, /* Close channel, clean instance data */
@@ -74,7 +74,7 @@ static Tcl_ChannelType tclRChannelType = {
NULL, /* Handle events. NULL'able */
ReflectSeekWide, /* Move access point (64 bit). NULL'able */
NULL, /* thread action */
- NULL, /* truncate */
+ NULL /* truncate */
};
/*
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c
index e22b356..4dfe78f 100644
--- a/generic/tclIORTrans.c
+++ b/generic/tclIORTrans.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIORTrans.c,v 1.10 2009/11/18 22:21:06 nijtmans Exp $
+ * RCS: @(#) $Id: tclIORTrans.c,v 1.11 2010/01/10 22:58:40 nijtmans Exp $
*/
#include <tclInt.h>
@@ -63,7 +63,7 @@ static int ReflectNotify(ClientData clientData, int mask);
* The C layer channel type/driver definition used by the reflection.
*/
-static Tcl_ChannelType tclRTransformType = {
+static const Tcl_ChannelType tclRTransformType = {
"tclrtransform", /* Type name. */
TCL_CHANNEL_VERSION_5, /* v5 channel. */
ReflectClose, /* Close channel, clean instance data. */
@@ -81,7 +81,7 @@ static Tcl_ChannelType tclRTransformType = {
ReflectNotify, /* Handle events. */
ReflectSeekWide, /* Move access point (64 bit). */
NULL, /* thread action */
- NULL, /* truncate */
+ NULL /* truncate */
};
/*