Index: generic/nsfStack.c =================================================================== diff -u -r19ef72a5f87241def42fa2a2ec15e28a8717b59b -r0078146a2bcee10f8f7f65313b86b288f6d2f652 --- generic/nsfStack.c (.../nsfStack.c) (revision 19ef72a5f87241def42fa2a2ec15e28a8717b59b) +++ generic/nsfStack.c (.../nsfStack.c) (revision 0078146a2bcee10f8f7f65313b86b288f6d2f652) @@ -830,6 +830,12 @@ * cases, we maintain an activation count. */ if (cmd) { + if (NSF_DTRACE_METHOD_ENTRY_ENABLED()) { + // TODO: missing arg list + NSF_DTRACE_METHOD_ENTRY(cl ? ClassName(cl) : ObjectName(object), + Tcl_GetCommandName(object->teardown,cmd), + 0, ""); + } /* * Track object activations */ @@ -896,6 +902,11 @@ NsfProfileRecordMethodData(interp, cscPtr); } #endif + if (NSF_DTRACE_METHOD_RETURN_ENABLED()) { + // TODO: missing returcode handling, currently just when cmdPtr is set + NSF_DTRACE_METHOD_RETURN(cscPtr->cl ? ClassName(cscPtr->cl) : ObjectName(cscPtr->self), + cscPtr->methodName, TCL_OK); + } object = cscPtr->self;