From a7858d818d69719efc88a5de7dfcf85032e7540b Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sun, 2 Dec 2018 20:02:41 +0000 Subject: If compiled with -DTCL_NO_DEPRECATED, remove the Tcl_SetIntObj/Tcl_SetLongObj entries from stub table: Since they are gone in Tcl 9.0 --- generic/tclObj.c | 5 ++++- generic/tclStubInit.c | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/generic/tclObj.c b/generic/tclObj.c index 2d551c8..9edb75f 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2663,7 +2663,7 @@ Tcl_NewIntObj( * *---------------------------------------------------------------------- */ - +#ifndef TCL_NO_DEPRECATED #undef Tcl_SetIntObj void Tcl_SetIntObj( @@ -2676,6 +2676,7 @@ Tcl_SetIntObj( TclSetIntObj(objPtr, intValue); } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -2942,6 +2943,7 @@ Tcl_DbNewLongObj( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_SetLongObj void Tcl_SetLongObj( @@ -2955,6 +2957,7 @@ Tcl_SetLongObj( TclSetIntObj(objPtr, longValue); } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 106bb08..feabc3b 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -95,6 +95,9 @@ static int TclSockMinimumBuffersOld(int sock, int size) # define Tcl_CreateMathFunc 0 # define Tcl_GetMathFuncInfo 0 # define Tcl_ListMathFuncs 0 +# define Tcl_SetIntObj 0 +# define Tcl_SetLongObj 0 + #else #define TclSetStartupScriptPath setStartupScriptPath static void TclSetStartupScriptPath(Tcl_Obj *path) -- cgit v0.12