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 /generic/tclObj.c | |
| 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
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 5 |
1 files changed, 4 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 */ /* *---------------------------------------------------------------------- |