Open Menu / tools / perf / tests / shell / coresight / callchain.sh 
  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
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
#!/bin/bash
# CoreSight synthesized callchain (exclusive)
# SPDX-License-Identifier: GPL-2.0

glb_err=1

if ! tmpdir=$(mktemp -d /tmp/perf-cs-callchain-test.XXXXXX); then
	echo "mktemp failed"
	exit 1
fi

cleanup_files()
{
	rm -rf "$tmpdir"
}

trap cleanup_files EXIT
trap 'cleanup_files; exit $glb_err' TERM INT

skip_if_system_is_not_ready()
{
	perf list | grep -Pzq 'cs_etm//' || {
		echo "[Skip] cs_etm event is not available" >&2
		return 2
	}

	# Requires root for trace in kernel
	[ "$(id -u)" = 0 ] || {
		echo "[Skip] No root permission" >&2
		return 2
	}

	return 0
}

record_trace()
{
	local data=$1
	local script=$2

	local cf="$tmpdir/ctl"
	local af="$tmpdir/ack"

	mkfifo "$cf" "$af"

	perf record -o "$data" -e cs_etm// --per-thread -D -1 --control fifo:"$cf","$af" -- \
		perf test --record-ctl fifo:"$cf","$af" -w callchain >/dev/null 2>&1 &&

	# It is safe to use 'i3i' with a three-instruction interval, since the
	# workload is compiled with -O0.
	perf script --itrace=g16i3il64 -i "$data" > "$script"
}

callchain_regex_1()
{
	printf '%s' \
'perf[[:space:]]+[0-9]+[[:space:]]+\[[0-9]+\][[:space:]]+([0-9.]+:[[:space:]]+)?[0-9]+ instructions:[[:space:]]*\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_foo\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'([[:space:]]+[[:xdigit:]]+ .*\n)*'
}

callchain_regex_2()
{
	printf '%s' \
'perf[[:space:]]+[0-9]+[[:space:]]+\[[0-9]+\][[:space:]]+([0-9.]+:[[:space:]]+)?[0-9]+ instructions:[[:space:]]*\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_do_syscall\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_foo\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'([[:space:]]+[[:xdigit:]]+ .*\n)*'
}

callchain_regex_3()
{
	printf '%s' \
'perf[[:space:]]+[0-9]+[[:space:]]+\[[0-9]+\][[:space:]]+([0-9.]+:[[:space:]]+)?[0-9]+ instructions:[[:space:]]*\n'\
'[[:space:]]+[[:xdigit:]]+ syscall(@plt)?\+0x[[:xdigit:]]+ \(.*\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_do_syscall\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_foo\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'([[:space:]]+[[:xdigit:]]+ .*\n)*'
}

callchain_regex_4()
{
	printf '%s' \
'perf[[:space:]]+[0-9]+[[:space:]]+\[[0-9]+\][[:space:]]+([0-9.]+:[[:space:]]+)?[0-9]+ instructions:[[:space:]]*\n'\
'[[:space:]]+[[:xdigit:]]+ .*\+0x[[:xdigit:]]+ \(\[kernel\.kallsyms\]\)\n'\
'[[:space:]]+[[:xdigit:]]+ syscall(@plt)?\+0x[[:xdigit:]]+ \(.*\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_do_syscall\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain_foo\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'[[:space:]]+[[:xdigit:]]+ callchain\+0x[[:xdigit:]]+ \(.*/perf\)\n'\
'([[:space:]]+[[:xdigit:]]+ .*\n)*'
}

find_after_line()
{
	local regex="$1"
	local file="$2"
	local start="$3"
	local offset
	local line

	# Search in byte offset
	offset=$(
		tail -n +"$start" "$file" |
		grep -Pzob -m1 "$regex" |
		tr '\0' '\n' |
		sed -n 's/^\([0-9][0-9]*\):.*/\1/p;q'
	)

	if [ -z "$offset" ]; then
		echo "Failed to match regex after line $start" >&2
		echo "Regex:" >&2
		printf '%s\n' "$regex" >&2
		echo "Context from line $start:" >&2
		sed -n "${start},$((start + 100))p" "$file" >&2
		return 1
	fi

	# Convert from offset to line
	line=$(
		tail -n +"$start" "$file" |
		head -c "$offset" |
		wc -l
	)

	echo "$((start + line))"
}

check_callchain_flow()
{
	local file="$1"
	local l1 l2 l3 l4 l5 l6 l7

	# Callchain push
	l1=$(find_after_line "$(callchain_regex_1)" "$file" 1) || return 1
	l2=$(find_after_line "$(callchain_regex_2)" "$file" "$((l1 + 1))") || return 1
	l3=$(find_after_line "$(callchain_regex_3)" "$file" "$((l2 + 1))") || return 1
	l4=$(find_after_line "$(callchain_regex_4)" "$file" "$((l3 + 1))") || return 1

	# Callchain pop
	l5=$(find_after_line "$(callchain_regex_3)" "$file" "$((l4 + 1))") || return 1
	l6=$(find_after_line "$(callchain_regex_2)" "$file" "$((l5 + 1))") || return 1
	l7=$(find_after_line "$(callchain_regex_1)" "$file" "$((l6 + 1))") || return 1

	echo "Callchain flow matched:"
	echo "  l1=$l1 l2=$l2 l3=$l3 l4=$l4 l5=$l5 l6=$l6 l7=$l7"

	return 0
}

run_test()
{
	local data=$tmpdir/perf.data
	local script=$tmpdir/perf.script

	if ! record_trace "$data" "$script"; then
		echo "perf record/script failed"
		return
	fi

	check_callchain_flow "$script" || return

	glb_err=0
}

skip_if_system_is_not_ready || exit 2

run_test

exit $glb_err