302 lines
6.8 KiB
Bash
302 lines
6.8 KiB
Bash
|
#!/bin/sh
|
||
|
|
# SPDX-License-Identifier: GPL-2.0-only
|
||
|
|
|
||
|
|
usage() {
|
||
|
|
echo "Ftrace boottime trace test tool"
|
||
|
|
echo "Usage: $0 [--apply|--init] [--debug] BOOTCONFIG-FILE"
|
||
|
|
echo " --apply: Test actual apply to tracefs (need sudo)"
|
||
|
|
echo " --init: Initialize ftrace before applying (imply --apply)"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
|
||
|
|
[ $# -eq 0 ] && usage
|
||
|
|
|
||
|
|
BCONF=
|
||
|
|
DEBUG=
|
||
|
|
APPLY=
|
||
|
|
INIT=
|
||
|
|
while [ x"$1" != x ]; do
|
||
|
|
case "$1" in
|
||
|
|
"--debug")
|
||
|
|
DEBUG=$1;;
|
||
|
|
"--apply")
|
||
|
|
APPLY=$1;;
|
||
|
|
"--init")
|
||
|
|
APPLY=$1
|
||
|
|
INIT=$1;;
|
||
|
|
*)
|
||
|
|
[ ! -f $1 ] && usage
|
||
|
|
BCONF=$1;;
|
||
|
|
esac
|
||
|
|
shift 1
|
||
|
|
done
|
||
|
|
|
||
|
|
if [ x"$APPLY" != x ]; then
|
||
|
|
if [ `id -u` -ne 0 ]; then
|
||
|
|
echo "This must be run by root user. Try sudo." 1>&2
|
||
|
|
exec sudo $0 $DEBUG $APPLY $BCONF
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
run_cmd() { # command
|
||
|
|
echo "$*"
|
||
|
|
if [ x"$APPLY" != x ]; then # apply command
|
||
|
|
eval $*
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
if [ x"$DEBUG" != x ]; then
|
||
|
|
set -x
|
||
|
|
fi
|
||
|
|
|
||
|
|
TRACEFS=`grep -m 1 -w tracefs /proc/mounts | cut -f 2 -d " "`
|
||
|
|
if [ -z "$TRACEFS" ]; then
|
||
|
|
if ! grep -wq debugfs /proc/mounts; then
|
||
|
|
echo "Error: No tracefs/debugfs was mounted." 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
TRACEFS=`grep -m 1 -w debugfs /proc/mounts | cut -f 2 -d " "`/tracing
|
||
|
|
if [ ! -d $TRACEFS ]; then
|
||
|
|
echo "Error: ftrace is not enabled on this kernel." 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ x"$INIT" != x ]; then
|
||
|
|
. `dirname $0`/ftrace.sh
|
||
|
|
(cd $TRACEFS; initialize_ftrace)
|
||
|
|
fi
|
||
|
|
|
||
|
|
. `dirname $0`/xbc.sh
|
||
|
|
|
||
|
|
######## main #########
|
||
|
|
set -e
|
||
|
|
|
||
|
|
xbc_init $BCONF
|
||
|
|
|
||
|
|
set_value_of() { # key file
|
||
|
|
if xbc_has_key $1; then
|
||
|
|
val=`xbc_get_val $1 1`
|
||
|
|
run_cmd "echo '$val' >> $2"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
set_array_of() { # key file
|
||
|
|
if xbc_has_key $1; then
|
||
|
|
xbc_get_val $1 | while read line; do
|
||
|
|
run_cmd "echo '$line' >> $2"
|
||
|
|
done
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
compose_synth() { # event_name branch
|
||
|
|
echo -n "$1 "
|
||
|
|
xbc_get_val $2 | while read field; do echo -n "$field; "; done
|
||
|
|
}
|
||
|
|
|
||
|
|
print_hist_array() { # prefix key
|
||
|
|
__sep="="
|
||
|
|
if xbc_has_key ${1}.${2}; then
|
||
|
|
echo -n ":$2"
|
||
|
|
xbc_get_val ${1}.${2} | while read field; do
|
||
|
|
echo -n "$__sep$field"; __sep=","
|
||
|
|
done
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
print_hist_action_array() { # prefix key
|
||
|
|
__sep="("
|
||
|
|
echo -n ".$2"
|
||
|
|
xbc_get_val ${1}.${2} | while read field; do
|
||
|
|
echo -n "$__sep$field"; __sep=","
|
||
|
|
done
|
||
|
|
echo -n ")"
|
||
|
|
}
|
||
|
|
|
||
|
|
print_hist_one_action() { # prefix handler param
|
||
|
|
echo -n ":${2}("`xbc_get_val ${1}.${3}`")"
|
||
|
|
if xbc_has_key "${1}.trace"; then
|
||
|
|
print_hist_action_array ${1} "trace"
|
||
|
|
elif xbc_has_key "${1}.save"; then
|
||
|
|
print_hist_action_array ${1} "save"
|
||
|
|
elif xbc_has_key "${1}.snapshot"; then
|
||
|
|
echo -n ".snapshot()"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
print_hist_actions() { # prefix handler param
|
||
|
|
for __hdr in `xbc_subkeys ${1}.${2} 1 ".[0-9]"`; do
|
||
|
|
print_hist_one_action ${1}.${2}.$__hdr ${2} ${3}
|
||
|
|
done
|
||
|
|
if xbc_has_key ${1}.${2}.${3} ; then
|
||
|
|
print_hist_one_action ${1}.${2} ${2} ${3}
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
print_hist_var() { # prefix varname
|
||
|
|
echo -n ":${2}="`xbc_get_val ${1}.var.${2} | tr -d [:space:]`
|
||
|
|
}
|
||
|
|
|
||
|
|
print_one_histogram() { # prefix
|
||
|
|
echo -n "hist"
|
||
|
|
print_hist_array $1 "keys"
|
||
|
|
print_hist_array $1 "values"
|
||
|
|
print_hist_array $1 "sort"
|
||
|
|
if xbc_has_key "${1}.size"; then
|
||
|
|
echo -n ":size="`xbc_get_val ${1}.size`
|
||
|
|
fi
|
||
|
|
if xbc_has_key "${1}.name"; then
|
||
|
|
echo -n ":name="`xbc_get_val ${1}.name`
|
||
|
|
fi
|
||
|
|
for __var in `xbc_subkeys "${1}.var" 1`; do
|
||
|
|
print_hist_var ${1} ${__var}
|
||
|
|
done
|
||
|
|
if xbc_has_key "${1}.pause"; then
|
||
|
|
echo -n ":pause"
|
||
|
|
elif xbc_has_key "${1}.continue"; then
|
||
|
|
echo -n ":continue"
|
||
|
|
elif xbc_has_key "${1}.clear"; then
|
||
|
|
echo -n ":clear"
|
||
|
|
fi
|
||
|
|
print_hist_actions ${1} "onmax" "var"
|
||
|
|
print_hist_actions ${1} "onchange" "var"
|
||
|
|
print_hist_actions ${1} "onmatch" "event"
|
||
|
|
|
||
|
|
if xbc_has_key "${1}.filter"; then
|
||
|
|
echo -n " if "`xbc_get_val ${1}.filter`
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_one_histogram() { # prefix trigger-file
|
||
|
|
run_cmd "echo '`print_one_histogram ${1}`' >> ${2}"
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_histograms() { # prefix trigger-file
|
||
|
|
for __hist in `xbc_subkeys ${1} 1 ".[0-9]"`; do
|
||
|
|
setup_one_histogram ${1}.$__hist ${2}
|
||
|
|
done
|
||
|
|
if xbc_has_key ${1}.keys; then
|
||
|
|
setup_one_histogram ${1} ${2}
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_event() { # prefix group event [instance]
|
||
|
|
branch=$1.$2.$3
|
||
|
|
if [ "$4" ]; then
|
||
|
|
eventdir="$TRACEFS/instances/$4/events/$2/$3"
|
||
|
|
else
|
||
|
|
eventdir="$TRACEFS/events/$2/$3"
|
||
|
|
fi
|
||
|
|
# group enable
|
||
|
|
if [ "$3" = "enable" ]; then
|
||
|
|
run_cmd "echo 1 > ${eventdir}"
|
||
|
|
return
|
||
|
|
fi
|
||
|
|
|
||
|
|
case $2 in
|
||
|
|
kprobes)
|
||
|
|
xbc_get_val ${branch}.probes | while read line; do
|
||
|
|
run_cmd "echo 'p:kprobes/$3 $line' >> $TRACEFS/kprobe_events"
|
||
|
|
done
|
||
|
|
;;
|
||
|
|
synthetic)
|
||
|
|
run_cmd "echo '`compose_synth $3 ${branch}.fields`' >> $TRACEFS/synthetic_events"
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
|
||
|
|
set_value_of ${branch}.filter ${eventdir}/filter
|
||
|
|
set_array_of ${branch}.actions ${eventdir}/trigger
|
||
|
|
|
||
|
|
setup_histograms ${branch}.hist ${eventdir}/trigger
|
||
|
|
|
||
|
|
if xbc_has_key ${branch}.enable; then
|
||
|
|
run_cmd "echo 1 > ${eventdir}/enable"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_events() { # prefix("ftrace" or "ftrace.instance.INSTANCE") [instance]
|
||
|
|
prefix="${1}.event"
|
||
|
|
if xbc_has_branch ${1}.event; then
|
||
|
|
for grpev in `xbc_subkeys ${1}.event 2`; do
|
||
|
|
setup_event $prefix ${grpev%.*} ${grpev#*.} $2
|
||
|
|
done
|
||
|
|
fi
|
||
|
|
if xbc_has_branch ${1}.event.enable; then
|
||
|
|
if [ "$2" ]; then
|
||
|
|
run_cmd "echo 1 > $TRACEFS/instances/$2/events/enable"
|
||
|
|
else
|
||
|
|
run_cmd "echo 1 > $TRACEFS/events/enable"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
size2kb() { # size[KB|MB]
|
||
|
|
case $1 in
|
||
|
|
*KB)
|
||
|
|
echo ${1%KB};;
|
||
|
|
*MB)
|
||
|
|
expr ${1%MB} \* 1024;;
|
||
|
|
*)
|
||
|
|
expr $1 / 1024 ;;
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
setup_instance() { # [instance]
|
||
|
|
if [ "$1" ]; then
|
||
|
|
instance="ftrace.instance.${1}"
|
||
|
|
instancedir=$TRACEFS/instances/$1
|
||
|
|
else
|
||
|
|
instance="ftrace"
|
||
|
|
instancedir=$TRACEFS
|
||
|
|
fi
|
||
|
|
|
||
|
|
set_array_of ${instance}.options ${instancedir}/trace_options
|
||
|
|
set_value_of ${instance}.trace_clock ${instancedir}/trace_clock
|
||
|
|
set_value_of ${instance}.cpumask ${instancedir}/tracing_cpumask
|
||
|
|
set_value_of ${instance}.tracing_on ${instancedir}/tracing_on
|
||
|
|
set_value_of ${instance}.tracer ${instancedir}/current_tracer
|
||
|
|
set_array_of ${instance}.ftrace.filters \
|
||
|
|
${instancedir}/set_ftrace_filter
|
||
|
|
set_array_of ${instance}.ftrace.notrace \
|
||
|
|
${instancedir}/set_ftrace_notrace
|
||
|
|
|
||
|
|
if xbc_has_key ${instance}.alloc_snapshot; then
|
||
|
|
run_cmd "echo 1 > ${instancedir}/snapshot"
|
||
|
|
fi
|
||
|
|
|
||
|
|
if xbc_has_key ${instance}.buffer_size; then
|
||
|
|
size=`xbc_get_val ${instance}.buffer_size 1`
|
||
|
|
size=`eval size2kb $size`
|
||
|
|
run_cmd "echo $size >> ${instancedir}/buffer_size_kb"
|
||
|
|
fi
|
||
|
|
|
||
|
|
setup_events ${instance} $1
|
||
|
|
set_array_of ${instance}.events ${instancedir}/set_event
|
||
|
|
}
|
||
|
|
|
||
|
|
# ftrace global configs (kernel.*)
|
||
|
|
if xbc_has_key "kernel.dump_on_oops"; then
|
||
|
|
dump_mode=`xbc_get_val "kernel.dump_on_oops" 1`
|
||
|
|
[ "$dump_mode" ] && dump_mode=`eval echo $dump_mode` || dump_mode=1
|
||
|
|
run_cmd "echo \"$dump_mode\" > /proc/sys/kernel/ftrace_dump_on_oops"
|
||
|
|
fi
|
||
|
|
|
||
|
|
set_value_of kernel.fgraph_max_depth $TRACEFS/max_graph_depth
|
||
|
|
set_array_of kernel.fgraph_filters $TRACEFS/set_graph_function
|
||
|
|
set_array_of kernel.fgraph_notraces $TRACEFS/set_graph_notrace
|
||
|
|
|
||
|
|
# Per-instance/per-event configs
|
||
|
|
if ! xbc_has_branch "ftrace" ; then
|
||
|
|
exit 0
|
||
|
|
fi
|
||
|
|
|
||
|
|
setup_instance # root instance
|
||
|
|
|
||
|
|
if xbc_has_branch "ftrace.instance"; then
|
||
|
|
for i in `xbc_subkeys "ftrace.instance" 1`; do
|
||
|
|
run_cmd "mkdir -p $TRACEFS/instances/$i"
|
||
|
|
setup_instance $i
|
||
|
|
done
|
||
|
|
fi
|
||
|
|
|