diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-05-08 16:21:45 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-05-08 16:21:45 (GMT) |
| commit | d70c0b2dd404833a1d19d7bca17be55c0cdf99a4 (patch) | |
| tree | 9d65632216b80f1fe65e07c4a198259525923650 | |
| parent | 4f2c815bad795736c5b3bbb499f41384f0ad1bde (diff) | |
| parent | 847e4d828e4aba8a6ca5933566ca6d887a6901a5 (diff) | |
| download | tcl-d70c0b2dd404833a1d19d7bca17be55c0cdf99a4.zip tcl-d70c0b2dd404833a1d19d7bca17be55c0cdf99a4.tar.gz tcl-d70c0b2dd404833a1d19d7bca17be55c0cdf99a4.tar.bz2 | |
merge trunk
| -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); |