diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-08 16:21:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-08 16:21:45 (GMT) |
| commit | 7a8da94d9220c402a32b23f8e86e4c7f0b9b3457 (patch) | |
| tree | 9d65632216b80f1fe65e07c4a198259525923650 | |
| parent | 7444d05c9414f8357eedf9bd5b0c7bab1ad28db6 (diff) | |
| parent | 501a64ea84e7ed50d4b814d335b41475cc535754 (diff) | |
| download | tcl-dgp_trunk_read.zip tcl-dgp_trunk_read.tar.gz tcl-dgp_trunk_read.tar.bz2 | |
merge trunkdgp_trunk_read
| -rw-r--r-- | generic/tclIORChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 12fa4a0..0b462c4 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -1111,7 +1111,7 @@ ReflectClose( ReflectedChannelMap *rcmPtr;/* Map of reflected channels with handlers in * this interp */ Tcl_HashEntry *hPtr; /* Entry in the above map */ - Tcl_ChannelType *tctPtr; + const Tcl_ChannelType *tctPtr; if (TclInThreadExit()) { /* @@ -2881,7 +2881,7 @@ ForwardProc( * No parameters/results. */ - Tcl_ChannelType *tctPtr; + const Tcl_ChannelType *tctPtr; if (InvokeTclMethod(rcPtr, METH_FINAL, NULL, NULL, &resObj)!=TCL_OK) { ForwardSetObjError(paramPtr, resObj); |