PAL.C.T MINI SHELL
#!/usr/bin/stap
global profile%[20000], pcount
// configurable options
global symbolname = ""
probe timer.profile {
pcount <<< 1
uaddrinfo = ""
ufileline = ""
if (user_mode()) {
ufileline = usymfileline(uaddr())
if (strtol(ufileline, 16))
uaddrinfo = usymdata(uaddr())
else {
if (symbolname != "")
uaddrinfo = usymname(uaddr())."@"
uaddrinfo .= ufileline
}
profile[uaddrinfo, 0] <<< 1
} else {
profile["", addr()] <<< 1
}
}
probe end {
printf ("\n--- %d samples recorded:\n", @count(pcount))
foreach ([sfl, address] in profile- limit 20) {
if (sfl != "")
printf ("u:%-60s\t%6d\n", sfl, @count(profile[sfl, address]))
else {
addrinfo = ""
fileline = symfileline(address)
if (strtol(fileline, 16))
addrinfo = symdata(address)
else {
if (symbolname != "")
addrinfo = symname(address)."@"
addrinfo .= fileline
}
printf ("k:%-60s\t%6d\n", addrinfo, @count(profile[sfl, address]))
}
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`