diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-05 07:18:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-05 07:18:37 (GMT) |
| commit | 82a85e5b1eb378f5a45526e1b098459f6b848f42 (patch) | |
| tree | f505ea9ce02a84ba21fdda5800039ebb0519b701 /generic/tclInterp.c | |
| parent | 84ff1fb2d98ae85007f676e3872803497dbea1fe (diff) | |
| download | tcl-82a85e5b1eb378f5a45526e1b098459f6b848f42.zip tcl-82a85e5b1eb378f5a45526e1b098459f6b848f42.tar.gz tcl-82a85e5b1eb378f5a45526e1b098459f6b848f42.tar.bz2 | |
RFE [655300]: Deprecate Tcl_MakeSafe()
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index e590775..115882b 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2468,7 +2468,7 @@ ChildCreate( ((Interp *) parentInterp)->maxNestingDepth; if (safe) { - if (Tcl_MakeSafe(childInterp) == TCL_ERROR) { + if (TclMakeSafe(childInterp) == TCL_ERROR) { goto error; } } else { @@ -3253,7 +3253,7 @@ Tcl_IsSafe( /* *---------------------------------------------------------------------- * - * Tcl_MakeSafe -- + * TclMakeSafe -- * * Makes its argument interpreter contain only functionality that is * defined to be part of Safe Tcl. Unsafe commands are hidden, the env @@ -3270,7 +3270,7 @@ Tcl_IsSafe( */ int -Tcl_MakeSafe( +TclMakeSafe( Tcl_Interp *interp) /* Interpreter to be made safe. */ { Tcl_Channel chan; /* Channel to remove from safe interpreter. */ |