diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-14 09:39:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-14 09:39:23 (GMT) |
| commit | 591316fa8ddfbb04b503a073f41149a3c8277c05 (patch) | |
| tree | c0a2d6d0bf5da966ab2a7b92862366d9716045e6 /generic | |
| parent | 6c0f70fb0b15d3086c2c9da5be8b8543ca912f60 (diff) | |
| parent | e3f7f1bad8178c56aa5e8ddb994c218c30ec0f45 (diff) | |
| download | tcl-591316fa8ddfbb04b503a073f41149a3c8277c05.zip tcl-591316fa8ddfbb04b503a073f41149a3c8277c05.tar.gz tcl-591316fa8ddfbb04b503a073f41149a3c8277c05.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIORChan.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index a9346a6..2076f00 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -3097,16 +3097,17 @@ ForwardProc( case ForwardedSeek: { Tcl_Obj *offObj; + Tcl_Obj *baseObj; TclNewIntObj(offObj, paramPtr->seek.offset); - Tcl_Obj *baseObj = Tcl_NewStringObj( - (paramPtr->seek.seekMode==SEEK_SET) ? "start" : - (paramPtr->seek.seekMode==SEEK_CUR) ? "current" : "end", -1); + baseObj = Tcl_NewStringObj( + (paramPtr->seek.seekMode==SEEK_SET) ? "start" : + (paramPtr->seek.seekMode==SEEK_CUR) ? "current" : "end", -1); - Tcl_IncrRefCount(offObj); - Tcl_IncrRefCount(baseObj); + Tcl_IncrRefCount(offObj); + Tcl_IncrRefCount(baseObj); - Tcl_Preserve(rcPtr); + Tcl_Preserve(rcPtr); if (InvokeTclMethod(rcPtr, METH_SEEK, offObj, baseObj, &resObj)!=TCL_OK){ ForwardSetObjError(paramPtr, resObj); paramPtr->seek.offset = -1; |