diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 19:55:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 19:55:46 (GMT) |
commit | 9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab (patch) | |
tree | 465eb306b1bfab0105267fda86f092adff2dd924 /generic/tclInterp.c | |
parent | 777918b862147c2047cc64e15487834b2e090d65 (diff) | |
parent | f416c432624de0a0bf5a4d2c5a54cca26b41084e (diff) | |
download | tcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.zip tcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.tar.gz tcl-9dcaee9cd6a028da2d49ba5d63068c5d7eb3d3ab.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
-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 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]); } |