diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:48:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:48:35 (GMT) |
commit | 6eac416e1dac9fc63b8ad41757cc3b4cf1965b82 (patch) | |
tree | 364627b4ae36382dee748096f92f74b1977d4ae8 /generic/tclIORChan.c | |
parent | 12f22db7d88ada7a15f6c0371b6dc49ef02d698d (diff) | |
parent | 9d3abb8846c9436ab40ac8ed9ecbaa9195f6e1f2 (diff) | |
download | tcl-6eac416e1dac9fc63b8ad41757cc3b4cf1965b82.zip tcl-6eac416e1dac9fc63b8ad41757cc3b4cf1965b82.tar.gz tcl-6eac416e1dac9fc63b8ad41757cc3b4cf1965b82.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIORChan.c')
-rw-r--r-- | generic/tclIORChan.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 63c8007..6ba6ad8 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -874,7 +874,7 @@ TclChanPostEventObjCmd( if (hPtr == NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "can not find reflected channel named \"%s\"", chanId)); - Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CHANNEL", chanId, NULL); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CHANNEL", chanId, (void *)NULL); return TCL_ERROR; } |