diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-17 10:57:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-17 10:57:24 (GMT) |
| commit | 5dbf2681d7206b079a706e9db96e4cf3f43edb25 (patch) | |
| tree | 30692de3b7cd3e9f047d1c37c3b09c97b14b73db /generic/tclStubInit.c | |
| parent | 709c26db6735431a77f3509d28a5c6c6309709bd (diff) | |
| download | tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.zip tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.tar.gz tcl-5dbf2681d7206b079a706e9db96e4cf3f43edb25.tar.bz2 | |
If Tcl is compiled with -DTCL_NO_DEPRECATED, make sure that iPtr->(resultSpace|appendResult|appendAvl|appendUsed) are not used any more.
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 816650e..121cf59 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -306,6 +306,25 @@ static int formatInt(char *buffer, int n){ # define Tcl_SetResult 0 # undef Tcl_DbNewBooleanObj # define Tcl_DbNewBooleanObj 0 +# undef Tcl_EvalObj +# define Tcl_EvalObj 0 +# undef Tcl_GlobalEvalObj +# define Tcl_GlobalEvalObj 0 +# define Tcl_NewBooleanObj 0 +# undef Tcl_SetBooleanObj +# define Tcl_SetBooleanObj 0 +# undef Tcl_PkgPresent +# define Tcl_PkgPresent 0 +# undef Tcl_PkgProvide +# define Tcl_PkgProvide 0 +# undef Tcl_PkgRequire +# define Tcl_PkgRequire 0 +# undef Tcl_DiscardResult +# define Tcl_DiscardResult 0 +# undef Tcl_RestoreResult +# define Tcl_RestoreResult 0 +# undef Tcl_SaveResult +# define Tcl_SaveResult 0 #else /* TCL_NO_DEPRECATED */ # define Tcl_SeekOld seekOld # define Tcl_TellOld tellOld |