diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-23 12:00:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-23 12:00:59 (GMT) |
| commit | 6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e (patch) | |
| tree | 23ec4c8be538373c27c4f9e1cf458b985d983e65 /generic/tclIO.c | |
| parent | 927ed085bda46ac11e95658f5a532e21fd9cf68f (diff) | |
| parent | 6bce591e1e7185c259f56514222025f0ac271dbe (diff) | |
| download | tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.zip tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.tar.gz tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index fe5472e..5089b19 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -496,7 +496,7 @@ ChanSeek( } return Tcl_ChannelSeekProc(chanPtr->typePtr)(chanPtr->instanceData, - offset, mode, errnoPtr); + (long)offset, mode, errnoPtr); #else *errnoPtr = EINVAL; return TCL_INDEX_NONE; @@ -6359,7 +6359,7 @@ ReadChars( int dstLimit = TCL_UTF_MAX - 1 + toRead * factor / UTF_EXPANSION_FACTOR; if (dstLimit <= 0) dstLimit = INT_MAX; /* avoid overflow */ - (void) TclGetStringFromObj(objPtr, &numBytes); + (void)TclGetStringFromObj(objPtr, &numBytes); TclAppendUtfToUtf(objPtr, NULL, dstLimit); if (toRead == srcLen) { unsigned int size; @@ -11411,7 +11411,7 @@ Tcl_SetChannelError( Tcl_Channel chan, /* Channel to store the data into. */ Tcl_Obj *msg) /* Error message to store. */ { - ChannelState *statePtr = ((Channel *) chan)->state; + ChannelState *statePtr = ((Channel *)chan)->state; Tcl_Obj *disposePtr = statePtr->chanMsg; if (msg != NULL) { |