diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-16 14:16:34 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-16 14:16:34 (GMT) |
| commit | 9843ac2a949950a8dd51bcba03fbdfcb71d0e48f (patch) | |
| tree | 4efb09d21a52695b78db8cfc0841a372283602c2 /generic/tclDecls.h | |
| parent | 8d1982bdd791d4454a5e3f8928b5936b869b0d43 (diff) | |
| parent | 445ffe85310c4a5853d313305b11a4323605c29c (diff) | |
| download | tcl-9843ac2a949950a8dd51bcba03fbdfcb71d0e48f.zip tcl-9843ac2a949950a8dd51bcba03fbdfcb71d0e48f.tar.gz tcl-9843ac2a949950a8dd51bcba03fbdfcb71d0e48f.tar.bz2 | |
merge trunk
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 2801102..fe9ba2b 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3803,4 +3803,16 @@ extern const 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 */ |