diff options
| -rw-r--r-- | doc/CrtAlias.3 | 2 | ||||
| -rw-r--r-- | generic/tclInterp.c | 20 |
2 files changed, 11 insertions, 11 deletions
diff --git a/doc/CrtAlias.3 b/doc/CrtAlias.3 index 7d75fc6..89e374e 100644 --- a/doc/CrtAlias.3 +++ b/doc/CrtAlias.3 @@ -214,7 +214,7 @@ a vector of Tcl_Obj structures about an alias \fIaliasName\fR in \fIinterp\fR. Any of the result fields can be \fBNULL\fR, in which case the corresponding datum is not returned. If a result field is non\-\fBNULL\fR, the address indicated is set to the corresponding datum. -For example, if \fItargetNamePtr\fR is non\-\fBNULL\fR it is set to a +For example, if \fItargetCmdPtr\fR is non\-\fBNULL\fR it is set to a pointer to the string containing the name of the target command. .PP \fBTcl_GetAlias\fR is similar to \fBTcl_GetAliasObj\fR except that it diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 9cfbab2..b0f6207 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -1264,7 +1264,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. */ { @@ -1288,8 +1288,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; @@ -1326,7 +1326,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. */ { @@ -1350,8 +1350,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; @@ -1488,7 +1488,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. */ { @@ -1508,8 +1508,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]); @@ -1540,7 +1540,7 @@ AliasCreate( Command *cmdPtr; Tcl_DecrRefCount(aliasPtr->token); - Tcl_DecrRefCount(targetNamePtr); + Tcl_DecrRefCount(targetCmdPtr); for (i = 0; i < objc; i++) { Tcl_DecrRefCount(objv[i]); } |