summaryrefslogtreecommitdiffstats
path: root/generic/tclInterp.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-04-19 19:45:45 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-04-19 19:45:45 (GMT)
commitf416c432624de0a0bf5a4d2c5a54cca26b41084e (patch)
tree1a24aa0f6b03618a4c2e6e70e034f077f2789e23 /generic/tclInterp.c
parent1c0d50a4d9f8395d1685c54c1a4eaea1168c7e23 (diff)
parent3a5cda42803d835e6734d8676adb5c3712fc9ede (diff)
downloadtcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.zip
tcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.tar.gz
tcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.tar.bz2
Merge 8.6
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r--generic/tclInterp.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 38cab4b..104899c 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -1288,7 +1288,7 @@ Tcl_GetAlias(
const char *aliasName, /* Name of alias to find. */
Tcl_Interp **targetInterpPtr,
/* (Return) target interpreter. */
- const char **targetNamePtr, /* (Return) name of target command. */
+ const char **targetCmdPtr, /* (Return) name of target command. */
int *argcPtr, /* (Return) count of addnl args. */
const char ***argvPtr) /* (Return) additional arguments. */
{
@@ -1312,8 +1312,8 @@ Tcl_GetAlias(
if (targetInterpPtr != NULL) {
*targetInterpPtr = aliasPtr->targetInterp;
}
- if (targetNamePtr != NULL) {
- *targetNamePtr = TclGetString(objv[0]);
+ if (targetCmdPtr != NULL) {
+ *targetCmdPtr = TclGetString(objv[0]);
}
if (argcPtr != NULL) {
*argcPtr = objc - 1;
@@ -1351,7 +1351,7 @@ Tcl_GetAliasObj(
const char *aliasName, /* Name of alias to find. */
Tcl_Interp **targetInterpPtr,
/* (Return) target interpreter. */
- const char **targetNamePtr, /* (Return) name of target command. */
+ const char **targetCmdPtr, /* (Return) name of target command. */
int *objcPtr, /* (Return) count of addnl args. */
Tcl_Obj ***objvPtr) /* (Return) additional args. */
{
@@ -1375,8 +1375,8 @@ Tcl_GetAliasObj(
if (targetInterpPtr != NULL) {
*targetInterpPtr = aliasPtr->targetInterp;
}
- if (targetNamePtr != NULL) {
- *targetNamePtr = TclGetString(objv[0]);
+ if (targetCmdPtr != NULL) {
+ *targetCmdPtr = TclGetString(objv[0]);
}
if (objcPtr != NULL) {
*objcPtr = objc - 1;
@@ -1515,7 +1515,7 @@ AliasCreate(
Tcl_Interp *parentInterp, /* Interp in which target command will be
* invoked. */
Tcl_Obj *namePtr, /* Name of alias cmd. */
- Tcl_Obj *targetNamePtr, /* Name of target cmd. */
+ Tcl_Obj *targetCmdPtr, /* Name of target cmd. */
int objc, /* Additional arguments to store */
Tcl_Obj *const objv[]) /* with alias. */
{
@@ -1535,8 +1535,8 @@ AliasCreate(
aliasPtr->objc = objc + 1;
prefv = &aliasPtr->objPtr;
- *prefv = targetNamePtr;
- Tcl_IncrRefCount(targetNamePtr);
+ *prefv = targetCmdPtr;
+ Tcl_IncrRefCount(targetCmdPtr);
for (i = 0; i < objc; i++) {
*(++prefv) = objv[i];
Tcl_IncrRefCount(objv[i]);
@@ -1567,7 +1567,7 @@ AliasCreate(
Command *cmdPtr;
Tcl_DecrRefCount(aliasPtr->token);
- Tcl_DecrRefCount(targetNamePtr);
+ Tcl_DecrRefCount(targetCmdPtr);
for (i = 0; i < objc; i++) {
Tcl_DecrRefCount(objv[i]);
}