diff options
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 6ff5faa..8fd4370 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -130,8 +130,10 @@ static Tcl_NRPostProc NRCoroutineCallerCallback; static Tcl_NRPostProc NRCoroutineExitCallback; static Tcl_NRPostProc NRCommand; +#ifndef TCL_NO_DEPRECATED static Tcl_ObjCmdProc OldMathFuncProc; static void OldMathFuncDeleteProc(ClientData clientData); +#endif static void ProcessUnexpectedResult(Tcl_Interp *interp, int returnCode); static int RewindCoroutine(CoroutineData *corPtr, int result); @@ -3435,6 +3437,7 @@ TclCleanupCommand( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED void Tcl_CreateMathFunc( Tcl_Interp *interp, /* Interpreter in which function is to be @@ -3766,6 +3769,7 @@ Tcl_ListMathFuncs( return result; } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -4875,6 +4879,7 @@ Tcl_EvalTokensStandard( * in the core any longer. It is only kept for backward compatibility. */ +#ifndef TCL_NO_DEPRECATED Tcl_Obj * Tcl_EvalTokens( Tcl_Interp *interp, /* Interpreter in which to lookup variables, @@ -4895,6 +4900,7 @@ Tcl_EvalTokens( Tcl_ResetResult(interp); return resPtr; } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -5850,6 +5856,7 @@ TclArgumentGet( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_Eval int Tcl_Eval( @@ -5902,6 +5909,7 @@ Tcl_GlobalEvalObj( { return Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL); } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -6828,6 +6836,7 @@ Tcl_AddObjErrorInfo( *--------------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED int Tcl_VarEvalVA( Tcl_Interp *interp, /* Interpreter in which to evaluate command */ @@ -6926,6 +6935,7 @@ Tcl_GlobalEval( iPtr->varFramePtr = savedVarFramePtr; return result; } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- |