diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-16 08:52:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-16 08:52:59 (GMT) |
| commit | 2f176f6d8c9cf73aa834e6204cffd10e209c283b (patch) | |
| tree | d1af02745df25b2849bf6ed938afa30e63b3f97c /generic/tclDecls.h | |
| parent | 193ad73d549eeb177bd467a9d894e21ff53845e9 (diff) | |
| download | tcl-2f176f6d8c9cf73aa834e6204cffd10e209c283b.zip tcl-2f176f6d8c9cf73aa834e6204cffd10e209c283b.tar.gz tcl-2f176f6d8c9cf73aa834e6204cffd10e209c283b.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).
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 7df9897..8d9f635 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -4516,5 +4516,17 @@ extern TclStubs *tclStubsPtr; #undef TclUnusedStubEntry +/* + * 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 */ |