diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 19:45:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 19:45:45 (GMT) |
commit | f416c432624de0a0bf5a4d2c5a54cca26b41084e (patch) | |
tree | 1a24aa0f6b03618a4c2e6e70e034f077f2789e23 /generic | |
parent | 1c0d50a4d9f8395d1685c54c1a4eaea1168c7e23 (diff) | |
parent | 3a5cda42803d835e6734d8676adb5c3712fc9ede (diff) | |
download | tcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.zip tcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.tar.gz tcl-f416c432624de0a0bf5a4d2c5a54cca26b41084e.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclInterp.c | 20 |
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]); } |