Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 27 lines (20 sloc) 0.372 kB
#!/usr/sbin/dtrace -s
dtrace:::BEGIN {
depth = 0
}
perl$target:::sub-entry
{
self->sub = copyinstr(arg0);
self->file = copyinstr(arg1);
sdepth[depth] = self->sub;
fdepth[depth++] = self->file;
}
perl$target:::sub-return
{
self->sub = sdepth[--depth];
self->file = fdepth[depth];
}
pid$target::malloc:entry
{
@[self->file, self->sub] = sum( arg0 );
}
Jump to Line
Something went wrong with that request. Please try again.