summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-08-10 23:06:17 (GMT)
committernijtmans <nijtmans>2008-08-10 23:06:17 (GMT)
commitf5d8f2016dad44e597753ca1f41d317a49495bae (patch)
tree0d2244193a3fe2a24dbf182d4ae0240cf7f1f366 /generic
parentd661e47c352a7501f151528ad5b6e94e8de7bd46 (diff)
downloadtcl-f5d8f2016dad44e597753ca1f41d317a49495bae.zip
tcl-f5d8f2016dad44e597753ca1f41d317a49495bae.tar.gz
tcl-f5d8f2016dad44e597753ca1f41d317a49495bae.tar.bz2
made variable Tcl_ChannelType *parentType in TransFormSeek(Wide)?Proc a const. This
variable is only used in a Tcl_Channel(Wide)?SeekProc call, where it is handled as a const, so we might as well consider it a const a few lines earlier.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOGT.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c
index 9c891f1..a4ba61a 100644
--- a/generic/tclIOGT.c
+++ b/generic/tclIOGT.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * CVS: $Id: tclIOGT.c,v 1.20 2007/12/13 15:23:18 dgp Exp $
+ * CVS: $Id: tclIOGT.c,v 1.21 2008/08/10 23:06:17 nijtmans Exp $
*/
#include "tclInt.h"
@@ -802,7 +802,7 @@ TransformSeekProc(
{
TransformChannelData *dataPtr = instanceData;
Tcl_Channel parent = Tcl_GetStackedChannel(dataPtr->self);
- Tcl_ChannelType *parentType = Tcl_GetChannelType(parent);
+ const Tcl_ChannelType *parentType = Tcl_GetChannelType(parent);
Tcl_DriverSeekProc *parentSeekProc = Tcl_ChannelSeekProc(parentType);
if ((offset == 0) && (mode == SEEK_CUR)) {
@@ -866,7 +866,7 @@ TransformWideSeekProc(
{
TransformChannelData *dataPtr = instanceData;
Tcl_Channel parent = Tcl_GetStackedChannel(dataPtr->self);
- Tcl_ChannelType *parentType = Tcl_GetChannelType(parent);
+ const Tcl_ChannelType *parentType = Tcl_GetChannelType(parent);
Tcl_DriverSeekProc *parentSeekProc = Tcl_ChannelSeekProc(parentType);
Tcl_DriverWideSeekProc *parentWideSeekProc =
Tcl_ChannelWideSeekProc(parentType);