diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-17 11:11:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-17 11:11:47 (GMT) |
commit | 56e784cb1b7a6e78689cfa75df0e0dbaf51657d0 (patch) | |
tree | de0cd9c6733da5298311c1900009758177ce1c6a /generic | |
parent | 3cb9dde39efd7d4045d85e21a69a57aa146c4ab5 (diff) | |
download | tcl-56e784cb1b7a6e78689cfa75df0e0dbaf51657d0.zip tcl-56e784cb1b7a6e78689cfa75df0e0dbaf51657d0.tar.gz tcl-56e784cb1b7a6e78689cfa75df0e0dbaf51657d0.tar.bz2 |
Doc/internal variable tweaks
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclInterp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index ac66324..95c68ee 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2169,23 +2169,23 @@ TclSetSlaveCancelFlags( int Tcl_GetInterpPath( - Tcl_Interp *askingInterp, /* Interpreter to start search from. */ + Tcl_Interp *interp, /* Interpreter to start search from. */ Tcl_Interp *targetInterp) /* Interpreter to find. */ { InterpInfo *iiPtr; - if (targetInterp == askingInterp) { - Tcl_SetObjResult(askingInterp, Tcl_NewObj()); + if (targetInterp == interp) { + Tcl_SetObjResult(interp, Tcl_NewObj()); return TCL_OK; } if (targetInterp == NULL) { return TCL_ERROR; } iiPtr = (InterpInfo *) ((Interp *) targetInterp)->interpInfo; - if (Tcl_GetInterpPath(askingInterp, iiPtr->slave.masterInterp) != TCL_OK){ + if (Tcl_GetInterpPath(interp, iiPtr->slave.masterInterp) != TCL_OK){ return TCL_ERROR; } - Tcl_ListObjAppendElement(NULL, Tcl_GetObjResult(askingInterp), + Tcl_ListObjAppendElement(NULL, Tcl_GetObjResult(interp), Tcl_NewStringObj(Tcl_GetHashKey(&iiPtr->master.slaveTable, iiPtr->slave.slaveEntryPtr), -1)); return TCL_OK; |