diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-05-08 16:21:12 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-05-08 16:21:12 (GMT) |
| commit | 847e4d828e4aba8a6ca5933566ca6d887a6901a5 (patch) | |
| tree | 59010c1a0ea61765b81c825c5f849a32ce784a37 | |
| parent | 88c24e1736b221f2fee752f2c37a2403127c08ad (diff) | |
| download | tcl-847e4d828e4aba8a6ca5933566ca6d887a6901a5.zip tcl-847e4d828e4aba8a6ca5933566ca6d887a6901a5.tar.gz tcl-847e4d828e4aba8a6ca5933566ca6d887a6901a5.tar.bz2 | |
silence compiler warning
| -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); |