diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 12:37:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 12:37:43 (GMT) |
| commit | 01f391fe61a356208fb7a5db1c6540ade36004bf (patch) | |
| tree | 570e609cfe93f764094e1ce49cccdeeb1e98f696 /generic/tclInterp.c | |
| parent | 20ba5858ce237e28d9b49b07f094bf86c5f5b9c1 (diff) | |
| parent | 14a90662d8012c83ed14d6c80752572f945759cc (diff) | |
| download | tcl-01f391fe61a356208fb7a5db1c6540ade36004bf.zip tcl-01f391fe61a356208fb7a5db1c6540ade36004bf.tar.gz tcl-01f391fe61a356208fb7a5db1c6540ade36004bf.tar.bz2 | |
Merge 8.7
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 589b0da..98e63db 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2481,7 +2481,7 @@ ChildCreate( ((Interp *) parentInterp)->maxNestingDepth; if (safe) { - if (Tcl_MakeSafe(childInterp) == TCL_ERROR) { + if (TclMakeSafe(childInterp) == TCL_ERROR) { goto error; } } else { @@ -3264,7 +3264,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 @@ -3281,7 +3281,7 @@ Tcl_IsSafe( */ int -Tcl_MakeSafe( +TclMakeSafe( Tcl_Interp *interp) /* Interpreter to be made safe. */ { Tcl_Channel chan; /* Channel to remove from safe interpreter. */ |