diff options
Diffstat (limited to 'src/pl/tcl/pltcl.c')
| -rw-r--r-- | src/pl/tcl/pltcl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index 24d4b57f1a5..f4eabc8f39c 100644 --- a/src/pl/tcl/pltcl.c +++ b/src/pl/tcl/pltcl.c @@ -432,9 +432,9 @@ _PG_init(void) * stdout and stderr on DeleteInterp ************************************************************/ if ((pltcl_hold_interp = Tcl_CreateInterp()) == NULL) - elog(ERROR, "could not create master Tcl interpreter"); + elog(ERROR, "could not create dummy Tcl interpreter"); if (Tcl_Init(pltcl_hold_interp) == TCL_ERROR) - elog(ERROR, "could not initialize master Tcl interpreter"); + elog(ERROR, "could not initialize dummy Tcl interpreter"); /************************************************************ * Create the hash table for working interpreters @@ -489,14 +489,14 @@ pltcl_init_interp(pltcl_interp_desc *interp_desc, Oid prolang, bool pltrusted) char interpname[32]; /************************************************************ - * Create the Tcl interpreter as a slave of pltcl_hold_interp. + * Create the Tcl interpreter subsidiary to pltcl_hold_interp. * Note: Tcl automatically does Tcl_Init in the untrusted case, * and it's not wanted in the trusted case. ************************************************************/ - snprintf(interpname, sizeof(interpname), "slave_%u", interp_desc->user_id); + snprintf(interpname, sizeof(interpname), "subsidiary_%u", interp_desc->user_id); if ((interp = Tcl_CreateSlave(pltcl_hold_interp, interpname, pltrusted ? 1 : 0)) == NULL) - elog(ERROR, "could not create slave Tcl interpreter"); + elog(ERROR, "could not create subsidiary Tcl interpreter"); /************************************************************ * Initialize the query hash table associated with interpreter |