75 lines
1.3 KiB
Plaintext
75 lines
1.3 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
# SPDX-License-Identifier: GPL-2.0
|
||
|
|
# 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
|