diff options
author | dgp <dgp@users.sourceforge.net> | 2017-01-27 16:32:19 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-01-27 16:32:19 (GMT) |
commit | efca62ee33eb6d14aedf83b1ef974fb7e2f97e4c (patch) | |
tree | e3dc9cbd3a3b728f247996896edafb138d43a756 /generic/tclIO.c | |
parent | d81aa84636a39436937c7afe12a85d337f3158dc (diff) | |
parent | 368a29cbf01f4aa930631726ce71aafe9c853f12 (diff) | |
download | tcl-efca62ee33eb6d14aedf83b1ef974fb7e2f97e4c.zip tcl-efca62ee33eb6d14aedf83b1ef974fb7e2f97e4c.tar.gz tcl-efca62ee33eb6d14aedf83b1ef974fb7e2f97e4c.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 31c5c97..28aaa54 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -7139,47 +7139,6 @@ Tcl_Tell( /* *--------------------------------------------------------------------------- * - * Tcl_SeekOld, Tcl_TellOld -- - * - * Backward-compatibility versions of the seek/tell interface that do not - * support 64-bit offsets. This interface is not documented or expected - * to be supported indefinitely. - * - * Results: - * As for Tcl_Seek and Tcl_Tell respectively, except truncated to - * whatever value will fit in an 'int'. - * - * Side effects: - * As for Tcl_Seek and Tcl_Tell respectively. - * - *--------------------------------------------------------------------------- - */ - -int -Tcl_SeekOld( - Tcl_Channel chan, /* The channel on which to seek. */ - int offset, /* Offset to seek to. */ - int mode) /* Relative to which location to seek? */ -{ - Tcl_WideInt wOffset, wResult; - - wOffset = Tcl_LongAsWide((long) offset); - wResult = Tcl_Seek(chan, wOffset, mode); - return (int) Tcl_WideAsLong(wResult); -} - -int -Tcl_TellOld( - Tcl_Channel chan) /* The channel to return pos for. */ -{ - Tcl_WideInt wResult = Tcl_Tell(chan); - - return (int) Tcl_WideAsLong(wResult); -} - -/* - *--------------------------------------------------------------------------- - * * Tcl_TruncateChannel -- * * Truncate a channel to the given length. |