PAL.C.T MINI SHELL
#!/usr/bin/stap
global execnames, page_faults, node_faults, nodes
probe vm.pagefault {
execnames[pid()] = execname()
page_faults[pid(), write_access ? 1 : 0] <<< 1
try {
n=addr_to_node(address)
node_faults[pid(), n] <<< 1
nodes[n] <<< 1
} catch { }
}
function print_pf () {
printf ("\n")
printf ("%-16s %-6s %10s %10s %-20s\n",
"Execname", "PID", "RD Faults", "WR Faults", "Node:Faults")
print ("======================= ========== ========== =============\n")
foreach (pid in execnames) {
printf ("%-16s %6d %10d %10d ", execnames[pid], pid,
@count(page_faults[pid,0]), @count(page_faults[pid,1]))
foreach ([node+] in nodes) {
if ([pid, node] in node_faults)
printf ("%d:%d ", node, @count(node_faults[pid, node]))
}
printf ("\n")
}
printf("\n")
}
probe begin {
printf("Starting pagefault counters \n")
}
probe end {
printf("Printing counters: \n")
print_pf ()
printf("Done\n")
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`