summaryrefslogtreecommitdiffstats
path: root/generic/tclInterp.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-04-19 19:55:46 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-04-19 19:55:46 (GMT)
commit9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab (patch)
tree465eb306b1bfab0105267fda86f092adff2dd924 /generic/tclInterp.c
parent777918b862147c2047cc64e15487834b2e090d65 (diff)
parentf416c432624de0a0bf5a4d2c5a54cca26b41084e (diff)
downloadtcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.zip
tcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.tar.gz
tcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.tar.bz2
Merge 8.7
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 d953bc0..69e3157 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -1295,7 +1295,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. */
{
@@ -1319,8 +1319,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;
@@ -1358,7 +1358,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. */
{
@@ -1382,8 +1382,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;
@@ -1522,7 +1522,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. */
{
@@ -1542,8 +1542,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]);
@@ -1574,7 +1574,7 @@ AliasCreate(
Command *cmdPtr;
Tcl_DecrRefCount(aliasPtr->token);
- Tcl_DecrRefCount(targetNamePtr);
+ Tcl_DecrRefCount(targetCmdPtr);
for (i = 0; i < objc; i++) {
Tcl_DecrRefCount(objv[i]);
}