diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-02 20:02:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-02 20:02:41 (GMT) |
| commit | a7858d818d69719efc88a5de7dfcf85032e7540b (patch) | |
| tree | fa283701cbfde8d14f8389c75cc6bf619ac09ee9 | |
| parent | e2bde4d007334476f45e57a87d273a4eca7e9aec (diff) | |
| download | tcl-a7858d818d69719efc88a5de7dfcf85032e7540b.zip tcl-a7858d818d69719efc88a5de7dfcf85032e7540b.tar.gz tcl-a7858d818d69719efc88a5de7dfcf85032e7540b.tar.bz2 | |
If compiled with -DTCL_NO_DEPRECATED, remove the Tcl_SetIntObj/Tcl_SetLongObj entries from stub table: Since they are gone in Tcl 9.0
| -rw-r--r-- | generic/tclObj.c | 5 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
2 files changed, 7 insertions, 1 deletions
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) |