diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 3d1458f..b3fa687 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -780,10 +780,9 @@ declare 218 { declare 219 { int Tcl_ScanCountedElement(const char *src, int length, int *flagPtr) } -# Removed in Tcl 9 -#declare 220 { -# int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode) -#} +declare 220 { + TCL_SIZE_T Tcl_Seek(Tcl_Channel chan, TCL_SIZE_T offset, int mode) +} declare 221 { int Tcl_ServiceAll(void) } @@ -868,10 +867,9 @@ declare 244 { declare 245 { int Tcl_StringMatch(const char *str, const char *pattern) } -# Removed in Tcl 9 -#declare 246 { -# int Tcl_TellOld(Tcl_Channel chan) -#} +declare 246 { + TCL_SIZE_T Tcl_Tell(Tcl_Channel chan) +} declare 247 { int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData) @@ -1753,11 +1751,13 @@ declare 489 { declare 490 { Tcl_StatBuf *Tcl_AllocStatBuf(void) } +# Kept on Tcl9, for binary compatibility with Tcl8 declare 491 { - Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, int mode) + Tcl_WideInt Tcl_SeekOld(Tcl_Channel chan, Tcl_WideInt offset, int mode) } +# Kept on Tcl9, for binary compatibility with Tcl8 declare 492 { - Tcl_WideInt Tcl_Tell(Tcl_Channel chan) + Tcl_WideInt Tcl_TellOld(Tcl_Channel chan) } # TIP#91 (back-compat enhancements for channels) dkf |