diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 12:18:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 12:18:45 (GMT) |
| commit | 14a90662d8012c83ed14d6c80752572f945759cc (patch) | |
| tree | e3d8f40b0312e551b04cb88f8c48687d318a8a23 /generic/tclInterp.c | |
| parent | 7ceee1b319e8dad40dac65dd71a41429af18a697 (diff) | |
| parent | 8c2e8d831396f21f4c24480f2c42e0f1a47d7942 (diff) | |
| download | tcl-14a90662d8012c83ed14d6c80752572f945759cc.zip tcl-14a90662d8012c83ed14d6c80752572f945759cc.tar.gz tcl-14a90662d8012c83ed14d6c80752572f945759cc.tar.bz2 | |
TIP #624: 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 d51b289..c5f84db 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2474,7 +2474,7 @@ ChildCreate( ((Interp *) parentInterp)->maxNestingDepth; if (safe) { - if (Tcl_MakeSafe(childInterp) == TCL_ERROR) { + if (TclMakeSafe(childInterp) == TCL_ERROR) { goto error; } } else { @@ -3259,7 +3259,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 @@ -3276,7 +3276,7 @@ Tcl_IsSafe( */ int -Tcl_MakeSafe( +TclMakeSafe( Tcl_Interp *interp) /* Interpreter to be made safe. */ { Tcl_Channel chan; /* Channel to remove from safe interpreter. */ |