Differences From Artifact [e4f5d2ec54]:

• File generic/tclOOInfo.c — part of check-in [2778ad161a] at 2011-05-25 13:35:37 on branch trunk — Implementation of TIP #381: Call Chain Introspection and Control (user: dkf size: 38537) [more...]

To Artifact [f8439bbb01]:

• File generic/tclOOInfo.c — part of check-in [5f31ec3fcd] at 2011-08-07 15:46:09 on branch trunk — [Bug 3387082]: Plug memory leak in call chain introspection. (user: dkf size: 38568) [more...]

1538
1539
1540
1541
1542
1543
1544

1545
1546
1547
1548
1549
1550
1551

    callPtr = TclOOGetStereotypeCallChain(clsPtr, objv[2], PUBLIC_METHOD);
    if (callPtr == NULL) {
	Tcl_AppendResult(interp, "cannot construct any call chain", NULL);
	return TCL_ERROR;
    }
    Tcl_SetObjResult(interp, TclOORenderCallChain(interp, callPtr));

    return TCL_OK;
}

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4

>

1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552

    callPtr = TclOOGetStereotypeCallChain(clsPtr, objv[2], PUBLIC_METHOD);
    if (callPtr == NULL) {
	Tcl_AppendResult(interp, "cannot construct any call chain", NULL);
	return TCL_ERROR;
    }
    Tcl_SetObjResult(interp, TclOORenderCallChain(interp, callPtr));
    TclOODeleteChain(callPtr);
    return TCL_OK;
}

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4