1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#! /usr/bin/env stap
%( CONFIG_64BIT == "y" %?
global profile%[20000], pcount
%:
# On a 32-bit platform, the profile array must be smaller, otherwise
# its allocation will fail on module startup.
global profile%[5000], 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]))
}
}
}
|
