diff options
| author | dkf <dkf@noemail.net> | 2002-05-24 21:19:04 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-05-24 21:19:04 (GMT) |
| commit | 5abf3be7d98ade7eb85df3a9a54d491e3651c038 (patch) | |
| tree | d34442300ca635a1ed50e2595f393b9dfaca97f4 /mac | |
| parent | 6656da86a9b3931dc71db7742764c697f6115a74 (diff) | |
| download | tcl-5abf3be7d98ade7eb85df3a9a54d491e3651c038.zip tcl-5abf3be7d98ade7eb85df3a9a54d491e3651c038.tar.gz tcl-5abf3be7d98ade7eb85df3a9a54d491e3651c038.tar.bz2 | |
TIP#91 implementation; makes old style channels binary compatible with
new TIP#72-enabled Tcl. See http://purl.org/tcl/tip/91 for details.
FossilOrigin-Name: b14125cf9e3409cbff0e8719ce96264cf311a363
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tclMacChan.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c index 7daa41b..d29c80e 100644 --- a/mac/tclMacChan.c +++ b/mac/tclMacChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacChan.c,v 1.14 2002/05/20 10:22:33 das Exp $ + * RCS: @(#) $Id: tclMacChan.c,v 1.15 2002/05/24 21:19:06 dkf Exp $ */ #include "tclInt.h" @@ -115,8 +115,8 @@ static int FileInput _ANSI_ARGS_((ClientData instanceData, char *buf, int toRead, int *errorCode)); static int FileOutput _ANSI_ARGS_((ClientData instanceData, CONST char *buf, int toWrite, int *errorCode)); -static Tcl_WideInt FileSeek _ANSI_ARGS_((ClientData instanceData, - Tcl_WideInt offset, int mode, int *errorCode)); +static int FileSeek _ANSI_ARGS_((ClientData instanceData, + long offset, int mode, int *errorCode)); static void FileSetupProc _ANSI_ARGS_((ClientData clientData, int flags)); static int GetOpenMode _ANSI_ARGS_((Tcl_Interp *interp, @@ -1131,10 +1131,10 @@ FileOutput( *---------------------------------------------------------------------- */ -static Tcl_WideInt +static int FileSeek( ClientData instanceData, /* Unused. */ - Tcl_WideInt offset, /* Offset to seek to. */ + long offset, /* Offset to seek to. */ int mode, /* Relative to where should we seek? */ int *errorCodePtr) /* To store error code. */ { |