blob: 96c1a95be4f798f88838ae8882b87d89037707b2 (
plain)
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!/bin/sh
# description: event tracing - restricts events based on pid
# flags: instance
do_reset() {
echo > set_event
echo > set_event_pid
echo 0 > options/event-fork
clear_trace
}
fail() { #msg
do_reset
echo $1
exit $FAIL
}
yield() {
ping localhost -c 1 || sleep .001 || usleep 1 || sleep 1
}
if [ ! -f set_event -o ! -d events/sched ]; then
echo "event tracing is not supported"
exit_unsupported
fi
if [ ! -f set_event_pid ]; then
echo "event pid filtering is not supported"
exit_unsupported
fi
reset_tracer
do_reset
echo 1 > events/sched/sched_switch/enable
yield
count=`cat trace | grep sched_switch | wc -l`
if [ $count -eq 0 ]; then
fail "sched_switch events are not recorded"
fi
do_reset
read mypid rest < /proc/self/stat
echo $mypid > set_event_pid
echo 'sched:sched_switch' > set_event
yield
count=`cat trace | grep sched_switch | grep -v "pid=$mypid" | wc -l`
if [ $count -ne 0 ]; then
fail "sched_switch events from other task are recorded"
fi
do_reset
echo $mypid > set_event_pid
echo 1 > options/event-fork
echo 1 > events/sched/sched_switch/enable
yield
count=`cat trace | grep sched_switch | grep -v "pid=$mypid" | wc -l`
if [ $count -eq 0 ]; then
fail "sched_switch events from other task are not recorded"
fi
do_reset
exit 0
|
