diff options
author | dgp <dgp@users.sourceforge.net> | 2017-03-20 12:55:21 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-03-20 12:55:21 (GMT) |
commit | 7b29a8a1dba03099d9727366216f340a96e14e16 (patch) | |
tree | d2ee59c61f007b2441d257b174e717b73f5d0d7c /generic/tclBasic.c | |
parent | 6e3f60cdad4f1736dd52cf66a9ad94abc3664472 (diff) | |
parent | f428406cb110cc296fb78528d244808d60316584 (diff) | |
download | tcl-7b29a8a1dba03099d9727366216f340a96e14e16.zip tcl-7b29a8a1dba03099d9727366216f340a96e14e16.tar.gz tcl-7b29a8a1dba03099d9727366216f340a96e14e16.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 365682e..9fac566 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -5866,6 +5866,7 @@ TclArgumentGet( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_Eval int Tcl_Eval( @@ -5884,6 +5885,7 @@ Tcl_Eval( (void) Tcl_GetStringResult(interp); return code; } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -6744,6 +6746,7 @@ Tcl_AppendObjToErrorInfo( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_AddErrorInfo void Tcl_AddErrorInfo( @@ -6753,6 +6756,7 @@ Tcl_AddErrorInfo( { Tcl_AddObjErrorInfo(interp, message, -1); } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -6925,6 +6929,7 @@ Tcl_VarEval( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_GlobalEval int Tcl_GlobalEval( @@ -6942,6 +6947,7 @@ Tcl_GlobalEval( iPtr->varFramePtr = savedVarFramePtr; return result; } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- |