evlist.c 41.4 KB
Newer Older
1
// SPDX-License-Identifier: GPL-2.0-only
2 3 4 5 6 7
/*
 * Copyright (C) 2011, Red Hat Inc, Arnaldo Carvalho de Melo <acme@redhat.com>
 *
 * Parts came from builtin-{top,stat,record}.c, see those files for further
 * copyright notes.
 */
8
#include <api/fs/fs.h>
9
#include <errno.h>
10
#include <inttypes.h>
11
#include <poll.h>
12
#include "cpumap.h"
13
#include "util/mmap.h"
14
#include "thread_map.h"
15
#include "target.h"
16 17
#include "evlist.h"
#include "evsel.h"
A
Adrian Hunter 已提交
18
#include "debug.h"
19
#include "units.h"
20
#include "util.h" // page_size
21
#include "../perf.h"
22
#include "asm/bug.h"
23
#include "bpf-event.h"
24
#include <signal.h>
25
#include <unistd.h>
26
#include <sched.h>
27
#include <stdlib.h>
28

29
#include "parse-events.h"
30
#include <subcmd/parse-options.h>
31

32
#include <fcntl.h>
33
#include <sys/ioctl.h>
34 35
#include <sys/mman.h>

36 37
#include <linux/bitops.h>
#include <linux/hash.h>
38
#include <linux/log2.h>
39
#include <linux/err.h>
40
#include <linux/string.h>
41
#include <linux/zalloc.h>
42
#include <perf/evlist.h>
43
#include <perf/evsel.h>
44
#include <perf/cpumap.h>
45

46 47
#include <internal/xyarray.h>

48 49 50 51
#ifdef LACKS_SIGQUEUE_PROTOTYPE
int sigqueue(pid_t pid, int sig, const union sigval value);
#endif

52
#define FD(e, x, y) (*(int *)xyarray__entry(e->core.fd, x, y))
53
#define SID(e, x, y) xyarray__entry(e->core.sample_id, x, y)
54

55 56
void evlist__init(struct evlist *evlist, struct perf_cpu_map *cpus,
		  struct perf_thread_map *threads)
57
{
58
	perf_evlist__init(&evlist->core);
59
	perf_evlist__set_maps(&evlist->core, cpus, threads);
60
	fdarray__init(&evlist->core.pollfd, 64);
61
	evlist->workload.pid = -1;
62
	evlist->bkw_mmap_state = BKW_MMAP_NOTREADY;
63 64
}

65
struct evlist *evlist__new(void)
66
{
67
	struct evlist *evlist = zalloc(sizeof(*evlist));
68

69
	if (evlist != NULL)
70
		evlist__init(evlist, NULL, NULL);
71 72 73 74

	return evlist;
}

75
struct evlist *perf_evlist__new_default(void)
76
{
77
	struct evlist *evlist = evlist__new();
78 79

	if (evlist && perf_evlist__add_default(evlist)) {
80
		evlist__delete(evlist);
81 82 83 84 85 86
		evlist = NULL;
	}

	return evlist;
}

87
struct evlist *perf_evlist__new_dummy(void)
88
{
89
	struct evlist *evlist = evlist__new();
90 91

	if (evlist && perf_evlist__add_dummy(evlist)) {
92
		evlist__delete(evlist);
93 94 95 96 97 98
		evlist = NULL;
	}

	return evlist;
}

99 100 101 102 103 104 105
/**
 * perf_evlist__set_id_pos - set the positions of event ids.
 * @evlist: selected event list
 *
 * Events with compatible sample types all have the same id_pos
 * and is_pos.  For convenience, put a copy on evlist.
 */
106
void perf_evlist__set_id_pos(struct evlist *evlist)
107
{
108
	struct evsel *first = evlist__first(evlist);
109 110 111 112 113

	evlist->id_pos = first->id_pos;
	evlist->is_pos = first->is_pos;
}

114
static void perf_evlist__update_id_pos(struct evlist *evlist)
115
{
116
	struct evsel *evsel;
117

118
	evlist__for_each_entry(evlist, evsel)
119 120 121 122 123
		perf_evsel__calc_id_pos(evsel);

	perf_evlist__set_id_pos(evlist);
}

124
static void evlist__purge(struct evlist *evlist)
125
{
126
	struct evsel *pos, *n;
127

128
	evlist__for_each_entry_safe(evlist, n, pos) {
129
		list_del_init(&pos->core.node);
130
		pos->evlist = NULL;
131
		evsel__delete(pos);
132 133
	}

134
	evlist->core.nr_entries = 0;
135 136
}

137
void evlist__exit(struct evlist *evlist)
138
{
139
	zfree(&evlist->mmap);
140
	zfree(&evlist->overwrite_mmap);
141
	fdarray__exit(&evlist->core.pollfd);
142 143
}

144
void evlist__delete(struct evlist *evlist)
145
{
146 147 148
	if (evlist == NULL)
		return;

149
	evlist__munmap(evlist);
150
	evlist__close(evlist);
151
	perf_cpu_map__put(evlist->core.cpus);
152
	perf_thread_map__put(evlist->core.threads);
153
	evlist->core.cpus = NULL;
154
	evlist->core.threads = NULL;
155
	evlist__purge(evlist);
156
	evlist__exit(evlist);
157 158 159
	free(evlist);
}

160
void evlist__add(struct evlist *evlist, struct evsel *entry)
161
{
162
	entry->evlist = evlist;
163
	entry->idx = evlist->core.nr_entries;
164
	entry->tracking = !entry->idx;
165

166 167 168
	perf_evlist__add(&evlist->core, &entry->core);

	if (evlist->core.nr_entries == 1)
169
		perf_evlist__set_id_pos(evlist);
170 171
}

172
void evlist__remove(struct evlist *evlist, struct evsel *evsel)
173 174
{
	evsel->evlist = NULL;
175
	perf_evlist__remove(&evlist->core, &evsel->core);
176 177
}

178
void perf_evlist__splice_list_tail(struct evlist *evlist,
179
				   struct list_head *list)
180
{
181
	struct evsel *evsel, *temp;
182

183
	__evlist__for_each_entry_safe(list, temp, evsel) {
184
		list_del_init(&evsel->core.node);
185
		evlist__add(evlist, evsel);
186
	}
187 188
}

189 190
void __perf_evlist__set_leader(struct list_head *list)
{
191
	struct evsel *evsel, *leader;
192

193 194
	leader = list_entry(list->next, struct evsel, core.node);
	evsel = list_entry(list->prev, struct evsel, core.node);
195

196
	leader->core.nr_members = evsel->idx - leader->idx + 1;
197

198
	__evlist__for_each_entry(list, evsel) {
199
		evsel->leader = leader;
200 201 202
	}
}

203
void perf_evlist__set_leader(struct evlist *evlist)
204
{
205 206
	if (evlist->core.nr_entries) {
		evlist->nr_groups = evlist->core.nr_entries > 1 ? 1 : 0;
207
		__perf_evlist__set_leader(&evlist->core.entries);
208
	}
209 210
}

211
int __perf_evlist__add_default(struct evlist *evlist, bool precise)
212
{
213
	struct evsel *evsel = perf_evsel__new_cycles(precise);
214

215
	if (evsel == NULL)
216
		return -ENOMEM;
217

218
	evlist__add(evlist, evsel);
219 220
	return 0;
}
221

222
int perf_evlist__add_dummy(struct evlist *evlist)
223 224 225 226 227 228
{
	struct perf_event_attr attr = {
		.type	= PERF_TYPE_SOFTWARE,
		.config = PERF_COUNT_SW_DUMMY,
		.size	= sizeof(attr), /* to capture ABI version */
	};
229
	struct evsel *evsel = perf_evsel__new_idx(&attr, evlist->core.nr_entries);
230 231 232 233

	if (evsel == NULL)
		return -ENOMEM;

234
	evlist__add(evlist, evsel);
235 236 237
	return 0;
}

238
static int evlist__add_attrs(struct evlist *evlist,
239
				  struct perf_event_attr *attrs, size_t nr_attrs)
240
{
241
	struct evsel *evsel, *n;
242 243 244 245
	LIST_HEAD(head);
	size_t i;

	for (i = 0; i < nr_attrs; i++) {
246
		evsel = perf_evsel__new_idx(attrs + i, evlist->core.nr_entries + i);
247 248
		if (evsel == NULL)
			goto out_delete_partial_list;
249
		list_add_tail(&evsel->core.node, &head);
250 251
	}

252
	perf_evlist__splice_list_tail(evlist, &head);
253 254 255 256

	return 0;

out_delete_partial_list:
257
	__evlist__for_each_entry_safe(&head, n, evsel)
258
		evsel__delete(evsel);
259 260 261
	return -1;
}

262
int __perf_evlist__add_default_attrs(struct evlist *evlist,
263 264 265 266 267 268 269
				     struct perf_event_attr *attrs, size_t nr_attrs)
{
	size_t i;

	for (i = 0; i < nr_attrs; i++)
		event_attr_init(attrs + i);

270
	return evlist__add_attrs(evlist, attrs, nr_attrs);
271 272
}

273
struct evsel *
274
perf_evlist__find_tracepoint_by_id(struct evlist *evlist, int id)
275
{
276
	struct evsel *evsel;
277

278
	evlist__for_each_entry(evlist, evsel) {
279 280
		if (evsel->core.attr.type   == PERF_TYPE_TRACEPOINT &&
		    (int)evsel->core.attr.config == id)
281 282 283 284 285 286
			return evsel;
	}

	return NULL;
}

287
struct evsel *
288
perf_evlist__find_tracepoint_by_name(struct evlist *evlist,
289 290
				     const char *name)
{
291
	struct evsel *evsel;
292

293
	evlist__for_each_entry(evlist, evsel) {
294
		if ((evsel->core.attr.type == PERF_TYPE_TRACEPOINT) &&
295 296 297 298 299 300 301
		    (strcmp(evsel->name, name) == 0))
			return evsel;
	}

	return NULL;
}

302
int perf_evlist__add_newtp(struct evlist *evlist,
303 304
			   const char *sys, const char *name, void *handler)
{
305
	struct evsel *evsel = perf_evsel__newtp(sys, name);
306

307
	if (IS_ERR(evsel))
308 309
		return -1;

310
	evsel->handler = handler;
311
	evlist__add(evlist, evsel);
312 313 314
	return 0;
}

315
static int perf_evlist__nr_threads(struct evlist *evlist,
316
				   struct evsel *evsel)
317
{
318
	if (evsel->core.system_wide)
319 320
		return 1;
	else
321
		return perf_thread_map__nr(evlist->core.threads);
322 323
}

324
void evlist__disable(struct evlist *evlist)
325
{
326
	struct evsel *pos;
327

328
	evlist__for_each_entry(evlist, pos) {
329
		if (pos->disabled || !perf_evsel__is_group_leader(pos) || !pos->core.fd)
330
			continue;
331
		evsel__disable(pos);
332
	}
333 334

	evlist->enabled = false;
335 336
}

337
void evlist__enable(struct evlist *evlist)
338
{
339
	struct evsel *pos;
340

341
	evlist__for_each_entry(evlist, pos) {
342
		if (!perf_evsel__is_group_leader(pos) || !pos->core.fd)
343
			continue;
344
		evsel__enable(pos);
345
	}
346 347 348 349

	evlist->enabled = true;
}

350
void perf_evlist__toggle_enable(struct evlist *evlist)
351
{
352
	(evlist->enabled ? evlist__disable : evlist__enable)(evlist);
353 354
}

355
static int perf_evlist__enable_event_cpu(struct evlist *evlist,
356
					 struct evsel *evsel, int cpu)
357
{
358
	int thread;
359 360
	int nr_threads = perf_evlist__nr_threads(evlist, evsel);

361
	if (!evsel->core.fd)
362 363 364
		return -EINVAL;

	for (thread = 0; thread < nr_threads; thread++) {
365
		int err = ioctl(FD(evsel, cpu, thread), PERF_EVENT_IOC_ENABLE, 0);
366 367 368 369 370 371
		if (err)
			return err;
	}
	return 0;
}

372
static int perf_evlist__enable_event_thread(struct evlist *evlist,
373
					    struct evsel *evsel,
374 375
					    int thread)
{
376
	int cpu;
377
	int nr_cpus = perf_cpu_map__nr(evlist->core.cpus);
378

379
	if (!evsel->core.fd)
380 381 382
		return -EINVAL;

	for (cpu = 0; cpu < nr_cpus; cpu++) {
383
		int err = ioctl(FD(evsel, cpu, thread), PERF_EVENT_IOC_ENABLE, 0);
384 385 386 387 388 389
		if (err)
			return err;
	}
	return 0;
}

390
int perf_evlist__enable_event_idx(struct evlist *evlist,
391
				  struct evsel *evsel, int idx)
392
{
393
	bool per_cpu_mmaps = !perf_cpu_map__empty(evlist->core.cpus);
394 395 396 397 398 399 400

	if (per_cpu_mmaps)
		return perf_evlist__enable_event_cpu(evlist, evsel, idx);
	else
		return perf_evlist__enable_event_thread(evlist, evsel, idx);
}

401
int perf_evlist__alloc_pollfd(struct evlist *evlist)
402
{
403
	int nr_cpus = perf_cpu_map__nr(evlist->core.cpus);
404
	int nr_threads = perf_thread_map__nr(evlist->core.threads);
405
	int nfds = 0;
406
	struct evsel *evsel;
407

408
	evlist__for_each_entry(evlist, evsel) {
409
		if (evsel->core.system_wide)
410 411 412 413 414
			nfds += nr_cpus;
		else
			nfds += nr_cpus * nr_threads;
	}

415 416
	if (fdarray__available_entries(&evlist->core.pollfd) < nfds &&
	    fdarray__grow(&evlist->core.pollfd, nfds) < 0)
417 418 419
		return -ENOMEM;

	return 0;
420
}
421

422
static int __perf_evlist__add_pollfd(struct evlist *evlist, int fd,
423
				     struct mmap *map, short revent)
424
{
425
	int pos = fdarray__add(&evlist->core.pollfd, fd, revent | POLLERR | POLLHUP);
426 427 428 429 430
	/*
	 * Save the idx so that when we filter out fds POLLHUP'ed we can
	 * close the associated evlist->mmap[] entry.
	 */
	if (pos >= 0) {
431
		evlist->core.pollfd.priv[pos].ptr = map;
432 433 434 435 436 437 438

		fcntl(fd, F_SETFL, O_NONBLOCK);
	}

	return pos;
}

439
int perf_evlist__add_pollfd(struct evlist *evlist, int fd)
440
{
441
	return __perf_evlist__add_pollfd(evlist, fd, NULL, POLLIN);
442 443
}

444 445
static void perf_evlist__munmap_filtered(struct fdarray *fda, int fd,
					 void *arg __maybe_unused)
446
{
447
	struct mmap *map = fda->priv[fd].ptr;
448

449 450
	if (map)
		perf_mmap__put(map);
451
}
452

453
int perf_evlist__filter_pollfd(struct evlist *evlist, short revents_and_mask)
454
{
455
	return fdarray__filter(&evlist->core.pollfd, revents_and_mask,
456
			       perf_evlist__munmap_filtered, NULL);
457 458
}

459
int perf_evlist__poll(struct evlist *evlist, int timeout)
460
{
461
	return fdarray__poll(&evlist->core.pollfd, timeout);
462 463
}

464
static void perf_evlist__set_sid_idx(struct evlist *evlist,
465
				     struct evsel *evsel, int idx, int cpu,
A
Adrian Hunter 已提交
466 467 468 469
				     int thread)
{
	struct perf_sample_id *sid = SID(evsel, cpu, thread);
	sid->idx = idx;
470 471
	if (evlist->core.cpus && cpu >= 0)
		sid->cpu = evlist->core.cpus->map[cpu];
A
Adrian Hunter 已提交
472 473
	else
		sid->cpu = -1;
474
	if (!evsel->core.system_wide && evlist->core.threads && thread >= 0)
475
		sid->tid = perf_thread_map__pid(evlist->core.threads, thread);
A
Adrian Hunter 已提交
476 477 478 479
	else
		sid->tid = -1;
}

480
struct perf_sample_id *perf_evlist__id2sid(struct evlist *evlist, u64 id)
481 482 483 484 485 486
{
	struct hlist_head *head;
	struct perf_sample_id *sid;
	int hash;

	hash = hash_64(id, PERF_EVLIST__HLIST_BITS);
487
	head = &evlist->core.heads[hash];
488

489
	hlist_for_each_entry(sid, head, node)
490
		if (sid->id == id)
491 492 493 494 495
			return sid;

	return NULL;
}

496
struct evsel *perf_evlist__id2evsel(struct evlist *evlist, u64 id)
497 498 499
{
	struct perf_sample_id *sid;

500
	if (evlist->core.nr_entries == 1 || !id)
501
		return evlist__first(evlist);
502 503 504

	sid = perf_evlist__id2sid(evlist, id);
	if (sid)
505
		return container_of(sid->evsel, struct evsel, core);
506 507

	if (!perf_evlist__sample_id_all(evlist))
508
		return evlist__first(evlist);
509

510 511
	return NULL;
}
512

513
struct evsel *perf_evlist__id2evsel_strict(struct evlist *evlist,
514 515 516 517 518 519 520 521 522
						u64 id)
{
	struct perf_sample_id *sid;

	if (!id)
		return NULL;

	sid = perf_evlist__id2sid(evlist, id);
	if (sid)
523
		return container_of(sid->evsel, struct evsel, core);
524 525 526 527

	return NULL;
}

528
static int perf_evlist__event2id(struct evlist *evlist,
529 530
				 union perf_event *event, u64 *id)
{
531
	const __u64 *array = event->sample.array;
532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548
	ssize_t n;

	n = (event->header.size - sizeof(event->header)) >> 3;

	if (event->header.type == PERF_RECORD_SAMPLE) {
		if (evlist->id_pos >= n)
			return -1;
		*id = array[evlist->id_pos];
	} else {
		if (evlist->is_pos > n)
			return -1;
		n -= evlist->is_pos;
		*id = array[n];
	}
	return 0;
}

549
struct evsel *perf_evlist__event2evsel(struct evlist *evlist,
J
Jiri Olsa 已提交
550
					    union perf_event *event)
551
{
552
	struct evsel *first = evlist__first(evlist);
553 554 555 556 557
	struct hlist_head *head;
	struct perf_sample_id *sid;
	int hash;
	u64 id;

558
	if (evlist->core.nr_entries == 1)
559 560
		return first;

561
	if (!first->core.attr.sample_id_all &&
562 563
	    event->header.type != PERF_RECORD_SAMPLE)
		return first;
564 565 566 567 568 569

	if (perf_evlist__event2id(evlist, event, &id))
		return NULL;

	/* Synthesized events have an id of zero */
	if (!id)
570
		return first;
571 572

	hash = hash_64(id, PERF_EVLIST__HLIST_BITS);
573
	head = &evlist->core.heads[hash];
574 575 576

	hlist_for_each_entry(sid, head, node) {
		if (sid->id == id)
577
			return container_of(sid->evsel, struct evsel, core);
578 579 580 581
	}
	return NULL;
}

582
static int perf_evlist__set_paused(struct evlist *evlist, bool value)
W
Wang Nan 已提交
583 584 585
{
	int i;

586
	if (!evlist->overwrite_mmap)
587 588
		return 0;

589
	for (i = 0; i < evlist->core.nr_mmaps; i++) {
590
		int fd = evlist->overwrite_mmap[i].core.fd;
W
Wang Nan 已提交
591 592 593 594 595 596 597 598 599 600 601
		int err;

		if (fd < 0)
			continue;
		err = ioctl(fd, PERF_EVENT_IOC_PAUSE_OUTPUT, value ? 1 : 0);
		if (err)
			return err;
	}
	return 0;
}

602
static int perf_evlist__pause(struct evlist *evlist)
W
Wang Nan 已提交
603 604 605 606
{
	return perf_evlist__set_paused(evlist, true);
}

607
static int perf_evlist__resume(struct evlist *evlist)
W
Wang Nan 已提交
608 609 610 611
{
	return perf_evlist__set_paused(evlist, false);
}

612
static void evlist__munmap_nofree(struct evlist *evlist)
613
{
614
	int i;
615

616
	if (evlist->mmap)
617
		for (i = 0; i < evlist->core.nr_mmaps; i++)
618
			perf_mmap__munmap(&evlist->mmap[i]);
619

620
	if (evlist->overwrite_mmap)
621
		for (i = 0; i < evlist->core.nr_mmaps; i++)
622
			perf_mmap__munmap(&evlist->overwrite_mmap[i]);
623
}
624

625
void evlist__munmap(struct evlist *evlist)
626
{
627
	evlist__munmap_nofree(evlist);
628
	zfree(&evlist->mmap);
629
	zfree(&evlist->overwrite_mmap);
630 631
}

632 633
static struct mmap *evlist__alloc_mmap(struct evlist *evlist,
				       bool overwrite)
634
{
W
Wang Nan 已提交
635
	int i;
636
	struct mmap *map;
W
Wang Nan 已提交
637

638
	evlist->core.nr_mmaps = perf_cpu_map__nr(evlist->core.cpus);
639
	if (perf_cpu_map__empty(evlist->core.cpus))
640 641
		evlist->core.nr_mmaps = perf_thread_map__nr(evlist->core.threads);
	map = zalloc(evlist->core.nr_mmaps * sizeof(struct mmap));
642 643
	if (!map)
		return NULL;
644

645
	for (i = 0; i < evlist->core.nr_mmaps; i++) {
646
		map[i].core.fd = -1;
647
		map[i].core.overwrite = overwrite;
648 649
		/*
		 * When the perf_mmap() call is made we grab one refcount, plus
650
		 * one extra to let perf_mmap__consume() get the last
651 652 653 654 655 656
		 * events after all real references (perf_mmap__get()) are
		 * dropped.
		 *
		 * Each PERF_EVENT_IOC_SET_OUTPUT points to this mmap and
		 * thus does perf_mmap__get() on it.
		 */
657
		refcount_set(&map[i].core.refcnt, 0);
658
	}
659
	return map;
660 661
}

662
static bool
663
perf_evlist__should_poll(struct evlist *evlist __maybe_unused,
664
			 struct evsel *evsel)
665
{
666
	if (evsel->core.attr.write_backward)
667 668 669 670
		return false;
	return true;
}

671
static int evlist__mmap_per_evsel(struct evlist *evlist, int idx,
672
				       struct mmap_params *mp, int cpu_idx,
673
				       int thread, int *_output, int *_output_overwrite)
674
{
675
	struct evsel *evsel;
676
	int revent;
677
	int evlist_cpu = cpu_map__cpu(evlist->core.cpus, cpu_idx);
678

679
	evlist__for_each_entry(evlist, evsel) {
680
		struct mmap *maps = evlist->mmap;
681
		int *output = _output;
682
		int fd;
683
		int cpu;
684

W
Wang Nan 已提交
685
		mp->prot = PROT_READ | PROT_WRITE;
686
		if (evsel->core.attr.write_backward) {
687 688
			output = _output_overwrite;
			maps = evlist->overwrite_mmap;
689 690

			if (!maps) {
691
				maps = evlist__alloc_mmap(evlist, true);
692 693
				if (!maps)
					return -1;
694
				evlist->overwrite_mmap = maps;
695 696
				if (evlist->bkw_mmap_state == BKW_MMAP_NOTREADY)
					perf_evlist__toggle_bkw_mmap(evlist, BKW_MMAP_RUNNING);
697
			}
W
Wang Nan 已提交
698
			mp->prot &= ~PROT_WRITE;
699
		}
700

701
		if (evsel->core.system_wide && thread)
702 703
			continue;

704
		cpu = perf_cpu_map__idx(evsel->core.cpus, evlist_cpu);
705 706 707
		if (cpu == -1)
			continue;

708
		fd = FD(evsel, cpu, thread);
709 710 711

		if (*output == -1) {
			*output = fd;
712

713
			if (perf_mmap__mmap(&maps[idx], mp, *output, evlist_cpu) < 0)
714 715 716 717
				return -1;
		} else {
			if (ioctl(fd, PERF_EVENT_IOC_SET_OUTPUT, *output) != 0)
				return -1;
718

719
			perf_mmap__get(&maps[idx]);
720 721
		}

722 723
		revent = perf_evlist__should_poll(evlist, evsel) ? POLLIN : 0;

724 725 726 727 728 729 730
		/*
		 * The system_wide flag causes a selected event to be opened
		 * always without a pid.  Consequently it will never get a
		 * POLLHUP, but it is used for tracking in combination with
		 * other events, so it should not need to be polled anyway.
		 * Therefore don't add it for polling.
		 */
731
		if (!evsel->core.system_wide &&
732 733
		    __perf_evlist__add_pollfd(evlist, fd, &maps[idx], revent) < 0) {
			perf_mmap__put(&maps[idx]);
734
			return -1;
735
		}
736

737
		if (evsel->core.attr.read_format & PERF_FORMAT_ID) {
738
			if (perf_evlist__id_add_fd(&evlist->core, &evsel->core, cpu, thread,
A
Adrian Hunter 已提交
739 740 741 742 743
						   fd) < 0)
				return -1;
			perf_evlist__set_sid_idx(evlist, evsel, idx, cpu,
						 thread);
		}
744 745 746 747 748
	}

	return 0;
}

749
static int evlist__mmap_per_cpu(struct evlist *evlist,
750
				     struct mmap_params *mp)
751
{
752
	int cpu, thread;
753
	int nr_cpus = perf_cpu_map__nr(evlist->core.cpus);
754
	int nr_threads = perf_thread_map__nr(evlist->core.threads);
755

A
Adrian Hunter 已提交
756
	pr_debug2("perf event ring buffer mmapped per cpu\n");
757
	for (cpu = 0; cpu < nr_cpus; cpu++) {
758
		int output = -1;
759
		int output_overwrite = -1;
760

761 762 763
		auxtrace_mmap_params__set_idx(&mp->auxtrace_mp, evlist, cpu,
					      true);

764
		for (thread = 0; thread < nr_threads; thread++) {
765
			if (evlist__mmap_per_evsel(evlist, cpu, mp, cpu,
766
							thread, &output, &output_overwrite))
767
				goto out_unmap;
768 769 770 771 772 773
		}
	}

	return 0;

out_unmap:
774
	evlist__munmap_nofree(evlist);
775 776 777
	return -1;
}

778
static int evlist__mmap_per_thread(struct evlist *evlist,
779
					struct mmap_params *mp)
780 781
{
	int thread;
782
	int nr_threads = perf_thread_map__nr(evlist->core.threads);
783

A
Adrian Hunter 已提交
784
	pr_debug2("perf event ring buffer mmapped per thread\n");
785
	for (thread = 0; thread < nr_threads; thread++) {
786
		int output = -1;
787
		int output_overwrite = -1;
788

789 790 791
		auxtrace_mmap_params__set_idx(&mp->auxtrace_mp, evlist, thread,
					      false);

792
		if (evlist__mmap_per_evsel(evlist, thread, mp, 0, thread,
793
						&output, &output_overwrite))
794
			goto out_unmap;
795 796 797 798 799
	}

	return 0;

out_unmap:
800
	evlist__munmap_nofree(evlist);
801 802 803
	return -1;
}

804
unsigned long perf_event_mlock_kb_in_pages(void)
805
{
806 807
	unsigned long pages;
	int max;
808

809 810 811 812 813 814 815 816 817 818
	if (sysctl__read_int("kernel/perf_event_mlock_kb", &max) < 0) {
		/*
		 * Pick a once upon a time good value, i.e. things look
		 * strange since we can't read a sysctl value, but lets not
		 * die yet...
		 */
		max = 512;
	} else {
		max -= (page_size / 1024);
	}
819

820 821 822 823 824 825 826
	pages = (max * 1024) / page_size;
	if (!is_power_of_2(pages))
		pages = rounddown_pow_of_two(pages);

	return pages;
}

827
size_t evlist__mmap_size(unsigned long pages)
828 829 830 831
{
	if (pages == UINT_MAX)
		pages = perf_event_mlock_kb_in_pages();
	else if (!is_power_of_2(pages))
832 833 834 835 836
		return 0;

	return (pages + 1) * page_size;
}

837 838
static long parse_pages_arg(const char *str, unsigned long min,
			    unsigned long max)
839
{
840
	unsigned long pages, val;
841 842 843 844 845 846 847
	static struct parse_tag tags[] = {
		{ .tag  = 'B', .mult = 1       },
		{ .tag  = 'K', .mult = 1 << 10 },
		{ .tag  = 'M', .mult = 1 << 20 },
		{ .tag  = 'G', .mult = 1 << 30 },
		{ .tag  = 0 },
	};
848

849
	if (str == NULL)
850
		return -EINVAL;
851

852
	val = parse_tag_value(str, tags);
853
	if (val != (unsigned long) -1) {
854 855 856 857 858 859
		/* we got file size value */
		pages = PERF_ALIGN(val, page_size) / page_size;
	} else {
		/* we got pages count value */
		char *eptr;
		pages = strtoul(str, &eptr, 10);
860 861
		if (*eptr != '\0')
			return -EINVAL;
862 863
	}

864
	if (pages == 0 && min == 0) {
865
		/* leave number of pages at 0 */
866
	} else if (!is_power_of_2(pages)) {
867 868
		char buf[100];

869
		/* round pages up to next power of 2 */
870
		pages = roundup_pow_of_two(pages);
871 872
		if (!pages)
			return -EINVAL;
873 874 875 876

		unit_number__scnprintf(buf, sizeof(buf), pages * page_size);
		pr_info("rounding mmap pages size to %s (%lu pages)\n",
			buf, pages);
877 878
	}

879 880 881 882 883 884
	if (pages > max)
		return -EINVAL;

	return pages;
}

885
int __perf_evlist__parse_mmap_pages(unsigned int *mmap_pages, const char *str)
886 887 888 889
{
	unsigned long max = UINT_MAX;
	long pages;

A
Adrian Hunter 已提交
890
	if (max > SIZE_MAX / page_size)
891 892 893 894 895
		max = SIZE_MAX / page_size;

	pages = parse_pages_arg(str, 1, max);
	if (pages < 0) {
		pr_err("Invalid argument for --mmap_pages/-m\n");
896 897 898 899 900 901 902
		return -1;
	}

	*mmap_pages = pages;
	return 0;
}

903 904 905 906 907 908
int perf_evlist__parse_mmap_pages(const struct option *opt, const char *str,
				  int unset __maybe_unused)
{
	return __perf_evlist__parse_mmap_pages(opt->value, str);
}

909
/**
910
 * evlist__mmap_ex - Create mmaps to receive events.
911 912 913
 * @evlist: list of events
 * @pages: map length in pages
 * @overwrite: overwrite older events?
914 915
 * @auxtrace_pages - auxtrace map length in pages
 * @auxtrace_overwrite - overwrite older auxtrace data?
916
 *
917
 * If @overwrite is %false the user needs to signal event consumption using
918
 * perf_mmap__write_tail().  Using evlist__mmap_read() does this
919
 * automatically.
920
 *
921 922 923
 * Similarly, if @auxtrace_overwrite is %false the user needs to signal data
 * consumption using auxtrace_mmap__write_tail().
 *
924
 * Return: %0 on success, negative error code otherwise.
925
 */
926
int evlist__mmap_ex(struct evlist *evlist, unsigned int pages,
927
			 unsigned int auxtrace_pages,
928 929
			 bool auxtrace_overwrite, int nr_cblocks, int affinity, int flush,
			 int comp_level)
930
{
931
	struct evsel *evsel;
932
	const struct perf_cpu_map *cpus = evlist->core.cpus;
933
	const struct perf_thread_map *threads = evlist->core.threads;
W
Wang Nan 已提交
934 935 936 937 938
	/*
	 * Delay setting mp.prot: set it before calling perf_mmap__mmap.
	 * Its value is decided by evsel's write_backward.
	 * So &mp should not be passed through const pointer.
	 */
939 940
	struct mmap_params mp = { .nr_cblocks = nr_cblocks, .affinity = affinity, .flush = flush,
				  .comp_level = comp_level };
941

942
	if (!evlist->mmap)
943
		evlist->mmap = evlist__alloc_mmap(evlist, false);
944
	if (!evlist->mmap)
945 946
		return -ENOMEM;

947
	if (evlist->core.pollfd.entries == NULL && perf_evlist__alloc_pollfd(evlist) < 0)
948 949
		return -ENOMEM;

950 951 952
	evlist->core.mmap_len = evlist__mmap_size(pages);
	pr_debug("mmap size %zuB\n", evlist->core.mmap_len);
	mp.mask = evlist->core.mmap_len - page_size - 1;
953

954
	auxtrace_mmap_params__init(&mp.auxtrace_mp, evlist->core.mmap_len,
955 956
				   auxtrace_pages, auxtrace_overwrite);

957
	evlist__for_each_entry(evlist, evsel) {
958
		if ((evsel->core.attr.read_format & PERF_FORMAT_ID) &&
959
		    evsel->core.sample_id == NULL &&
960
		    perf_evsel__alloc_id(&evsel->core, perf_cpu_map__nr(cpus), threads->nr) < 0)
961 962 963
			return -ENOMEM;
	}

964
	if (perf_cpu_map__empty(cpus))
965
		return evlist__mmap_per_thread(evlist, &mp);
966

967
	return evlist__mmap_per_cpu(evlist, &mp);
968
}
969

970
int evlist__mmap(struct evlist *evlist, unsigned int pages)
971
{
972
	return evlist__mmap_ex(evlist, pages, 0, false, 0, PERF_AFFINITY_SYS, 1, 0);
973 974
}

975
int perf_evlist__create_maps(struct evlist *evlist, struct target *target)
976
{
977
	bool all_threads = (target->per_thread && target->system_wide);
978
	struct perf_cpu_map *cpus;
979
	struct perf_thread_map *threads;
980

981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998
	/*
	 * If specify '-a' and '--per-thread' to perf record, perf record
	 * will override '--per-thread'. target->per_thread = false and
	 * target->system_wide = true.
	 *
	 * If specify '--per-thread' only to perf record,
	 * target->per_thread = true and target->system_wide = false.
	 *
	 * So target->per_thread && target->system_wide is false.
	 * For perf record, thread_map__new_str doesn't call
	 * thread_map__new_all_cpus. That will keep perf record's
	 * current behavior.
	 *
	 * For perf stat, it allows the case that target->per_thread and
	 * target->system_wide are all true. It means to collect system-wide
	 * per-thread data. thread_map__new_str will call
	 * thread_map__new_all_cpus to enumerate all threads.
	 */
999
	threads = thread_map__new_str(target->pid, target->tid, target->uid,
1000
				      all_threads);
1001

1002
	if (!threads)
1003 1004
		return -1;

1005
	if (target__uses_dummy_map(target))
1006
		cpus = perf_cpu_map__dummy_new();
1007
	else
1008
		cpus = perf_cpu_map__new(target->cpu_list);
1009

1010
	if (!cpus)
1011 1012
		goto out_delete_threads;

1013
	evlist->core.has_user_cpus = !!target->cpu_list;
1014

1015
	perf_evlist__set_maps(&evlist->core, cpus, threads);
1016 1017

	return 0;
1018 1019

out_delete_threads:
1020
	perf_thread_map__put(threads);
1021 1022 1023
	return -1;
}

1024
void __perf_evlist__set_sample_bit(struct evlist *evlist,
1025 1026
				   enum perf_event_sample_format bit)
{
1027
	struct evsel *evsel;
1028

1029
	evlist__for_each_entry(evlist, evsel)
1030 1031 1032
		__perf_evsel__set_sample_bit(evsel, bit);
}

1033
void __perf_evlist__reset_sample_bit(struct evlist *evlist,
1034 1035
				     enum perf_event_sample_format bit)
{
1036
	struct evsel *evsel;
1037

1038
	evlist__for_each_entry(evlist, evsel)
1039 1040 1041
		__perf_evsel__reset_sample_bit(evsel, bit);
}

1042
int perf_evlist__apply_filters(struct evlist *evlist, struct evsel **err_evsel)
1043
{
1044
	struct evsel *evsel;
1045
	int err = 0;
1046

1047
	evlist__for_each_entry(evlist, evsel) {
1048
		if (evsel->filter == NULL)
1049
			continue;
1050

1051 1052 1053 1054
		/*
		 * filters only work for tracepoint event, which doesn't have cpu limit.
		 * So evlist and evsel should always be same.
		 */
1055
		err = perf_evsel__apply_filter(&evsel->core, evsel->filter);
1056 1057
		if (err) {
			*err_evsel = evsel;
1058
			break;
1059
		}
1060 1061
	}

1062 1063 1064
	return err;
}

1065
int perf_evlist__set_tp_filter(struct evlist *evlist, const char *filter)
1066
{
1067
	struct evsel *evsel;
1068 1069
	int err = 0;

1070
	evlist__for_each_entry(evlist, evsel) {
1071
		if (evsel->core.attr.type != PERF_TYPE_TRACEPOINT)
1072 1073
			continue;

1074
		err = perf_evsel__set_filter(evsel, filter);
1075 1076 1077 1078 1079
		if (err)
			break;
	}

	return err;
1080
}
1081

1082
int perf_evlist__set_tp_filter_pids(struct evlist *evlist, size_t npids, pid_t *pids)
1083 1084
{
	char *filter;
1085 1086
	int ret = -1;
	size_t i;
1087

1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101
	for (i = 0; i < npids; ++i) {
		if (i == 0) {
			if (asprintf(&filter, "common_pid != %d", pids[i]) < 0)
				return -1;
		} else {
			char *tmp;

			if (asprintf(&tmp, "%s && common_pid != %d", filter, pids[i]) < 0)
				goto out_free;

			free(filter);
			filter = tmp;
		}
	}
1102

1103
	ret = perf_evlist__set_tp_filter(evlist, filter);
1104
out_free:
1105 1106 1107 1108
	free(filter);
	return ret;
}

1109
int perf_evlist__set_tp_filter_pid(struct evlist *evlist, pid_t pid)
1110
{
1111
	return perf_evlist__set_tp_filter_pids(evlist, 1, &pid);
1112 1113
}

1114
bool perf_evlist__valid_sample_type(struct evlist *evlist)
1115
{
1116
	struct evsel *pos;
1117

1118
	if (evlist->core.nr_entries == 1)
1119 1120 1121 1122 1123
		return true;

	if (evlist->id_pos < 0 || evlist->is_pos < 0)
		return false;

1124
	evlist__for_each_entry(evlist, pos) {
1125 1126
		if (pos->id_pos != evlist->id_pos ||
		    pos->is_pos != evlist->is_pos)
1127
			return false;
1128 1129
	}

1130
	return true;
1131 1132
}

1133
u64 __perf_evlist__combined_sample_type(struct evlist *evlist)
1134
{
1135
	struct evsel *evsel;
1136 1137 1138 1139

	if (evlist->combined_sample_type)
		return evlist->combined_sample_type;

1140
	evlist__for_each_entry(evlist, evsel)
1141
		evlist->combined_sample_type |= evsel->core.attr.sample_type;
1142 1143 1144 1145

	return evlist->combined_sample_type;
}

1146
u64 perf_evlist__combined_sample_type(struct evlist *evlist)
1147 1148 1149
{
	evlist->combined_sample_type = 0;
	return __perf_evlist__combined_sample_type(evlist);
1150 1151
}

1152
u64 perf_evlist__combined_branch_type(struct evlist *evlist)
1153
{
1154
	struct evsel *evsel;
1155 1156
	u64 branch_type = 0;

1157
	evlist__for_each_entry(evlist, evsel)
1158
		branch_type |= evsel->core.attr.branch_sample_type;
1159 1160 1161
	return branch_type;
}

1162
bool perf_evlist__valid_read_format(struct evlist *evlist)
1163
{
1164
	struct evsel *first = evlist__first(evlist), *pos = first;
1165 1166
	u64 read_format = first->core.attr.read_format;
	u64 sample_type = first->core.attr.sample_type;
1167

1168
	evlist__for_each_entry(evlist, pos) {
1169
		if (read_format != pos->core.attr.read_format)
1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181
			return false;
	}

	/* PERF_SAMPLE_READ imples PERF_FORMAT_ID. */
	if ((sample_type & PERF_SAMPLE_READ) &&
	    !(read_format & PERF_FORMAT_ID)) {
		return false;
	}

	return true;
}

1182
u16 perf_evlist__id_hdr_size(struct evlist *evlist)
1183
{
1184
	struct evsel *first = evlist__first(evlist);
1185 1186 1187 1188
	struct perf_sample *data;
	u64 sample_type;
	u16 size = 0;

1189
	if (!first->core.attr.sample_id_all)
1190 1191
		goto out;

1192
	sample_type = first->core.attr.sample_type;
1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207

	if (sample_type & PERF_SAMPLE_TID)
		size += sizeof(data->tid) * 2;

       if (sample_type & PERF_SAMPLE_TIME)
		size += sizeof(data->time);

	if (sample_type & PERF_SAMPLE_ID)
		size += sizeof(data->id);

	if (sample_type & PERF_SAMPLE_STREAM_ID)
		size += sizeof(data->stream_id);

	if (sample_type & PERF_SAMPLE_CPU)
		size += sizeof(data->cpu) * 2;
1208 1209 1210

	if (sample_type & PERF_SAMPLE_IDENTIFIER)
		size += sizeof(data->id);
1211 1212 1213 1214
out:
	return size;
}

1215
bool perf_evlist__valid_sample_id_all(struct evlist *evlist)
1216
{
1217
	struct evsel *first = evlist__first(evlist), *pos = first;
1218

1219
	evlist__for_each_entry_continue(evlist, pos) {
1220
		if (first->core.attr.sample_id_all != pos->core.attr.sample_id_all)
1221
			return false;
1222 1223
	}

1224 1225 1226
	return true;
}

1227
bool perf_evlist__sample_id_all(struct evlist *evlist)
1228
{
1229
	struct evsel *first = evlist__first(evlist);
1230
	return first->core.attr.sample_id_all;
1231
}
1232

1233
void perf_evlist__set_selected(struct evlist *evlist,
1234
			       struct evsel *evsel)
1235 1236 1237
{
	evlist->selected = evsel;
}
1238

1239
void evlist__close(struct evlist *evlist)
1240
{
1241
	struct evsel *evsel;
1242

1243
	evlist__for_each_entry_reverse(evlist, evsel)
1244
		evsel__close(evsel);
1245 1246
}

1247
static int perf_evlist__create_syswide_maps(struct evlist *evlist)
1248
{
1249
	struct perf_cpu_map *cpus;
1250
	struct perf_thread_map *threads;
1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261
	int err = -ENOMEM;

	/*
	 * Try reading /sys/devices/system/cpu/online to get
	 * an all cpus map.
	 *
	 * FIXME: -ENOMEM is the best we can do here, the cpu_map
	 * code needs an overhaul to properly forward the
	 * error, and we may not want to do that fallback to a
	 * default cpu identity map :-\
	 */
1262
	cpus = perf_cpu_map__new(NULL);
1263
	if (!cpus)
1264 1265
		goto out;

1266
	threads = perf_thread_map__new_dummy();
1267 1268
	if (!threads)
		goto out_put;
1269

1270
	perf_evlist__set_maps(&evlist->core, cpus, threads);
1271 1272
out:
	return err;
1273
out_put:
1274
	perf_cpu_map__put(cpus);
1275 1276 1277
	goto out;
}

1278
int evlist__open(struct evlist *evlist)
1279
{
1280
	struct evsel *evsel;
1281
	int err;
1282

1283 1284 1285 1286
	/*
	 * Default: one fd per CPU, all threads, aka systemwide
	 * as sys_perf_event_open(cpu = -1, thread = -1) is EINVAL
	 */
1287
	if (evlist->core.threads == NULL && evlist->core.cpus == NULL) {
1288 1289 1290 1291 1292
		err = perf_evlist__create_syswide_maps(evlist);
		if (err < 0)
			goto out_err;
	}

1293 1294
	perf_evlist__update_id_pos(evlist);

1295
	evlist__for_each_entry(evlist, evsel) {
1296
		err = evsel__open(evsel, evsel->core.cpus, evsel->core.threads);
1297 1298 1299 1300 1301 1302
		if (err < 0)
			goto out_err;
	}

	return 0;
out_err:
1303
	evlist__close(evlist);
1304
	errno = -err;
1305 1306
	return err;
}
1307

1308
int perf_evlist__prepare_workload(struct evlist *evlist, struct target *target,
1309
				  const char *argv[], bool pipe_output,
1310
				  void (*exec_error)(int signo, siginfo_t *info, void *ucontext))
1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331
{
	int child_ready_pipe[2], go_pipe[2];
	char bf;

	if (pipe(child_ready_pipe) < 0) {
		perror("failed to create 'ready' pipe");
		return -1;
	}

	if (pipe(go_pipe) < 0) {
		perror("failed to create 'go' pipe");
		goto out_close_ready_pipe;
	}

	evlist->workload.pid = fork();
	if (evlist->workload.pid < 0) {
		perror("failed to fork");
		goto out_close_pipes;
	}

	if (!evlist->workload.pid) {
1332 1333
		int ret;

1334
		if (pipe_output)
1335 1336
			dup2(2, 1);

1337 1338
		signal(SIGTERM, SIG_DFL);

1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350
		close(child_ready_pipe[0]);
		close(go_pipe[1]);
		fcntl(go_pipe[0], F_SETFD, FD_CLOEXEC);

		/*
		 * Tell the parent we're ready to go
		 */
		close(child_ready_pipe[1]);

		/*
		 * Wait until the parent tells us to go.
		 */
1351 1352 1353 1354 1355 1356
		ret = read(go_pipe[0], &bf, 1);
		/*
		 * The parent will ask for the execvp() to be performed by
		 * writing exactly one byte, in workload.cork_fd, usually via
		 * perf_evlist__start_workload().
		 *
1357
		 * For cancelling the workload without actually running it,
1358 1359 1360 1361 1362 1363 1364 1365 1366
		 * the parent will just close workload.cork_fd, without writing
		 * anything, i.e. read will return zero and we just exit()
		 * here.
		 */
		if (ret != 1) {
			if (ret == -1)
				perror("unable to read pipe");
			exit(ret);
		}
1367 1368 1369

		execvp(argv[0], (char **)argv);

1370
		if (exec_error) {
1371 1372 1373 1374 1375 1376 1377
			union sigval val;

			val.sival_int = errno;
			if (sigqueue(getppid(), SIGUSR1, val))
				perror(argv[0]);
		} else
			perror(argv[0]);
1378 1379 1380
		exit(-1);
	}

1381 1382 1383 1384 1385 1386 1387 1388
	if (exec_error) {
		struct sigaction act = {
			.sa_flags     = SA_SIGINFO,
			.sa_sigaction = exec_error,
		};
		sigaction(SIGUSR1, &act, NULL);
	}

1389
	if (target__none(target)) {
1390
		if (evlist->core.threads == NULL) {
1391 1392 1393 1394
			fprintf(stderr, "FATAL: evlist->threads need to be set at this point (%s:%d).\n",
				__func__, __LINE__);
			goto out_close_pipes;
		}
1395
		perf_thread_map__set_pid(evlist->core.threads, 0, evlist->workload.pid);
1396
	}
1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407

	close(child_ready_pipe[1]);
	close(go_pipe[0]);
	/*
	 * wait for child to settle
	 */
	if (read(child_ready_pipe[0], &bf, 1) == -1) {
		perror("unable to read pipe");
		goto out_close_pipes;
	}

1408
	fcntl(go_pipe[1], F_SETFD, FD_CLOEXEC);
1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421
	evlist->workload.cork_fd = go_pipe[1];
	close(child_ready_pipe[0]);
	return 0;

out_close_pipes:
	close(go_pipe[0]);
	close(go_pipe[1]);
out_close_ready_pipe:
	close(child_ready_pipe[0]);
	close(child_ready_pipe[1]);
	return -1;
}

1422
int perf_evlist__start_workload(struct evlist *evlist)
1423 1424
{
	if (evlist->workload.cork_fd > 0) {
1425
		char bf = 0;
1426
		int ret;
1427 1428 1429
		/*
		 * Remove the cork, let it rip!
		 */
1430 1431
		ret = write(evlist->workload.cork_fd, &bf, 1);
		if (ret < 0)
1432
			perror("unable to write to pipe");
1433 1434 1435

		close(evlist->workload.cork_fd);
		return ret;
1436 1437 1438 1439
	}

	return 0;
}
1440

1441
int perf_evlist__parse_sample(struct evlist *evlist, union perf_event *event,
1442
			      struct perf_sample *sample)
1443
{
1444
	struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1445 1446 1447

	if (!evsel)
		return -EFAULT;
1448
	return perf_evsel__parse_sample(evsel, event, sample);
1449
}
1450

1451
int perf_evlist__parse_sample_timestamp(struct evlist *evlist,
1452 1453 1454
					union perf_event *event,
					u64 *timestamp)
{
1455
	struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1456 1457 1458 1459 1460 1461

	if (!evsel)
		return -EFAULT;
	return perf_evsel__parse_sample_timestamp(evsel, event, timestamp);
}

1462
size_t perf_evlist__fprintf(struct evlist *evlist, FILE *fp)
1463
{
1464
	struct evsel *evsel;
1465 1466
	size_t printed = 0;

1467
	evlist__for_each_entry(evlist, evsel) {
1468 1469 1470 1471
		printed += fprintf(fp, "%s%s", evsel->idx ? ", " : "",
				   perf_evsel__name(evsel));
	}

1472
	return printed + fprintf(fp, "\n");
1473
}
1474

1475
int perf_evlist__strerror_open(struct evlist *evlist,
1476 1477 1478
			       int err, char *buf, size_t size)
{
	int printed, value;
1479
	char sbuf[STRERR_BUFSIZE], *emsg = str_error_r(err, sbuf, sizeof(sbuf));
1480 1481 1482 1483 1484 1485 1486 1487

	switch (err) {
	case EACCES:
	case EPERM:
		printed = scnprintf(buf, size,
				    "Error:\t%s.\n"
				    "Hint:\tCheck /proc/sys/kernel/perf_event_paranoid setting.", emsg);

1488
		value = perf_event_paranoid();
1489 1490 1491 1492 1493 1494 1495 1496

		printed += scnprintf(buf + printed, size - printed, "\nHint:\t");

		if (value >= 2) {
			printed += scnprintf(buf + printed, size - printed,
					     "For your workloads it needs to be <= 1\nHint:\t");
		}
		printed += scnprintf(buf + printed, size - printed,
1497
				     "For system wide tracing it needs to be set to -1.\n");
1498 1499

		printed += scnprintf(buf + printed, size - printed,
1500 1501
				    "Hint:\tTry: 'sudo sh -c \"echo -1 > /proc/sys/kernel/perf_event_paranoid\"'\n"
				    "Hint:\tThe current value is %d.", value);
1502
		break;
1503
	case EINVAL: {
1504
		struct evsel *first = evlist__first(evlist);
1505 1506 1507 1508 1509
		int max_freq;

		if (sysctl__read_int("kernel/perf_event_max_sample_rate", &max_freq) < 0)
			goto out_default;

1510
		if (first->core.attr.sample_freq < (u64)max_freq)
1511 1512 1513 1514 1515 1516
			goto out_default;

		printed = scnprintf(buf, size,
				    "Error:\t%s.\n"
				    "Hint:\tCheck /proc/sys/kernel/perf_event_max_sample_rate.\n"
				    "Hint:\tThe current value is %d and %" PRIu64 " is being requested.",
1517
				    emsg, max_freq, first->core.attr.sample_freq);
1518 1519
		break;
	}
1520
	default:
1521
out_default:
1522 1523 1524 1525 1526 1527
		scnprintf(buf, size, "%s", emsg);
		break;
	}

	return 0;
}
1528

1529
int perf_evlist__strerror_mmap(struct evlist *evlist, int err, char *buf, size_t size)
1530
{
1531
	char sbuf[STRERR_BUFSIZE], *emsg = str_error_r(err, sbuf, sizeof(sbuf));
1532
	int pages_attempted = evlist->core.mmap_len / 1024, pages_max_per_user, printed = 0;
1533 1534 1535

	switch (err) {
	case EPERM:
1536
		sysctl__read_int("kernel/perf_event_mlock_kb", &pages_max_per_user);
1537 1538
		printed += scnprintf(buf + printed, size - printed,
				     "Error:\t%s.\n"
1539
				     "Hint:\tCheck /proc/sys/kernel/perf_event_mlock_kb (%d kB) setting.\n"
1540
				     "Hint:\tTried using %zd kB.\n",
1541
				     emsg, pages_max_per_user, pages_attempted);
1542 1543 1544 1545 1546 1547 1548 1549 1550

		if (pages_attempted >= pages_max_per_user) {
			printed += scnprintf(buf + printed, size - printed,
					     "Hint:\tTry 'sudo sh -c \"echo %d > /proc/sys/kernel/perf_event_mlock_kb\"', or\n",
					     pages_max_per_user + pages_attempted);
		}

		printed += scnprintf(buf + printed, size - printed,
				     "Hint:\tTry using a smaller -m/--mmap-pages value.");
1551 1552 1553 1554 1555 1556 1557 1558 1559
		break;
	default:
		scnprintf(buf, size, "%s", emsg);
		break;
	}

	return 0;
}

1560
void perf_evlist__to_front(struct evlist *evlist,
1561
			   struct evsel *move_evsel)
1562
{
1563
	struct evsel *evsel, *n;
1564 1565
	LIST_HEAD(move);

1566
	if (move_evsel == evlist__first(evlist))
1567 1568
		return;

1569
	evlist__for_each_entry_safe(evlist, n, evsel) {
1570
		if (evsel->leader == move_evsel->leader)
1571
			list_move_tail(&evsel->core.node, &move);
1572 1573
	}

1574
	list_splice(&move, &evlist->core.entries);
1575
}
1576

1577
void perf_evlist__set_tracking_event(struct evlist *evlist,
1578
				     struct evsel *tracking_evsel)
1579
{
1580
	struct evsel *evsel;
1581 1582 1583 1584

	if (tracking_evsel->tracking)
		return;

1585
	evlist__for_each_entry(evlist, evsel) {
1586 1587 1588 1589 1590 1591
		if (evsel != tracking_evsel)
			evsel->tracking = false;
	}

	tracking_evsel->tracking = true;
}
1592

1593
struct evsel *
1594
perf_evlist__find_evsel_by_str(struct evlist *evlist,
1595 1596
			       const char *str)
{
1597
	struct evsel *evsel;
1598

1599
	evlist__for_each_entry(evlist, evsel) {
1600 1601 1602 1603 1604 1605 1606 1607
		if (!evsel->name)
			continue;
		if (strcmp(str, evsel->name) == 0)
			return evsel;
	}

	return NULL;
}
1608

1609
void perf_evlist__toggle_bkw_mmap(struct evlist *evlist,
1610 1611 1612 1613 1614 1615 1616 1617 1618
				  enum bkw_mmap_state state)
{
	enum bkw_mmap_state old_state = evlist->bkw_mmap_state;
	enum action {
		NONE,
		PAUSE,
		RESUME,
	} action = NONE;

1619
	if (!evlist->overwrite_mmap)
1620 1621 1622 1623 1624
		return;

	switch (old_state) {
	case BKW_MMAP_NOTREADY: {
		if (state != BKW_MMAP_RUNNING)
1625
			goto state_err;
1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665
		break;
	}
	case BKW_MMAP_RUNNING: {
		if (state != BKW_MMAP_DATA_PENDING)
			goto state_err;
		action = PAUSE;
		break;
	}
	case BKW_MMAP_DATA_PENDING: {
		if (state != BKW_MMAP_EMPTY)
			goto state_err;
		break;
	}
	case BKW_MMAP_EMPTY: {
		if (state != BKW_MMAP_RUNNING)
			goto state_err;
		action = RESUME;
		break;
	}
	default:
		WARN_ONCE(1, "Shouldn't get there\n");
	}

	evlist->bkw_mmap_state = state;

	switch (action) {
	case PAUSE:
		perf_evlist__pause(evlist);
		break;
	case RESUME:
		perf_evlist__resume(evlist);
		break;
	case NONE:
	default:
		break;
	}

state_err:
	return;
}
1666

1667
bool perf_evlist__exclude_kernel(struct evlist *evlist)
1668
{
1669
	struct evsel *evsel;
1670 1671

	evlist__for_each_entry(evlist, evsel) {
1672
		if (!evsel->core.attr.exclude_kernel)
1673 1674 1675 1676 1677
			return false;
	}

	return true;
}
1678 1679 1680 1681 1682 1683

/*
 * Events in data file are not collect in groups, but we still want
 * the group display. Set the artificial group and set the leader's
 * forced_leader flag to notify the display code.
 */
1684
void perf_evlist__force_leader(struct evlist *evlist)
1685 1686
{
	if (!evlist->nr_groups) {
1687
		struct evsel *leader = evlist__first(evlist);
1688 1689 1690 1691 1692

		perf_evlist__set_leader(evlist);
		leader->forced_leader = true;
	}
}
1693

1694
struct evsel *perf_evlist__reset_weak_group(struct evlist *evsel_list,
1695
						 struct evsel *evsel)
1696
{
1697
	struct evsel *c2, *leader;
1698 1699 1700 1701
	bool is_open = true;

	leader = evsel->leader;
	pr_debug("Weak group for %s/%d failed\n",
1702
			leader->name, leader->core.nr_members);
1703 1704 1705 1706 1707 1708 1709 1710 1711 1712

	/*
	 * for_each_group_member doesn't work here because it doesn't
	 * include the first entry.
	 */
	evlist__for_each_entry(evsel_list, c2) {
		if (c2 == evsel)
			is_open = false;
		if (c2->leader == leader) {
			if (is_open)
1713
				evsel__close(c2);
1714
			c2->leader = c2;
1715
			c2->core.nr_members = 0;
1716 1717 1718 1719
		}
	}
	return leader;
}
1720

1721
int perf_evlist__add_sb_event(struct evlist **evlist,
1722 1723 1724 1725
			      struct perf_event_attr *attr,
			      perf_evsel__sb_cb_t cb,
			      void *data)
{
1726
	struct evsel *evsel;
1727 1728 1729
	bool new_evlist = (*evlist) == NULL;

	if (*evlist == NULL)
1730
		*evlist = evlist__new();
1731 1732 1733 1734 1735 1736 1737 1738
	if (*evlist == NULL)
		return -1;

	if (!attr->sample_id_all) {
		pr_warning("enabling sample_id_all for all side band events\n");
		attr->sample_id_all = 1;
	}

1739
	evsel = perf_evsel__new_idx(attr, (*evlist)->core.nr_entries);
1740 1741 1742 1743 1744
	if (!evsel)
		goto out_err;

	evsel->side_band.cb = cb;
	evsel->side_band.data = data;
1745
	evlist__add(*evlist, evsel);
1746 1747 1748 1749
	return 0;

out_err:
	if (new_evlist) {
1750
		evlist__delete(*evlist);
1751 1752 1753 1754 1755 1756 1757
		*evlist = NULL;
	}
	return -1;
}

static void *perf_evlist__poll_thread(void *arg)
{
1758
	struct evlist *evlist = arg;
1759
	bool draining = false;
1760
	int i, done = 0;
1761 1762 1763 1764 1765 1766 1767 1768
	/*
	 * In order to read symbols from other namespaces perf to needs to call
	 * setns(2).  This isn't permitted if the struct_fs has multiple users.
	 * unshare(2) the fs so that we may continue to setns into namespaces
	 * that we're observing when, for instance, reading the build-ids at
	 * the end of a 'perf record' session.
	 */
	unshare(CLONE_FS);
1769 1770 1771

	while (!done) {
		bool got_data = false;
1772

1773
		if (evlist->thread.done)
1774 1775 1776 1777 1778
			draining = true;

		if (!draining)
			perf_evlist__poll(evlist, 1000);

1779
		for (i = 0; i < evlist->core.nr_mmaps; i++) {
1780
			struct mmap *map = &evlist->mmap[i];
1781 1782 1783 1784 1785
			union perf_event *event;

			if (perf_mmap__read_init(map))
				continue;
			while ((event = perf_mmap__read_event(map)) != NULL) {
1786
				struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1787 1788 1789 1790 1791 1792 1793

				if (evsel && evsel->side_band.cb)
					evsel->side_band.cb(event, evsel->side_band.data);
				else
					pr_warning("cannot locate proper evsel for the side band event\n");

				perf_mmap__consume(map);
1794
				got_data = true;
1795 1796 1797
			}
			perf_mmap__read_done(map);
		}
1798 1799 1800

		if (draining && !got_data)
			break;
1801 1802 1803 1804
	}
	return NULL;
}

1805
int perf_evlist__start_sb_thread(struct evlist *evlist,
1806 1807
				 struct target *target)
{
1808
	struct evsel *counter;
1809 1810 1811 1812 1813 1814 1815 1816

	if (!evlist)
		return 0;

	if (perf_evlist__create_maps(evlist, target))
		goto out_delete_evlist;

	evlist__for_each_entry(evlist, counter) {
1817
		if (evsel__open(counter, evlist->core.cpus,
1818
				     evlist->core.threads) < 0)
1819 1820 1821
			goto out_delete_evlist;
	}

1822
	if (evlist__mmap(evlist, UINT_MAX))
1823 1824 1825
		goto out_delete_evlist;

	evlist__for_each_entry(evlist, counter) {
1826
		if (evsel__enable(counter))
1827 1828 1829 1830 1831 1832 1833 1834 1835 1836
			goto out_delete_evlist;
	}

	evlist->thread.done = 0;
	if (pthread_create(&evlist->thread.th, NULL, perf_evlist__poll_thread, evlist))
		goto out_delete_evlist;

	return 0;

out_delete_evlist:
1837
	evlist__delete(evlist);
1838 1839 1840 1841
	evlist = NULL;
	return -1;
}

1842
void perf_evlist__stop_sb_thread(struct evlist *evlist)
1843 1844 1845 1846 1847
{
	if (!evlist)
		return;
	evlist->thread.done = 1;
	pthread_join(evlist->thread.th, NULL);
1848
	evlist__delete(evlist);
1849
}