diff options
author | nijtmans <nijtmans@noemail.net> | 2008-10-04 12:33:34 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-10-04 12:33:34 (GMT) |
commit | a36271c055ce62da4e2536b45f00915e299b3b70 (patch) | |
tree | eb77cc8298b5ed98a3fc54bbf7e2f2e8aaba6d20 /generic/tcl.decls | |
parent | 3d25cb24614f5c6d3d82b0417bccf799fab046db (diff) | |
download | tcl-a36271c055ce62da4e2536b45f00915e299b3b70.zip tcl-a36271c055ce62da4e2536b45f00915e299b3b70.tar.gz tcl-a36271c055ce62da4e2536b45f00915e299b3b70.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.
FossilOrigin-Name: 1fb6ccc45ada951a42f957d03508305f7197a06f
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 335d09a..b64df6d 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.150 2008/10/04 11:51:25 nijtmans Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.151 2008/10/04 12:33:34 nijtmans Exp $ library tcl @@ -327,7 +327,7 @@ declare 87 generic { Tcl_Obj *CONST objv[]) } declare 88 generic { - Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, + Tcl_Channel Tcl_CreateChannel(CONST Tcl_ChannelType *typePtr, CONST char *chanName, ClientData instanceData, int mask) } declare 89 generic { @@ -567,7 +567,7 @@ declare 157 generic { CONST char *optionName, Tcl_DString *dsPtr) } declare 158 generic { - Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan) + CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan) } declare 159 generic { int Tcl_GetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, @@ -1011,8 +1011,9 @@ declare 280 generic { # version into the new one). declare 281 generic { - Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, Tcl_ChannelType *typePtr, - ClientData instanceData, int mask, Tcl_Channel prevChan) + Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, + CONST Tcl_ChannelType *typePtr, ClientData instanceData, + int mask, Tcl_Channel prevChan) } declare 282 generic { int Tcl_UnstackChannel(Tcl_Interp *interp, Tcl_Channel chan) |