diff options
author | nijtmans <nijtmans@noemail.net> | 2008-10-16 22:34:18 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-10-16 22:34:18 (GMT) |
commit | fd1af20283d2bed67e18d4990e3c690ee7740702 (patch) | |
tree | c92c0492d1db21f9b0c7f880eec5c0cd3ce36762 /generic/tclIORTrans.c | |
parent | 1e2a3ab0abe30f27bec29e326dadc97ee7856269 (diff) | |
download | tcl-fd1af20283d2bed67e18d4990e3c690ee7740702.zip tcl-fd1af20283d2bed67e18d4990e3c690ee7740702.tar.gz tcl-fd1af20283d2bed67e18d4990e3c690ee7740702.tar.bz2 |
Add "const" to many internal
const tables. No functional
or API change.
FossilOrigin-Name: f03d2e2d83be42035c4aad3b01bbd09f5a967c1b
Diffstat (limited to 'generic/tclIORTrans.c')
-rw-r--r-- | generic/tclIORTrans.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index 89af0d5..bb7aebd 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIORTrans.c,v 1.3 2008/06/12 06:28:41 das Exp $ + * RCS: @(#) $Id: tclIORTrans.c,v 1.4 2008/10/16 22:34:19 nijtmans Exp $ */ #include <tclInt.h> @@ -187,7 +187,7 @@ typedef struct { * Method literals. ================================================== */ -static const char *methodNames[] = { +static const char *const methodNames[] = { "clear", /* OPT */ "drain", /* OPT, drain => read */ "finalize", /* */ @@ -987,7 +987,7 @@ ReflectClose( */ rtmPtr = GetReflectedTransformMap(interp); - hPtr = Tcl_FindHashEntry (&rtmPtr->map, + hPtr = Tcl_FindHashEntry (&rtmPtr->map, Tcl_GetString(rtPtr->handle)); if (hPtr) { Tcl_DeleteHashEntry (hPtr); @@ -998,9 +998,9 @@ ReflectClose( * allow us to survive if the script level pulls the rug out under a * channel by deleting the owning thread. */ - + rtmPtr = GetThreadReflectedTransformMap(); - hPtr = Tcl_FindHashEntry (&rtmPtr->map, + hPtr = Tcl_FindHashEntry (&rtmPtr->map, Tcl_GetString(rtPtr->handle)); if (hPtr) { Tcl_DeleteHashEntry (hPtr); @@ -1120,7 +1120,7 @@ ReflectInput( } *errorCodePtr = Tcl_GetErrno (); - return -1; + return -1; } if (read == 0) { @@ -1490,7 +1490,7 @@ ReflectSetOption( * level is not involved there is no need for thread forwarding. */ - Tcl_DriverSetOptionProc *setOptionProc = + Tcl_DriverSetOptionProc *setOptionProc = Tcl_ChannelSetOptionProc (Tcl_GetChannelType (rtPtr->parent)); if (setOptionProc != NULL) { @@ -1537,7 +1537,7 @@ ReflectGetOption( * specific option has to fail. */ - Tcl_DriverGetOptionProc *getOptionProc = + Tcl_DriverGetOptionProc *getOptionProc = Tcl_ChannelGetOptionProc (Tcl_GetChannelType (rtPtr->parent)); if (getOptionProc != NULL) { @@ -1725,7 +1725,7 @@ NewReflectedTransform( rtPtr->timer = (Tcl_TimerToken) NULL; rtPtr->mode = 0; rtPtr->readIsDrained = 0; - rtPtr->nonblocking = + rtPtr->nonblocking = (((Channel*) parentChan)->state->flags & CHANNEL_NONBLOCKING); /* Query parent for current blocking mode. */ @@ -2489,7 +2489,7 @@ ForwardProc( */ rtmPtr = GetReflectedTransformMap (interp); - hPtr = Tcl_FindHashEntry (&rtmPtr->map, + hPtr = Tcl_FindHashEntry (&rtmPtr->map, Tcl_GetString(rtPtr->handle)); Tcl_DeleteHashEntry (hPtr); @@ -2500,7 +2500,7 @@ ForwardProc( */ rtmPtr = GetThreadReflectedTransformMap(); - hPtr = Tcl_FindHashEntry (&rtmPtr->map, + hPtr = Tcl_FindHashEntry (&rtmPtr->map, Tcl_GetString(rtPtr->handle)); Tcl_DeleteHashEntry (hPtr); FreeReflectedTransform(rtPtr); |