diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-02 11:30:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-02 11:30:05 (GMT) |
| commit | ac5f46d2701330d40d72814660be2efa4b69e39f (patch) | |
| tree | ef1ef3ca6179fd8549aab87fa15e11ec7adeca5a | |
| parent | 520e0c9938ef5229a94dd4d50005f141db548e69 (diff) | |
| download | tcl-ac5f46d2701330d40d72814660be2efa4b69e39f.zip tcl-ac5f46d2701330d40d72814660be2efa4b69e39f.tar.gz tcl-ac5f46d2701330d40d72814660be2efa4b69e39f.tar.bz2 | |
Don't generate "deprecated" warning for Tcl_Close(), since only the stub entry is deprecated. Will be replaced by macro.
| -rw-r--r-- | generic/tcl.decls | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 5 |
2 files changed, 3 insertions, 4 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 8837dfd..2575de1 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -299,7 +299,7 @@ declare 79 { declare 80 { void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData) } -declare 81 {deprecated {Use Tcl_CloseEx}} { +declare 81 { int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan) } declare 82 { diff --git a/generic/tclDecls.h b/generic/tclDecls.h index ccea15d..890114a 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -288,8 +288,7 @@ EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData); /* 81 */ -TCL_DEPRECATED("Use Tcl_CloseEx") -int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); +EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); /* 82 */ EXTERN int Tcl_CommandComplete(const char *cmd); /* 83 */ @@ -2030,7 +2029,7 @@ typedef struct TclStubs { int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */ void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ - TCL_DEPRECATED_API("Use Tcl_CloseEx") int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ + int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ int (*tcl_CommandComplete) (const char *cmd); /* 82 */ char * (*tcl_Concat) (int argc, const char *const *argv); /* 83 */ int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */ |