summaryrefslogtreecommitdiffstats
path: root/generic/tclIndexObj.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-20 10:24:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-20 10:24:11 (GMT)
commitf428406cb110cc296fb78528d244808d60316584 (patch)
tree3adf1564ad48d5a41d8d36e670d94c00e760aa51 /generic/tclIndexObj.c
parent5dbf2681d7206b079a706e9db96e4cf3f43edb25 (diff)
downloadtcl-f428406cb110cc296fb78528d244808d60316584.zip
tcl-f428406cb110cc296fb78528d244808d60316584.tar.gz
tcl-f428406cb110cc296fb78528d244808d60316584.tar.bz2
If compiled with TCL_NO_DEPRECATED, remove some more stub entries which are not used any more.
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r--generic/tclIndexObj.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index 6a3e4e3..9f38638 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -101,6 +101,7 @@ typedef struct {
*----------------------------------------------------------------------
*/
+#ifndef TCL_NO_DEPRECATED
#undef Tcl_GetIndexFromObj
int
Tcl_GetIndexFromObj(
@@ -137,6 +138,7 @@ Tcl_GetIndexFromObj(
return Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, sizeof(char *),
msg, flags, indexPtr);
}
+#endif /* TCL_NO_DEPRECATED */
/*
*----------------------------------------------------------------------