diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 19:26:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 19:26:11 (GMT) |
| commit | dd1dc3c6e807176799c1fee7ea75c5f29775da8c (patch) | |
| tree | 3c3ab8dda51122d9c4c87dd4fe6b2263fa3c205f /generic/tclInterp.c | |
| parent | cc185b1d763af5b2a80b5fc5c25fb2f0c69d0661 (diff) | |
| parent | 3636d805fcf6da495f444297a7159347ff1ed3a0 (diff) | |
| download | tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.zip tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.tar.gz tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.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 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. */ |