1 #include <stdbool.h>
2 #include <linux/types.h>
3 
4 #include "util.h"
5 #include "event.h"
6 #include "evsel.h"
7 #include "debug.h"
8 
9 #include "tests.h"
10 
11 #define COMP(m) do {					\
12 	if (s1->m != s2->m) {				\
13 		pr_debug("Samples differ at '"#m"'\n");	\
14 		return false;				\
15 	}						\
16 } while (0)
17 
18 #define MCOMP(m) do {					\
19 	if (memcmp(&s1->m, &s2->m, sizeof(s1->m))) {	\
20 		pr_debug("Samples differ at '"#m"'\n");	\
21 		return false;				\
22 	}						\
23 } while (0)
24 
25 static bool samples_same(const struct perf_sample *s1,
26 			 const struct perf_sample *s2,
27 			 u64 type, u64 read_format)
28 {
29 	size_t i;
30 
31 	if (type & PERF_SAMPLE_IDENTIFIER)
32 		COMP(id);
33 
34 	if (type & PERF_SAMPLE_IP)
35 		COMP(ip);
36 
37 	if (type & PERF_SAMPLE_TID) {
38 		COMP(pid);
39 		COMP(tid);
40 	}
41 
42 	if (type & PERF_SAMPLE_TIME)
43 		COMP(time);
44 
45 	if (type & PERF_SAMPLE_ADDR)
46 		COMP(addr);
47 
48 	if (type & PERF_SAMPLE_ID)
49 		COMP(id);
50 
51 	if (type & PERF_SAMPLE_STREAM_ID)
52 		COMP(stream_id);
53 
54 	if (type & PERF_SAMPLE_CPU)
55 		COMP(cpu);
56 
57 	if (type & PERF_SAMPLE_PERIOD)
58 		COMP(period);
59 
60 	if (type & PERF_SAMPLE_READ) {
61 		if (read_format & PERF_FORMAT_GROUP)
62 			COMP(read.group.nr);
63 		else
64 			COMP(read.one.value);
65 		if (read_format & PERF_FORMAT_TOTAL_TIME_ENABLED)
66 			COMP(read.time_enabled);
67 		if (read_format & PERF_FORMAT_TOTAL_TIME_RUNNING)
68 			COMP(read.time_running);
69 		/* PERF_FORMAT_ID is forced for PERF_SAMPLE_READ */
70 		if (read_format & PERF_FORMAT_GROUP) {
71 			for (i = 0; i < s1->read.group.nr; i++)
72 				MCOMP(read.group.values[i]);
73 		} else {
74 			COMP(read.one.id);
75 		}
76 	}
77 
78 	if (type & PERF_SAMPLE_CALLCHAIN) {
79 		COMP(callchain->nr);
80 		for (i = 0; i < s1->callchain->nr; i++)
81 			COMP(callchain->ips[i]);
82 	}
83 
84 	if (type & PERF_SAMPLE_RAW) {
85 		COMP(raw_size);
86 		if (memcmp(s1->raw_data, s2->raw_data, s1->raw_size)) {
87 			pr_debug("Samples differ at 'raw_data'\n");
88 			return false;
89 		}
90 	}
91 
92 	if (type & PERF_SAMPLE_BRANCH_STACK) {
93 		COMP(branch_stack->nr);
94 		for (i = 0; i < s1->branch_stack->nr; i++)
95 			MCOMP(branch_stack->entries[i]);
96 	}
97 
98 	if (type & PERF_SAMPLE_REGS_USER) {
99 		size_t sz = hweight_long(s1->user_regs.mask) * sizeof(u64);
100 
101 		COMP(user_regs.mask);
102 		COMP(user_regs.abi);
103 		if (s1->user_regs.abi &&
104 		    (!s1->user_regs.regs || !s2->user_regs.regs ||
105 		     memcmp(s1->user_regs.regs, s2->user_regs.regs, sz))) {
106 			pr_debug("Samples differ at 'user_regs'\n");
107 			return false;
108 		}
109 	}
110 
111 	if (type & PERF_SAMPLE_STACK_USER) {
112 		COMP(user_stack.size);
113 		if (memcmp(s1->user_stack.data, s2->user_stack.data,
114 			   s1->user_stack.size)) {
115 			pr_debug("Samples differ at 'user_stack'\n");
116 			return false;
117 		}
118 	}
119 
120 	if (type & PERF_SAMPLE_WEIGHT)
121 		COMP(weight);
122 
123 	if (type & PERF_SAMPLE_DATA_SRC)
124 		COMP(data_src);
125 
126 	if (type & PERF_SAMPLE_TRANSACTION)
127 		COMP(transaction);
128 
129 	if (type & PERF_SAMPLE_REGS_INTR) {
130 		size_t sz = hweight_long(s1->intr_regs.mask) * sizeof(u64);
131 
132 		COMP(intr_regs.mask);
133 		COMP(intr_regs.abi);
134 		if (s1->intr_regs.abi &&
135 		    (!s1->intr_regs.regs || !s2->intr_regs.regs ||
136 		     memcmp(s1->intr_regs.regs, s2->intr_regs.regs, sz))) {
137 			pr_debug("Samples differ at 'intr_regs'\n");
138 			return false;
139 		}
140 	}
141 
142 	return true;
143 }
144 
145 static int do_test(u64 sample_type, u64 sample_regs, u64 read_format)
146 {
147 	struct perf_evsel evsel = {
148 		.needs_swap = false,
149 		.attr = {
150 			.sample_type = sample_type,
151 			.read_format = read_format,
152 		},
153 	};
154 	union perf_event *event;
155 	union {
156 		struct ip_callchain callchain;
157 		u64 data[64];
158 	} callchain = {
159 		/* 3 ips */
160 		.data = {3, 201, 202, 203},
161 	};
162 	union {
163 		struct branch_stack branch_stack;
164 		u64 data[64];
165 	} branch_stack = {
166 		/* 1 branch_entry */
167 		.data = {1, 211, 212, 213},
168 	};
169 	u64 regs[64];
170 	const u64 raw_data[] = {0x123456780a0b0c0dULL, 0x1102030405060708ULL};
171 	const u64 data[] = {0x2211443366558877ULL, 0, 0xaabbccddeeff4321ULL};
172 	struct perf_sample sample = {
173 		.ip		= 101,
174 		.pid		= 102,
175 		.tid		= 103,
176 		.time		= 104,
177 		.addr		= 105,
178 		.id		= 106,
179 		.stream_id	= 107,
180 		.period		= 108,
181 		.weight		= 109,
182 		.cpu		= 110,
183 		.raw_size	= sizeof(raw_data),
184 		.data_src	= 111,
185 		.transaction	= 112,
186 		.raw_data	= (void *)raw_data,
187 		.callchain	= &callchain.callchain,
188 		.branch_stack	= &branch_stack.branch_stack,
189 		.user_regs	= {
190 			.abi	= PERF_SAMPLE_REGS_ABI_64,
191 			.mask	= sample_regs,
192 			.regs	= regs,
193 		},
194 		.user_stack	= {
195 			.size	= sizeof(data),
196 			.data	= (void *)data,
197 		},
198 		.read		= {
199 			.time_enabled = 0x030a59d664fca7deULL,
200 			.time_running = 0x011b6ae553eb98edULL,
201 		},
202 		.intr_regs	= {
203 			.abi	= PERF_SAMPLE_REGS_ABI_64,
204 			.mask	= sample_regs,
205 			.regs	= regs,
206 		},
207 	};
208 	struct sample_read_value values[] = {{1, 5}, {9, 3}, {2, 7}, {6, 4},};
209 	struct perf_sample sample_out;
210 	size_t i, sz, bufsz;
211 	int err, ret = -1;
212 
213 	if (sample_type & PERF_SAMPLE_REGS_USER)
214 		evsel.attr.sample_regs_user = sample_regs;
215 
216 	if (sample_type & PERF_SAMPLE_REGS_INTR)
217 		evsel.attr.sample_regs_intr = sample_regs;
218 
219 	for (i = 0; i < sizeof(regs); i++)
220 		*(i + (u8 *)regs) = i & 0xfe;
221 
222 	if (read_format & PERF_FORMAT_GROUP) {
223 		sample.read.group.nr     = 4;
224 		sample.read.group.values = values;
225 	} else {
226 		sample.read.one.value = 0x08789faeb786aa87ULL;
227 		sample.read.one.id    = 99;
228 	}
229 
230 	sz = perf_event__sample_event_size(&sample, sample_type, read_format);
231 	bufsz = sz + 4096; /* Add a bit for overrun checking */
232 	event = malloc(bufsz);
233 	if (!event) {
234 		pr_debug("malloc failed\n");
235 		return -1;
236 	}
237 
238 	memset(event, 0xff, bufsz);
239 	event->header.type = PERF_RECORD_SAMPLE;
240 	event->header.misc = 0;
241 	event->header.size = sz;
242 
243 	err = perf_event__synthesize_sample(event, sample_type, read_format,
244 					    &sample, false);
245 	if (err) {
246 		pr_debug("%s failed for sample_type %#"PRIx64", error %d\n",
247 			 "perf_event__synthesize_sample", sample_type, err);
248 		goto out_free;
249 	}
250 
251 	/* The data does not contain 0xff so we use that to check the size */
252 	for (i = bufsz; i > 0; i--) {
253 		if (*(i - 1 + (u8 *)event) != 0xff)
254 			break;
255 	}
256 	if (i != sz) {
257 		pr_debug("Event size mismatch: actual %zu vs expected %zu\n",
258 			 i, sz);
259 		goto out_free;
260 	}
261 
262 	evsel.sample_size = __perf_evsel__sample_size(sample_type);
263 
264 	err = perf_evsel__parse_sample(&evsel, event, &sample_out);
265 	if (err) {
266 		pr_debug("%s failed for sample_type %#"PRIx64", error %d\n",
267 			 "perf_evsel__parse_sample", sample_type, err);
268 		goto out_free;
269 	}
270 
271 	if (!samples_same(&sample, &sample_out, sample_type, read_format)) {
272 		pr_debug("parsing failed for sample_type %#"PRIx64"\n",
273 			 sample_type);
274 		goto out_free;
275 	}
276 
277 	ret = 0;
278 out_free:
279 	free(event);
280 	if (ret && read_format)
281 		pr_debug("read_format %#"PRIx64"\n", read_format);
282 	return ret;
283 }
284 
285 /**
286  * test__sample_parsing - test sample parsing.
287  *
288  * This function implements a test that synthesizes a sample event, parses it
289  * and then checks that the parsed sample matches the original sample.  The test
290  * checks sample format bits separately and together.  If the test passes %0 is
291  * returned, otherwise %-1 is returned.
292  */
293 int test__sample_parsing(void)
294 {
295 	const u64 rf[] = {4, 5, 6, 7, 12, 13, 14, 15};
296 	u64 sample_type;
297 	u64 sample_regs;
298 	size_t i;
299 	int err;
300 
301 	/*
302 	 * Fail the test if it has not been updated when new sample format bits
303 	 * were added.  Please actually update the test rather than just change
304 	 * the condition below.
305 	 */
306 	if (PERF_SAMPLE_MAX > PERF_SAMPLE_REGS_INTR << 1) {
307 		pr_debug("sample format has changed, some new PERF_SAMPLE_ bit was introduced - test needs updating\n");
308 		return -1;
309 	}
310 
311 	/* Test each sample format bit separately */
312 	for (sample_type = 1; sample_type != PERF_SAMPLE_MAX;
313 	     sample_type <<= 1) {
314 		/* Test read_format variations */
315 		if (sample_type == PERF_SAMPLE_READ) {
316 			for (i = 0; i < ARRAY_SIZE(rf); i++) {
317 				err = do_test(sample_type, 0, rf[i]);
318 				if (err)
319 					return err;
320 			}
321 			continue;
322 		}
323 		sample_regs = 0;
324 
325 		if (sample_type == PERF_SAMPLE_REGS_USER)
326 			sample_regs = 0x3fff;
327 
328 		if (sample_type == PERF_SAMPLE_REGS_INTR)
329 			sample_regs = 0xff0fff;
330 
331 		err = do_test(sample_type, sample_regs, 0);
332 		if (err)
333 			return err;
334 	}
335 
336 	/* Test all sample format bits together */
337 	sample_type = PERF_SAMPLE_MAX - 1;
338 	sample_regs = 0x3fff; /* shared yb intr and user regs */
339 	for (i = 0; i < ARRAY_SIZE(rf); i++) {
340 		err = do_test(sample_type, sample_regs, rf[i]);
341 		if (err)
342 			return err;
343 	}
344 
345 	return 0;
346 }
347