diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-16 09:58:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-16 09:58:26 (GMT) |
| commit | 3bb6d870416fa3e858f780bf958bd188d13d58a2 (patch) | |
| tree | 71f81c214601bb092fc71583a9b9a05a4938b58a /generic | |
| parent | 55804e86ba499482718af840b92ccf663eec5151 (diff) | |
| parent | 3db744b60506ba65731f996d7e3dc5224d232bc9 (diff) | |
| download | tcl-3bb6d870416fa3e858f780bf958bd188d13d58a2.zip tcl-3bb6d870416fa3e858f780bf958bd188d13d58a2.tar.gz tcl-3bb6d870416fa3e858f780bf958bd188d13d58a2.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.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 7 | ||||
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 12 |
3 files changed, 12 insertions, 9 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 3003abf..7155453 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2602,13 +2602,6 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); */ #ifndef TCL_NO_DEPRECATED -# 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) - /* * These function have been renamed. The old names are deprecated, but we * define these macros for backwards compatibilty. diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b511d07..6c53547 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -5849,7 +5849,6 @@ Tcl_Eval( *---------------------------------------------------------------------- */ -#undef Tcl_EvalObj int Tcl_EvalObj( Tcl_Interp *interp, @@ -5857,7 +5856,6 @@ Tcl_EvalObj( { return Tcl_EvalObjEx(interp, objPtr, 0); } -#undef Tcl_GlobalEvalObj int Tcl_GlobalEvalObj( Tcl_Interp *interp, 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 */ |