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
|
#! /usr/bin/env stap
global var, varerr
probe $1 {
if (@defined($2)) {
try {
newvar = $2;
if (var[tid()] != newvar) {
printf("%s[%d] %s %s:\n", execname(), tid(), pp(), @2);
println(newvar);
var[tid()] = newvar;
}
} catch { varerr ++ } # error during $2 resolution or perhaps var[] assignment
}
}
probe kprocess.release { # if using per-thread checking
delete var[$p->pid] # thread
}
probe never {
var[0]="" # assigns a type to var in case no probes match $1 above
}
probe error,end {
if (varerr) printf("%s %s access errors: %d", @1, @2, varerr);
}
|
