diff options
| author | nijtmans <nijtmans> | 2008-10-04 12:33:34 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-10-04 12:33:34 (GMT) |
| commit | 0cc58bcc1ebada2169f5e943bd09f446556c7ccf (patch) | |
| tree | eb77cc8298b5ed98a3fc54bbf7e2f2e8aaba6d20 /generic/tclIO.c | |
| parent | c2c40e8fd014a4c02f7bc7b27aaa7705132a9112 (diff) | |
| download | tcl-0cc58bcc1ebada2169f5e943bd09f446556c7ccf.zip tcl-0cc58bcc1ebada2169f5e943bd09f446556c7ccf.tar.gz tcl-0cc58bcc1ebada2169f5e943bd09f446556c7ccf.tar.bz2 | |
* doc/ChnlStack.3: CONSTified the typePtr argument
* doc/CrtChannel.3: of Tcl_CreateChannel and Tcl_StackChannel
* generic/tcl.decls and the return value of Tcl_GetChannelType
* generic/tcl.h
* generic/tclIO.h
* generic/tclIO.c
* ChangeLog
* generic/tclDecls.h: regenerated
This change complies with TIP #27.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 08d73ec..c69a8e2 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.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. * - * RCS: @(#) $Id: tclIO.c,v 1.143 2008/05/23 21:00:44 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.144 2008/10/04 12:33:34 nijtmans Exp $ */ #include "tclInt.h" @@ -208,7 +208,7 @@ static int SetChannelFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static void UpdateStringOfChannel(Tcl_Obj *objPtr); static void FreeChannelIntRep(Tcl_Obj *objPtr); -static Tcl_ObjType tclChannelType = { +static const Tcl_ObjType tclChannelType = { "channel", /* name for this type */ FreeChannelIntRep, /* freeIntRepProc */ DupChannelIntRep, /* dupIntRepProc */ @@ -1219,7 +1219,7 @@ TclGetChannelFromObj( Tcl_Channel Tcl_CreateChannel( - Tcl_ChannelType *typePtr, /* The channel type record. */ + const Tcl_ChannelType *typePtr, /* The channel type record. */ const char *chanName, /* Name of channel to record. */ ClientData instanceData, /* Instance specific data. */ int mask) /* TCL_READABLE & TCL_WRITABLE to indicate if @@ -1415,7 +1415,7 @@ Tcl_CreateChannel( Tcl_Channel Tcl_StackChannel( Tcl_Interp *interp, /* The interpreter we are working in */ - Tcl_ChannelType *typePtr, /* The channel type record for the new + const Tcl_ChannelType *typePtr, /* The channel type record for the new * channel. */ ClientData instanceData, /* Instance specific data for the new * channel. */ @@ -1909,7 +1909,7 @@ Tcl_GetChannelThread( *---------------------------------------------------------------------- */ -Tcl_ChannelType * +const Tcl_ChannelType * Tcl_GetChannelType( Tcl_Channel chan) /* The channel to return type for. */ { |