diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-07 13:40:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-07 13:40:43 (GMT) |
| commit | 5cf272491e7c2481d4267745ef2b61c62f12838c (patch) | |
| tree | e8b9ce879f91a9c3dc3ae49de0063427af90a5e0 /generic/tclInterp.c | |
| parent | 264c574c2318f22417646a35593e266af7053952 (diff) | |
| parent | 45e00e9df8512ac5dc2e17df020f5269fc76a0a5 (diff) | |
| download | tcl-5cf272491e7c2481d4267745ef2b61c62f12838c.zip tcl-5cf272491e7c2481d4267745ef2b61c62f12838c.tar.gz tcl-5cf272491e7c2481d4267745ef2b61c62f12838c.tar.bz2 | |
Merge 8.7
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; |