Mini Shell
Mini Shell
| Direktori : /proc/self/root/usr/share/systemtap/examples/general/ |
| Current File : //proc/self/root/usr/share/systemtap/examples/general/para-callgraph-verbose.stp |
#!/usr/bin/stap
function trace(entry_p, extra) {
%( $# > 1 %? if (tid() in trace) %)
printf("%s%s%s %s\n",
thread_indent (entry_p),
(entry_p>0?"->":"<-"),
ppfunc (),
extra)
}
%( $# > 1 %?
global trace
probe $2.call {
trace[tid()] = 1
}
probe $2.return {
delete trace[tid()]
}
%)
probe $1.call { trace(1, $$parms$$) }
probe $1.return { trace(-1, $$return) }