summaryrefslogtreecommitdiffstats
path: root/generic/tclIndexObj.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-06-05 23:20:36 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-06-05 23:20:36 (GMT)
commitf8223fa81718da26562fff851b4a56d18b58a62a (patch)
tree2c47bdd025eab065e5f559ade49795a3acaf938e /generic/tclIndexObj.c
parente9d31a334b4cbd18716b3c1eacf7f516cbc7286d (diff)
parent0b178367ba3b9a10d44f89025c89292a4ea49b20 (diff)
downloadtcl-dkf_expose_ptrgetvar.zip
tcl-dkf_expose_ptrgetvar.tar.gz
tcl-dkf_expose_ptrgetvar.tar.bz2
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 */
/*
*----------------------------------------------------------------------