diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-08 16:21:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-08 16:21:12 (GMT) |
| commit | 501a64ea84e7ed50d4b814d335b41475cc535754 (patch) | |
| tree | 59010c1a0ea61765b81c825c5f849a32ce784a37 /generic/tclIORChan.c | |
| parent | 4f9f25fc55b73b0eb82e118bb35b6e41ce173a27 (diff) | |
| download | tcl-501a64ea84e7ed50d4b814d335b41475cc535754.zip tcl-501a64ea84e7ed50d4b814d335b41475cc535754.tar.gz tcl-501a64ea84e7ed50d4b814d335b41475cc535754.tar.bz2 | |
silence compiler warning
Diffstat (limited to 'generic/tclIORChan.c')
| -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); |