Tcl Source Code

Check-in [1b033660ab]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:silence compiler warning
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1b033660abfc7db00e69c511bbb79e6a5ef2f235
User & Date: dgp 2014-05-08 16:21:12
Context
2014-05-08
17:38
Merge the reforms of dgp-trunk-read branch into trunk. (port of dgp-read-bytes)
Large overhaul ...
check-in: d17b42d5cb user: dgp tags: trunk
16:28
merge trunk check-in: 1f0f096bc0 user: dgp tags: dgp-refactor
16:21
merge trunk Closed-Leaf check-in: 30ae8cb927 user: dgp tags: dgp-trunk-read
16:21
silence compiler warning check-in: 1b033660ab user: dgp tags: trunk
16:03
Fix the panic in iogt-2.5. Back in 2011, Bugs 3384654 and 3393276 first noticed troubles with Channe... check-in: cc5f6a9f05 user: dgp tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to generic/tclIORChan.c.

  1107   1107   {
  1108   1108       ReflectedChannel *rcPtr = clientData;
  1109   1109       int result;			/* Result code for 'close' */
  1110   1110       Tcl_Obj *resObj;		/* Result data for 'close' */
  1111   1111       ReflectedChannelMap *rcmPtr;/* Map of reflected channels with handlers in
  1112   1112   				 * this interp */
  1113   1113       Tcl_HashEntry *hPtr;	/* Entry in the above map */
  1114         -    Tcl_ChannelType *tctPtr;
         1114  +    const Tcl_ChannelType *tctPtr;
  1115   1115   
  1116   1116       if (TclInThreadExit()) {
  1117   1117   	/*
  1118   1118   	 * This call comes from TclFinalizeIOSystem. There are no
  1119   1119   	 * interpreters, and therefore we cannot call upon the handler command
  1120   1120   	 * anymore. Threading is irrelevant as well. We simply clean up all
  1121   1121   	 * our C level data structures and leave the Tcl level to the other
................................................................................
  2877   2877   	 */
  2878   2878   
  2879   2879       case ForwardedClose: {
  2880   2880   	/*
  2881   2881   	 * No parameters/results.
  2882   2882   	 */
  2883   2883   
  2884         -	Tcl_ChannelType *tctPtr;
         2884  +	const Tcl_ChannelType *tctPtr;
  2885   2885   
  2886   2886   	if (InvokeTclMethod(rcPtr, METH_FINAL, NULL, NULL, &resObj)!=TCL_OK) {
  2887   2887   	    ForwardSetObjError(paramPtr, resObj);
  2888   2888   	}
  2889   2889   
  2890   2890   	/*
  2891   2891   	 * Freeing is done here, in the origin thread, callback command