diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-30 13:21:38 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-30 13:21:38 (GMT) |
commit | 64fdac4aec06a54d95bb8916c7a8e3cebf2cde20 (patch) | |
tree | 4facd544ce40b633d4c88f9300cbeae31fb012f9 /generic/tclIORTrans.c | |
parent | 667676a5510ccdd2fa569d14ebaccada0090393b (diff) | |
parent | ee66478056af217424f2052723fbd89ee0d0f933 (diff) | |
download | tcl-64fdac4aec06a54d95bb8916c7a8e3cebf2cde20.zip tcl-64fdac4aec06a54d95bb8916c7a8e3cebf2cde20.tar.gz tcl-64fdac4aec06a54d95bb8916c7a8e3cebf2cde20.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic/tclIORTrans.c')
-rw-r--r-- | generic/tclIORTrans.c | 38 |
1 files changed, 3 insertions, 35 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index 8385d88..9d5e4b4 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -27,10 +27,6 @@ #define EOK 0 #endif -/* DUPLICATE of HaveVersion() in tclIO.c // TODO - MODULE_SCOPE */ -static int HaveVersion(const Tcl_ChannelType *typePtr, - Tcl_ChannelTypeVersion minimumVersion); - /* * Signatures of all functions used in the C layer of the reflection. */ @@ -1386,15 +1382,14 @@ ReflectSeekWide( * non-NULL... */ - if (HaveVersion(parent->typePtr, TCL_CHANNEL_VERSION_3) && - parent->typePtr->wideSeekProc != NULL) { - curPos = parent->typePtr->wideSeekProc(parent->instanceData, offset, + if (Tcl_ChannelWideSeekProc(parent->typePtr) != NULL) { + curPos = Tcl_ChannelWideSeekProc(parent->typePtr)(parent->instanceData, offset, seekMode, errorCodePtr); } else if (offset < LONG_MIN || offset > LONG_MAX) { *errorCodePtr = EOVERFLOW; curPos = -1; } else { - curPos = parent->typePtr->seekProc( + curPos = Tcl_ChannelSeekProc(parent->typePtr)( parent->instanceData, offset, seekMode, errorCodePtr); } @@ -3390,33 +3385,6 @@ TransformLimit( return 1; } -/* DUPLICATE of HaveVersion() in tclIO.c - *---------------------------------------------------------------------- - * - * HaveVersion -- - * - * Return whether a channel type is (at least) of a given version. - * - * Results: - * True if the minimum version is exceeded by the version actually - * present. - * - * Side effects: - * None. - * - *---------------------------------------------------------------------- - */ - -static int -HaveVersion( - const Tcl_ChannelType *chanTypePtr, - Tcl_ChannelTypeVersion minimumVersion) -{ - Tcl_ChannelTypeVersion actualVersion = Tcl_ChannelVersion(chanTypePtr); - - return PTR2INT(actualVersion) >= PTR2INT(minimumVersion); -} - /* * Local Variables: * mode: c |