diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-16 09:17:25 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-16 09:17:25 (GMT) |
commit | c17286ae46e83cd0c6714e81ee05998e316ca07f (patch) | |
tree | 274545e9246a2a642e1ceca8183e2f171205c59c /generic/tclDecls.h | |
parent | fbd808411f000768d813ffc10a99ffdf6e78969e (diff) | |
parent | 983937330a6bac21581e964cb6db12583896570b (diff) | |
download | tcl-c17286ae46e83cd0c6714e81ee05998e316ca07f.zip tcl-c17286ae46e83cd0c6714e81ee05998e316ca07f.tar.gz tcl-c17286ae46e83cd0c6714e81ee05998e316ca07f.tar.bz2 |
Allow win32 build with -DTCL_NO_DEPRECATED, just as the UNIX build, off by default.
Define Tcl_EvalObj and Tcl_GlobalEvalObj as macros, even when TCL_NO_DEPRECATED is defined, so Tk can benefit from it too (this is not what TCL_NO_DEPRECATED is supposed to do).
FossilOrigin-Name: acce59a0153a67fbaaaf23183bd506af76a3ffa7
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r-- | generic/tclDecls.h | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 8cb939c..20ec35d 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -6547,5 +6547,17 @@ extern TclStubs *tclStubsPtr; #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT +/* + * Deprecated Tcl procedures: + */ +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +# undef Tcl_EvalObj +# define Tcl_EvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),0) +# undef Tcl_GlobalEvalObj +# define Tcl_GlobalEvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) +#endif + #endif /* _TCLDECLS */ |