diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:54:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 15:54:58 (GMT) |
commit | 6c0f70fb0b15d3086c2c9da5be8b8543ca912f60 (patch) | |
tree | d4b7cdffa9df10fb7bb9210ed9ba5d82e85deff7 /generic/tclIORChan.c | |
parent | 115a3559d776453b8c58512f151abb875de87f74 (diff) | |
parent | f70e1f98b3e5235a48e0fbea21515ed7e277e6cd (diff) | |
download | tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.zip tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.tar.gz tcl-6c0f70fb0b15d3086c2c9da5be8b8543ca912f60.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIORChan.c')
-rw-r--r-- | generic/tclIORChan.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 3d9fd07..a9346a6 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -1580,7 +1580,7 @@ ReflectSeekWide( Tcl_Preserve(rcPtr); - offObj = Tcl_NewWideIntObj(offset); + TclNewIntObj(offObj, offset); baseObj = Tcl_NewStringObj( (seekMode == SEEK_SET) ? "start" : (seekMode == SEEK_CUR) ? "current" : "end", -1); @@ -3021,7 +3021,7 @@ ForwardProc( TclNewIntObj(toReadObj, paramPtr->input.toRead); Tcl_IncrRefCount(toReadObj); - Tcl_Preserve(rcPtr); + Tcl_Preserve(rcPtr); if (InvokeTclMethod(rcPtr, METH_READ, toReadObj, NULL, &resObj)!=TCL_OK){ int code = ErrnoReturn(rcPtr, resObj); @@ -3096,7 +3096,9 @@ ForwardProc( } case ForwardedSeek: { - Tcl_Obj *offObj = Tcl_NewWideIntObj(paramPtr->seek.offset); + Tcl_Obj *offObj; + + TclNewIntObj(offObj, paramPtr->seek.offset); Tcl_Obj *baseObj = Tcl_NewStringObj( (paramPtr->seek.seekMode==SEEK_SET) ? "start" : (paramPtr->seek.seekMode==SEEK_CUR) ? "current" : "end", -1); |