diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 13:59:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 13:59:33 (GMT) |
commit | c2bf5cdebdca7370e2f45131ccea9deb272923ba (patch) | |
tree | 0495e3f2ff3c39bb0cfbdbc5216388066ed24b8c /generic | |
parent | 328c86e7d4d10134601a68be137680bf53a499bc (diff) | |
download | tcl-c2bf5cdebdca7370e2f45131ccea9deb272923ba.zip tcl-c2bf5cdebdca7370e2f45131ccea9deb272923ba.tar.gz tcl-c2bf5cdebdca7370e2f45131ccea9deb272923ba.tar.bz2 |
targetNamePtr -> targetCmdPtr (making it the same as in other documentation and tcl.decls)
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 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]); } |