diff options
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 5857c23..3883a07 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -624,7 +624,10 @@ NRInterpCmd( "eval", "exists", "expose", "hide", "hidden", "issafe", "invokehidden", "limit", "marktrusted", "recursionlimit", - "slaves", "share", "target", "transfer", +#ifndef TCL_NO_DEPRECATED + "slaves", +#endif + "share", "target", "transfer", NULL }; enum option { @@ -633,7 +636,10 @@ NRInterpCmd( OPT_EVAL, OPT_EXISTS, OPT_EXPOSE, OPT_HIDE, OPT_HIDDEN, OPT_ISSAFE, OPT_INVOKEHID, OPT_LIMIT, OPT_MARKTRUSTED,OPT_RECLIMIT, - OPT_SLAVES, OPT_SHARE, OPT_TARGET, OPT_TRANSFER +#ifndef TCL_NO_DEPRECATED + OPT_SLAVES, +#endif + OPT_SHARE, OPT_TARGET, OPT_TRANSFER }; if (objc < 2) { @@ -1017,8 +1023,10 @@ NRInterpCmd( return TCL_ERROR; } return ChildRecursionLimit(interp, childInterp, objc - 3, objv + 3); - case OPT_CHILDREN: - case OPT_SLAVES: { +#ifndef TCL_NO_DEPRECATED + case OPT_SLAVES: +#endif + case OPT_CHILDREN: { InterpInfo *iiPtr; Tcl_Obj *resultPtr; Tcl_HashEntry *hPtr; |