summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclIORChan.c4
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);