diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-01-24 16:44:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-01-24 16:44:25 (GMT) |
| commit | e6800a165c2e96c29916eea6a1e97d997e2c736c (patch) | |
| tree | 6272219f40ff4e4dac6c0ac9a911102eea3d167a | |
| parent | b20939682db9de999efc420072a8d0379a36d6e7 (diff) | |
| parent | 9b0b0dc37dd6a3276ce3b0425e64e1bec8660aec (diff) | |
| download | tcl-e6800a165c2e96c29916eea6a1e97d997e2c736c.zip tcl-e6800a165c2e96c29916eea6a1e97d997e2c736c.tar.gz tcl-e6800a165c2e96c29916eea6a1e97d997e2c736c.tar.bz2 | |
Implement TIP 559
| -rw-r--r-- | generic/tcl.decls | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 5516f89..c9488bc 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -523,7 +523,7 @@ declare 145 { declare 146 { int Tcl_Flush(Tcl_Channel chan) } -declare 147 { +declare 147 {deprecated {see TIP #559. Use Tcl_ResetResult}} { void Tcl_FreeResult(Tcl_Interp *interp) } declare 148 { diff --git a/generic/tclDecls.h b/generic/tclDecls.h index b2b7767..7386347 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -478,7 +478,8 @@ EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, /* 146 */ EXTERN int Tcl_Flush(Tcl_Channel chan); /* 147 */ -EXTERN void Tcl_FreeResult(Tcl_Interp *interp); +TCL_DEPRECATED("see TIP #559. Use Tcl_ResetResult") +void Tcl_FreeResult(Tcl_Interp *interp); /* 148 */ EXTERN int Tcl_GetAlias(Tcl_Interp *interp, const char *slaveCmd, @@ -2092,7 +2093,7 @@ typedef struct TclStubs { TCL_DEPRECATED_API("Don't use this function in a stub-enabled extension") void (*tcl_FindExecutable) (const char *argv0); /* 144 */ Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ + TCL_DEPRECATED_API("see TIP #559. Use Tcl_ResetResult") void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, int *argcPtr, const char ***argvPtr); /* 148 */ int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ |