Differences From Artifact [b37110c822]:

• File generic/tclOOMethod.c — part of check-in [1a1a5c4cb9] at 2018-11-15 19:38:45 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 52925) [more...]

To Artifact [c932e2a4a7]:

• File generic/tclOOMethod.c — part of check-in [d167840eb0] at 2018-11-16 20:44:08 on branch trunk — merge 8.7 (user: dgp size: 52899) [more...]

973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990

    *varPtr = rPtr->fetchProc(interp, rPtr);

    /*
     * Must not retain reference to resolved information. [Bug 3105999]
     */

    if (rPtr != NULL) {
	rPtr->deleteProc(rPtr);
    }
    return (*varPtr? TCL_OK : TCL_CONTINUE);
}

static Tcl_Var
ProcedureMethodCompiledVarConnect(
    Tcl_Interp *interp,
    Tcl_ResolvedVarInfo *rPtr)
{

<
|
<
|

973
974
975
976
977
978
979

980

981
982
983
984
985
986
987
988

    *varPtr = rPtr->fetchProc(interp, rPtr);

    /*
     * Must not retain reference to resolved information. [Bug 3105999]
     */


    rPtr->deleteProc(rPtr);

    return (*varPtr ? TCL_OK : TCL_CONTINUE);
}

static Tcl_Var
ProcedureMethodCompiledVarConnect(
    Tcl_Interp *interp,
    Tcl_ResolvedVarInfo *rPtr)
{