evlist.c 40.5 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 <internal/lib.h> // page_size
21
#include "affinity.h"
22
#include "../perf.h"
23
#include "asm/bug.h"
24
#include "bpf-event.h"
25
#include "util/string2.h"
26
#include <signal.h>
27
#include <unistd.h>
28
#include <sched.h>
29
#include <stdlib.h>
30

31
#include "parse-events.h"
32
#include <subcmd/parse-options.h>
33

34
#include <fcntl.h>
35
#include <sys/ioctl.h>
36 37
#include <sys/mman.h>

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

49 50
#include <internal/xyarray.h>

51 52 53 54
#ifdef LACKS_SIGQUEUE_PROTOTYPE
int sigqueue(pid_t pid, int sig, const union sigval value);
#endif

55
#define FD(e, x, y) (*(int *)xyarray__entry(e->core.fd, x, y))
56
#define SID(e, x, y) xyarray__entry(e->core.sample_id, x, y)
57

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

67
struct evlist *evlist__new(void)
68
{
69
	struct evlist *evlist = zalloc(sizeof(*evlist));
70

71
	if (evlist != NULL)
72
		evlist__init(evlist, NULL, NULL);
73 74 75 76

	return evlist;
}

77
struct evlist *perf_evlist__new_default(void)
78
{
79
	struct evlist *evlist = evlist__new();
80 81

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

	return evlist;
}

89
struct evlist *perf_evlist__new_dummy(void)
90
{
91
	struct evlist *evlist = evlist__new();
92 93

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

	return evlist;
}

101 102 103 104 105 106 107
/**
 * 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.
 */
108
void perf_evlist__set_id_pos(struct evlist *evlist)
109
{
110
	struct evsel *first = evlist__first(evlist);
111 112 113 114 115

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

116
static void perf_evlist__update_id_pos(struct evlist *evlist)
117
{
118
	struct evsel *evsel;
119

120
	evlist__for_each_entry(evlist, evsel)
121 122 123 124 125
		perf_evsel__calc_id_pos(evsel);

	perf_evlist__set_id_pos(evlist);
}

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

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

136
	evlist->core.nr_entries = 0;
137 138
}

139
void evlist__exit(struct evlist *evlist)
140
{
141
	zfree(&evlist->mmap);
142
	zfree(&evlist->overwrite_mmap);
J
Jiri Olsa 已提交
143
	perf_evlist__exit(&evlist->core);
144 145
}

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

151
	evlist__munmap(evlist);
152
	evlist__close(evlist);
153
	evlist__purge(evlist);
154
	evlist__exit(evlist);
155 156 157
	free(evlist);
}

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

164 165 166
	perf_evlist__add(&evlist->core, &entry->core);

	if (evlist->core.nr_entries == 1)
167
		perf_evlist__set_id_pos(evlist);
168 169
}

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

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

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

187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210
int __evlist__set_tracepoints_handlers(struct evlist *evlist,
				       const struct evsel_str_handler *assocs, size_t nr_assocs)
{
	struct evsel *evsel;
	size_t i;
	int err;

	for (i = 0; i < nr_assocs; i++) {
		// Adding a handler for an event not in this evlist, just ignore it.
		evsel = perf_evlist__find_tracepoint_by_name(evlist, assocs[i].name);
		if (evsel == NULL)
			continue;

		err = -EEXIST;
		if (evsel->handler != NULL)
			goto out;
		evsel->handler = assocs[i].handler;
	}

	err = 0;
out:
	return err;
}

211 212
void __perf_evlist__set_leader(struct list_head *list)
{
213
	struct evsel *evsel, *leader;
214

215 216
	leader = list_entry(list->next, struct evsel, core.node);
	evsel = list_entry(list->prev, struct evsel, core.node);
217

218
	leader->core.nr_members = evsel->idx - leader->idx + 1;
219

220
	__evlist__for_each_entry(list, evsel) {
221
		evsel->leader = leader;
222 223 224
	}
}

225
void perf_evlist__set_leader(struct evlist *evlist)
226
{
227 228
	if (evlist->core.nr_entries) {
		evlist->nr_groups = evlist->core.nr_entries > 1 ? 1 : 0;
229
		__perf_evlist__set_leader(&evlist->core.entries);
230
	}
231 232
}

233
int __perf_evlist__add_default(struct evlist *evlist, bool precise)
234
{
235
	struct evsel *evsel = perf_evsel__new_cycles(precise);
236

237
	if (evsel == NULL)
238
		return -ENOMEM;
239

240
	evlist__add(evlist, evsel);
241 242
	return 0;
}
243

244
int perf_evlist__add_dummy(struct evlist *evlist)
245 246 247 248 249 250
{
	struct perf_event_attr attr = {
		.type	= PERF_TYPE_SOFTWARE,
		.config = PERF_COUNT_SW_DUMMY,
		.size	= sizeof(attr), /* to capture ABI version */
	};
251
	struct evsel *evsel = perf_evsel__new_idx(&attr, evlist->core.nr_entries);
252 253 254 255

	if (evsel == NULL)
		return -ENOMEM;

256
	evlist__add(evlist, evsel);
257 258 259
	return 0;
}

260
static int evlist__add_attrs(struct evlist *evlist,
261
				  struct perf_event_attr *attrs, size_t nr_attrs)
262
{
263
	struct evsel *evsel, *n;
264 265 266 267
	LIST_HEAD(head);
	size_t i;

	for (i = 0; i < nr_attrs; i++) {
268
		evsel = perf_evsel__new_idx(attrs + i, evlist->core.nr_entries + i);
269 270
		if (evsel == NULL)
			goto out_delete_partial_list;
271
		list_add_tail(&evsel->core.node, &head);
272 273
	}

274
	perf_evlist__splice_list_tail(evlist, &head);
275 276 277 278

	return 0;

out_delete_partial_list:
279
	__evlist__for_each_entry_safe(&head, n, evsel)
280
		evsel__delete(evsel);
281 282 283
	return -1;
}

284
int __perf_evlist__add_default_attrs(struct evlist *evlist,
285 286 287 288 289 290 291
				     struct perf_event_attr *attrs, size_t nr_attrs)
{
	size_t i;

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

292
	return evlist__add_attrs(evlist, attrs, nr_attrs);
293 294
}

295
struct evsel *
296
perf_evlist__find_tracepoint_by_id(struct evlist *evlist, int id)
297
{
298
	struct evsel *evsel;
299

300
	evlist__for_each_entry(evlist, evsel) {
301 302
		if (evsel->core.attr.type   == PERF_TYPE_TRACEPOINT &&
		    (int)evsel->core.attr.config == id)
303 304 305 306 307 308
			return evsel;
	}

	return NULL;
}

309
struct evsel *
310
perf_evlist__find_tracepoint_by_name(struct evlist *evlist,
311 312
				     const char *name)
{
313
	struct evsel *evsel;
314

315
	evlist__for_each_entry(evlist, evsel) {
316
		if ((evsel->core.attr.type == PERF_TYPE_TRACEPOINT) &&
317 318 319 320 321 322 323
		    (strcmp(evsel->name, name) == 0))
			return evsel;
	}

	return NULL;
}

324
int perf_evlist__add_newtp(struct evlist *evlist,
325 326
			   const char *sys, const char *name, void *handler)
{
327
	struct evsel *evsel = perf_evsel__newtp(sys, name);
328

329
	if (IS_ERR(evsel))
330 331
		return -1;

332
	evsel->handler = handler;
333
	evlist__add(evlist, evsel);
334 335 336
	return 0;
}

337
static int perf_evlist__nr_threads(struct evlist *evlist,
338
				   struct evsel *evsel)
339
{
340
	if (evsel->core.system_wide)
341 342
		return 1;
	else
343
		return perf_thread_map__nr(evlist->core.threads);
344 345
}

346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377
void evlist__cpu_iter_start(struct evlist *evlist)
{
	struct evsel *pos;

	/*
	 * Reset the per evsel cpu_iter. This is needed because
	 * each evsel's cpumap may have a different index space,
	 * and some operations need the index to modify
	 * the FD xyarray (e.g. open, close)
	 */
	evlist__for_each_entry(evlist, pos)
		pos->cpu_iter = 0;
}

bool evsel__cpu_iter_skip_no_inc(struct evsel *ev, int cpu)
{
	if (ev->cpu_iter >= ev->core.cpus->nr)
		return true;
	if (cpu >= 0 && ev->core.cpus->map[ev->cpu_iter] != cpu)
		return true;
	return false;
}

bool evsel__cpu_iter_skip(struct evsel *ev, int cpu)
{
	if (!evsel__cpu_iter_skip_no_inc(ev, cpu)) {
		ev->cpu_iter++;
		return false;
	}
	return true;
}

378
void evlist__disable(struct evlist *evlist)
379
{
380
	struct evsel *pos;
381 382
	struct affinity affinity;
	int cpu, i;
383

384 385 386 387 388 389 390 391 392 393 394 395 396 397 398
	if (affinity__setup(&affinity) < 0)
		return;

	evlist__for_each_cpu(evlist, i, cpu) {
		affinity__set(&affinity, cpu);

		evlist__for_each_entry(evlist, pos) {
			if (evsel__cpu_iter_skip(pos, cpu))
				continue;
			if (pos->disabled || !perf_evsel__is_group_leader(pos) || !pos->core.fd)
				continue;
			evsel__disable_cpu(pos, pos->cpu_iter - 1);
		}
	}
	affinity__cleanup(&affinity);
399
	evlist__for_each_entry(evlist, pos) {
400
		if (!perf_evsel__is_group_leader(pos) || !pos->core.fd)
401
			continue;
402
		pos->disabled = true;
403
	}
404 405

	evlist->enabled = false;
406 407
}

408
void evlist__enable(struct evlist *evlist)
409
{
410
	struct evsel *pos;
411 412
	struct affinity affinity;
	int cpu, i;
413

414 415 416 417 418 419 420 421 422 423 424 425 426 427 428
	if (affinity__setup(&affinity) < 0)
		return;

	evlist__for_each_cpu(evlist, i, cpu) {
		affinity__set(&affinity, cpu);

		evlist__for_each_entry(evlist, pos) {
			if (evsel__cpu_iter_skip(pos, cpu))
				continue;
			if (!perf_evsel__is_group_leader(pos) || !pos->core.fd)
				continue;
			evsel__enable_cpu(pos, pos->cpu_iter - 1);
		}
	}
	affinity__cleanup(&affinity);
429
	evlist__for_each_entry(evlist, pos) {
430
		if (!perf_evsel__is_group_leader(pos) || !pos->core.fd)
431
			continue;
432
		pos->disabled = false;
433
	}
434 435 436 437

	evlist->enabled = true;
}

438
void perf_evlist__toggle_enable(struct evlist *evlist)
439
{
440
	(evlist->enabled ? evlist__disable : evlist__enable)(evlist);
441 442
}

443
static int perf_evlist__enable_event_cpu(struct evlist *evlist,
444
					 struct evsel *evsel, int cpu)
445
{
446
	int thread;
447 448
	int nr_threads = perf_evlist__nr_threads(evlist, evsel);

449
	if (!evsel->core.fd)
450 451 452
		return -EINVAL;

	for (thread = 0; thread < nr_threads; thread++) {
453
		int err = ioctl(FD(evsel, cpu, thread), PERF_EVENT_IOC_ENABLE, 0);
454 455 456 457 458 459
		if (err)
			return err;
	}
	return 0;
}

460
static int perf_evlist__enable_event_thread(struct evlist *evlist,
461
					    struct evsel *evsel,
462 463
					    int thread)
{
464
	int cpu;
465
	int nr_cpus = perf_cpu_map__nr(evlist->core.cpus);
466

467
	if (!evsel->core.fd)
468 469 470
		return -EINVAL;

	for (cpu = 0; cpu < nr_cpus; cpu++) {
471
		int err = ioctl(FD(evsel, cpu, thread), PERF_EVENT_IOC_ENABLE, 0);
472 473 474 475 476 477
		if (err)
			return err;
	}
	return 0;
}

478
int perf_evlist__enable_event_idx(struct evlist *evlist,
479
				  struct evsel *evsel, int idx)
480
{
481
	bool per_cpu_mmaps = !perf_cpu_map__empty(evlist->core.cpus);
482 483 484 485 486 487 488

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

489
int evlist__add_pollfd(struct evlist *evlist, int fd)
490
{
491
	return perf_evlist__add_pollfd(&evlist->core, fd, NULL, POLLIN);
492 493
}

494
int evlist__filter_pollfd(struct evlist *evlist, short revents_and_mask)
495
{
496
	return perf_evlist__filter_pollfd(&evlist->core, revents_and_mask);
497 498
}

499
int evlist__poll(struct evlist *evlist, int timeout)
500
{
501
	return perf_evlist__poll(&evlist->core, timeout);
502 503
}

504
struct perf_sample_id *perf_evlist__id2sid(struct evlist *evlist, u64 id)
505 506 507 508 509 510
{
	struct hlist_head *head;
	struct perf_sample_id *sid;
	int hash;

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

513
	hlist_for_each_entry(sid, head, node)
514
		if (sid->id == id)
515 516 517 518 519
			return sid;

	return NULL;
}

520
struct evsel *perf_evlist__id2evsel(struct evlist *evlist, u64 id)
521 522 523
{
	struct perf_sample_id *sid;

524
	if (evlist->core.nr_entries == 1 || !id)
525
		return evlist__first(evlist);
526 527 528

	sid = perf_evlist__id2sid(evlist, id);
	if (sid)
529
		return container_of(sid->evsel, struct evsel, core);
530 531

	if (!perf_evlist__sample_id_all(evlist))
532
		return evlist__first(evlist);
533

534 535
	return NULL;
}
536

537
struct evsel *perf_evlist__id2evsel_strict(struct evlist *evlist,
538 539 540 541 542 543 544 545 546
						u64 id)
{
	struct perf_sample_id *sid;

	if (!id)
		return NULL;

	sid = perf_evlist__id2sid(evlist, id);
	if (sid)
547
		return container_of(sid->evsel, struct evsel, core);
548 549 550 551

	return NULL;
}

552
static int perf_evlist__event2id(struct evlist *evlist,
553 554
				 union perf_event *event, u64 *id)
{
555
	const __u64 *array = event->sample.array;
556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572
	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;
}

573
struct evsel *perf_evlist__event2evsel(struct evlist *evlist,
J
Jiri Olsa 已提交
574
					    union perf_event *event)
575
{
576
	struct evsel *first = evlist__first(evlist);
577 578 579 580 581
	struct hlist_head *head;
	struct perf_sample_id *sid;
	int hash;
	u64 id;

582
	if (evlist->core.nr_entries == 1)
583 584
		return first;

585
	if (!first->core.attr.sample_id_all &&
586 587
	    event->header.type != PERF_RECORD_SAMPLE)
		return first;
588 589 590 591 592 593

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

	/* Synthesized events have an id of zero */
	if (!id)
594
		return first;
595 596

	hash = hash_64(id, PERF_EVLIST__HLIST_BITS);
597
	head = &evlist->core.heads[hash];
598 599 600

	hlist_for_each_entry(sid, head, node) {
		if (sid->id == id)
601
			return container_of(sid->evsel, struct evsel, core);
602 603 604 605
	}
	return NULL;
}

606
static int perf_evlist__set_paused(struct evlist *evlist, bool value)
W
Wang Nan 已提交
607 608 609
{
	int i;

610
	if (!evlist->overwrite_mmap)
611 612
		return 0;

613
	for (i = 0; i < evlist->core.nr_mmaps; i++) {
614
		int fd = evlist->overwrite_mmap[i].core.fd;
W
Wang Nan 已提交
615 616 617 618 619 620 621 622 623 624 625
		int err;

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

626
static int perf_evlist__pause(struct evlist *evlist)
W
Wang Nan 已提交
627 628 629 630
{
	return perf_evlist__set_paused(evlist, true);
}

631
static int perf_evlist__resume(struct evlist *evlist)
W
Wang Nan 已提交
632 633 634 635
{
	return perf_evlist__set_paused(evlist, false);
}

636
static void evlist__munmap_nofree(struct evlist *evlist)
637
{
638
	int i;
639

640
	if (evlist->mmap)
641
		for (i = 0; i < evlist->core.nr_mmaps; i++)
642
			perf_mmap__munmap(&evlist->mmap[i].core);
643

644
	if (evlist->overwrite_mmap)
645
		for (i = 0; i < evlist->core.nr_mmaps; i++)
646
			perf_mmap__munmap(&evlist->overwrite_mmap[i].core);
647
}
648

649
void evlist__munmap(struct evlist *evlist)
650
{
651
	evlist__munmap_nofree(evlist);
652
	zfree(&evlist->mmap);
653
	zfree(&evlist->overwrite_mmap);
654 655
}

656 657 658 659 660 661 662
static void perf_mmap__unmap_cb(struct perf_mmap *map)
{
	struct mmap *m = container_of(map, struct mmap, core);

	mmap__munmap(m);
}

663 664
static struct mmap *evlist__alloc_mmap(struct evlist *evlist,
				       bool overwrite)
665
{
W
Wang Nan 已提交
666
	int i;
667
	struct mmap *map;
W
Wang Nan 已提交
668

669
	map = zalloc(evlist->core.nr_mmaps * sizeof(struct mmap));
670 671
	if (!map)
		return NULL;
672

673
	for (i = 0; i < evlist->core.nr_mmaps; i++) {
674 675
		struct perf_mmap *prev = i ? &map[i - 1].core : NULL;

676 677
		/*
		 * When the perf_mmap() call is made we grab one refcount, plus
678
		 * one extra to let perf_mmap__consume() get the last
679 680 681 682 683 684
		 * 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.
		 */
685
		perf_mmap__init(&map[i].core, prev, overwrite, perf_mmap__unmap_cb);
686
	}
687

688
	return map;
689 690
}

691 692 693 694 695 696 697 698 699 700 701
static void
perf_evlist__mmap_cb_idx(struct perf_evlist *_evlist,
			 struct perf_mmap_param *_mp,
			 int idx, bool per_cpu)
{
	struct evlist *evlist = container_of(_evlist, struct evlist, core);
	struct mmap_params *mp = container_of(_mp, struct mmap_params, core);

	auxtrace_mmap_params__set_idx(&mp->auxtrace_mp, evlist, idx, per_cpu);
}

702 703 704 705
static struct perf_mmap*
perf_evlist__mmap_cb_get(struct perf_evlist *_evlist, bool overwrite, int idx)
{
	struct evlist *evlist = container_of(_evlist, struct evlist, core);
706
	struct mmap *maps;
707

708
	maps = overwrite ? evlist->overwrite_mmap : evlist->mmap;
709

710 711 712 713
	if (!maps) {
		maps = evlist__alloc_mmap(evlist, overwrite);
		if (!maps)
			return NULL;
714

715
		if (overwrite) {
716 717 718
			evlist->overwrite_mmap = maps;
			if (evlist->bkw_mmap_state == BKW_MMAP_NOTREADY)
				perf_evlist__toggle_bkw_mmap(evlist, BKW_MMAP_RUNNING);
719 720
		} else {
			evlist->mmap = maps;
721 722 723 724 725 726
		}
	}

	return &maps[idx].core;
}

727 728 729 730 731 732 733 734 735 736
static int
perf_evlist__mmap_cb_mmap(struct perf_mmap *_map, struct perf_mmap_param *_mp,
			  int output, int cpu)
{
	struct mmap *map = container_of(_map, struct mmap, core);
	struct mmap_params *mp = container_of(_mp, struct mmap_params, core);

	return mmap__mmap(map, mp, output, cpu);
}

737
unsigned long perf_event_mlock_kb_in_pages(void)
738
{
739 740
	unsigned long pages;
	int max;
741

742 743 744 745 746 747 748 749 750 751
	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);
	}
752

753 754 755 756 757 758 759
	pages = (max * 1024) / page_size;
	if (!is_power_of_2(pages))
		pages = rounddown_pow_of_two(pages);

	return pages;
}

760
size_t evlist__mmap_size(unsigned long pages)
761 762 763 764
{
	if (pages == UINT_MAX)
		pages = perf_event_mlock_kb_in_pages();
	else if (!is_power_of_2(pages))
765 766 767 768 769
		return 0;

	return (pages + 1) * page_size;
}

770 771
static long parse_pages_arg(const char *str, unsigned long min,
			    unsigned long max)
772
{
773
	unsigned long pages, val;
774 775 776 777 778 779 780
	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 },
	};
781

782
	if (str == NULL)
783
		return -EINVAL;
784

785
	val = parse_tag_value(str, tags);
786
	if (val != (unsigned long) -1) {
787 788 789 790 791 792
		/* 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);
793 794
		if (*eptr != '\0')
			return -EINVAL;
795 796
	}

797
	if (pages == 0 && min == 0) {
798
		/* leave number of pages at 0 */
799
	} else if (!is_power_of_2(pages)) {
800 801
		char buf[100];

802
		/* round pages up to next power of 2 */
803
		pages = roundup_pow_of_two(pages);
804 805
		if (!pages)
			return -EINVAL;
806 807 808 809

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

812 813 814 815 816 817
	if (pages > max)
		return -EINVAL;

	return pages;
}

818
int __perf_evlist__parse_mmap_pages(unsigned int *mmap_pages, const char *str)
819 820 821 822
{
	unsigned long max = UINT_MAX;
	long pages;

A
Adrian Hunter 已提交
823
	if (max > SIZE_MAX / page_size)
824 825 826 827 828
		max = SIZE_MAX / page_size;

	pages = parse_pages_arg(str, 1, max);
	if (pages < 0) {
		pr_err("Invalid argument for --mmap_pages/-m\n");
829 830 831 832 833 834 835
		return -1;
	}

	*mmap_pages = pages;
	return 0;
}

836 837 838 839 840 841
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);
}

842
/**
843
 * evlist__mmap_ex - Create mmaps to receive events.
844 845 846
 * @evlist: list of events
 * @pages: map length in pages
 * @overwrite: overwrite older events?
847 848
 * @auxtrace_pages - auxtrace map length in pages
 * @auxtrace_overwrite - overwrite older auxtrace data?
849
 *
850
 * If @overwrite is %false the user needs to signal event consumption using
851
 * perf_mmap__write_tail().  Using evlist__mmap_read() does this
852
 * automatically.
853
 *
854 855 856
 * Similarly, if @auxtrace_overwrite is %false the user needs to signal data
 * consumption using auxtrace_mmap__write_tail().
 *
857
 * Return: %0 on success, negative error code otherwise.
858
 */
859
int evlist__mmap_ex(struct evlist *evlist, unsigned int pages,
860
			 unsigned int auxtrace_pages,
861 862
			 bool auxtrace_overwrite, int nr_cblocks, int affinity, int flush,
			 int comp_level)
863
{
W
Wang Nan 已提交
864 865 866 867 868
	/*
	 * 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.
	 */
J
Jiri Olsa 已提交
869 870 871 872 873 874
	struct mmap_params mp = {
		.nr_cblocks	= nr_cblocks,
		.affinity	= affinity,
		.flush		= flush,
		.comp_level	= comp_level
	};
875
	struct perf_evlist_mmap_ops ops = {
876 877 878
		.idx  = perf_evlist__mmap_cb_idx,
		.get  = perf_evlist__mmap_cb_get,
		.mmap = perf_evlist__mmap_cb_mmap,
879
	};
880

881 882
	evlist->core.mmap_len = evlist__mmap_size(pages);
	pr_debug("mmap size %zuB\n", evlist->core.mmap_len);
883

884
	auxtrace_mmap_params__init(&mp.auxtrace_mp, evlist->core.mmap_len,
885 886
				   auxtrace_pages, auxtrace_overwrite);

887
	return perf_evlist__mmap_ops(&evlist->core, &ops, &mp.core);
888
}
889

890
int evlist__mmap(struct evlist *evlist, unsigned int pages)
891
{
892
	return evlist__mmap_ex(evlist, pages, 0, false, 0, PERF_AFFINITY_SYS, 1, 0);
893 894
}

895
int perf_evlist__create_maps(struct evlist *evlist, struct target *target)
896
{
897
	bool all_threads = (target->per_thread && target->system_wide);
898
	struct perf_cpu_map *cpus;
899
	struct perf_thread_map *threads;
900

901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918
	/*
	 * 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.
	 */
919
	threads = thread_map__new_str(target->pid, target->tid, target->uid,
920
				      all_threads);
921

922
	if (!threads)
923 924
		return -1;

925
	if (target__uses_dummy_map(target))
926
		cpus = perf_cpu_map__dummy_new();
927
	else
928
		cpus = perf_cpu_map__new(target->cpu_list);
929

930
	if (!cpus)
931 932
		goto out_delete_threads;

933
	evlist->core.has_user_cpus = !!target->cpu_list;
934

935
	perf_evlist__set_maps(&evlist->core, cpus, threads);
936 937

	return 0;
938 939

out_delete_threads:
940
	perf_thread_map__put(threads);
941 942 943
	return -1;
}

944
void __perf_evlist__set_sample_bit(struct evlist *evlist,
945 946
				   enum perf_event_sample_format bit)
{
947
	struct evsel *evsel;
948

949
	evlist__for_each_entry(evlist, evsel)
950 951 952
		__perf_evsel__set_sample_bit(evsel, bit);
}

953
void __perf_evlist__reset_sample_bit(struct evlist *evlist,
954 955
				     enum perf_event_sample_format bit)
{
956
	struct evsel *evsel;
957

958
	evlist__for_each_entry(evlist, evsel)
959 960 961
		__perf_evsel__reset_sample_bit(evsel, bit);
}

962
int perf_evlist__apply_filters(struct evlist *evlist, struct evsel **err_evsel)
963
{
964
	struct evsel *evsel;
965
	int err = 0;
966

967
	evlist__for_each_entry(evlist, evsel) {
968
		if (evsel->filter == NULL)
969
			continue;
970

971 972 973 974
		/*
		 * filters only work for tracepoint event, which doesn't have cpu limit.
		 * So evlist and evsel should always be same.
		 */
975
		err = perf_evsel__apply_filter(&evsel->core, evsel->filter);
976 977
		if (err) {
			*err_evsel = evsel;
978
			break;
979
		}
980 981
	}

982 983 984
	return err;
}

985
int perf_evlist__set_tp_filter(struct evlist *evlist, const char *filter)
986
{
987
	struct evsel *evsel;
988 989
	int err = 0;

990 991 992
	if (filter == NULL)
		return -1;

993
	evlist__for_each_entry(evlist, evsel) {
994
		if (evsel->core.attr.type != PERF_TYPE_TRACEPOINT)
995 996
			continue;

997
		err = perf_evsel__set_filter(evsel, filter);
998 999 1000 1001 1002
		if (err)
			break;
	}

	return err;
1003
}
1004

1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024
int perf_evlist__append_tp_filter(struct evlist *evlist, const char *filter)
{
	struct evsel *evsel;
	int err = 0;

	if (filter == NULL)
		return -1;

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

		err = perf_evsel__append_tp_filter(evsel, filter);
		if (err)
			break;
	}

	return err;
}

1025
char *asprintf__tp_filter_pids(size_t npids, pid_t *pids)
1026 1027
{
	char *filter;
1028
	size_t i;
1029

1030 1031 1032
	for (i = 0; i < npids; ++i) {
		if (i == 0) {
			if (asprintf(&filter, "common_pid != %d", pids[i]) < 0)
1033
				return NULL;
1034 1035 1036 1037 1038 1039 1040 1041 1042 1043
		} else {
			char *tmp;

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

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

1045
	return filter;
1046
out_free:
1047 1048 1049 1050 1051 1052 1053 1054 1055
	free(filter);
	return NULL;
}

int perf_evlist__set_tp_filter_pids(struct evlist *evlist, size_t npids, pid_t *pids)
{
	char *filter = asprintf__tp_filter_pids(npids, pids);
	int ret = perf_evlist__set_tp_filter(evlist, filter);

1056 1057 1058 1059
	free(filter);
	return ret;
}

1060
int perf_evlist__set_tp_filter_pid(struct evlist *evlist, pid_t pid)
1061
{
1062
	return perf_evlist__set_tp_filter_pids(evlist, 1, &pid);
1063 1064
}

1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078
int perf_evlist__append_tp_filter_pids(struct evlist *evlist, size_t npids, pid_t *pids)
{
	char *filter = asprintf__tp_filter_pids(npids, pids);
	int ret = perf_evlist__append_tp_filter(evlist, filter);

	free(filter);
	return ret;
}

int perf_evlist__append_tp_filter_pid(struct evlist *evlist, pid_t pid)
{
	return perf_evlist__append_tp_filter_pids(evlist, 1, &pid);
}

1079
bool perf_evlist__valid_sample_type(struct evlist *evlist)
1080
{
1081
	struct evsel *pos;
1082

1083
	if (evlist->core.nr_entries == 1)
1084 1085 1086 1087 1088
		return true;

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

1089
	evlist__for_each_entry(evlist, pos) {
1090 1091
		if (pos->id_pos != evlist->id_pos ||
		    pos->is_pos != evlist->is_pos)
1092
			return false;
1093 1094
	}

1095
	return true;
1096 1097
}

1098
u64 __perf_evlist__combined_sample_type(struct evlist *evlist)
1099
{
1100
	struct evsel *evsel;
1101 1102 1103 1104

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

1105
	evlist__for_each_entry(evlist, evsel)
1106
		evlist->combined_sample_type |= evsel->core.attr.sample_type;
1107 1108 1109 1110

	return evlist->combined_sample_type;
}

1111
u64 perf_evlist__combined_sample_type(struct evlist *evlist)
1112 1113 1114
{
	evlist->combined_sample_type = 0;
	return __perf_evlist__combined_sample_type(evlist);
1115 1116
}

1117
u64 perf_evlist__combined_branch_type(struct evlist *evlist)
1118
{
1119
	struct evsel *evsel;
1120 1121
	u64 branch_type = 0;

1122
	evlist__for_each_entry(evlist, evsel)
1123
		branch_type |= evsel->core.attr.branch_sample_type;
1124 1125 1126
	return branch_type;
}

1127
bool perf_evlist__valid_read_format(struct evlist *evlist)
1128
{
1129
	struct evsel *first = evlist__first(evlist), *pos = first;
1130 1131
	u64 read_format = first->core.attr.read_format;
	u64 sample_type = first->core.attr.sample_type;
1132

1133
	evlist__for_each_entry(evlist, pos) {
1134
		if (read_format != pos->core.attr.read_format)
1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146
			return false;
	}

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

	return true;
}

1147
u16 perf_evlist__id_hdr_size(struct evlist *evlist)
1148
{
1149
	struct evsel *first = evlist__first(evlist);
1150 1151 1152 1153
	struct perf_sample *data;
	u64 sample_type;
	u16 size = 0;

1154
	if (!first->core.attr.sample_id_all)
1155 1156
		goto out;

1157
	sample_type = first->core.attr.sample_type;
1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172

	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;
1173 1174 1175

	if (sample_type & PERF_SAMPLE_IDENTIFIER)
		size += sizeof(data->id);
1176 1177 1178 1179
out:
	return size;
}

1180
bool perf_evlist__valid_sample_id_all(struct evlist *evlist)
1181
{
1182
	struct evsel *first = evlist__first(evlist), *pos = first;
1183

1184
	evlist__for_each_entry_continue(evlist, pos) {
1185
		if (first->core.attr.sample_id_all != pos->core.attr.sample_id_all)
1186
			return false;
1187 1188
	}

1189 1190 1191
	return true;
}

1192
bool perf_evlist__sample_id_all(struct evlist *evlist)
1193
{
1194
	struct evsel *first = evlist__first(evlist);
1195
	return first->core.attr.sample_id_all;
1196
}
1197

1198
void perf_evlist__set_selected(struct evlist *evlist,
1199
			       struct evsel *evsel)
1200 1201 1202
{
	evlist->selected = evsel;
}
1203

1204
void evlist__close(struct evlist *evlist)
1205
{
1206
	struct evsel *evsel;
1207 1208
	struct affinity affinity;
	int cpu, i;
1209

1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235
	/*
	 * With perf record core.cpus is usually NULL.
	 * Use the old method to handle this for now.
	 */
	if (!evlist->core.cpus) {
		evlist__for_each_entry_reverse(evlist, evsel)
			evsel__close(evsel);
		return;
	}

	if (affinity__setup(&affinity) < 0)
		return;
	evlist__for_each_cpu(evlist, i, cpu) {
		affinity__set(&affinity, cpu);

		evlist__for_each_entry_reverse(evlist, evsel) {
			if (evsel__cpu_iter_skip(evsel, cpu))
			    continue;
			perf_evsel__close_cpu(&evsel->core, evsel->cpu_iter - 1);
		}
	}
	affinity__cleanup(&affinity);
	evlist__for_each_entry_reverse(evlist, evsel) {
		perf_evsel__free_fd(&evsel->core);
		perf_evsel__free_id(&evsel->core);
	}
1236 1237
}

1238
static int perf_evlist__create_syswide_maps(struct evlist *evlist)
1239
{
1240
	struct perf_cpu_map *cpus;
1241
	struct perf_thread_map *threads;
1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252
	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 :-\
	 */
1253
	cpus = perf_cpu_map__new(NULL);
1254
	if (!cpus)
1255 1256
		goto out;

1257
	threads = perf_thread_map__new_dummy();
1258 1259
	if (!threads)
		goto out_put;
1260

1261
	perf_evlist__set_maps(&evlist->core, cpus, threads);
1262 1263
out:
	return err;
1264
out_put:
1265
	perf_cpu_map__put(cpus);
1266 1267 1268
	goto out;
}

1269
int evlist__open(struct evlist *evlist)
1270
{
1271
	struct evsel *evsel;
1272
	int err;
1273

1274 1275 1276 1277
	/*
	 * Default: one fd per CPU, all threads, aka systemwide
	 * as sys_perf_event_open(cpu = -1, thread = -1) is EINVAL
	 */
1278
	if (evlist->core.threads == NULL && evlist->core.cpus == NULL) {
1279 1280 1281 1282 1283
		err = perf_evlist__create_syswide_maps(evlist);
		if (err < 0)
			goto out_err;
	}

1284 1285
	perf_evlist__update_id_pos(evlist);

1286
	evlist__for_each_entry(evlist, evsel) {
1287
		err = evsel__open(evsel, evsel->core.cpus, evsel->core.threads);
1288 1289 1290 1291 1292 1293
		if (err < 0)
			goto out_err;
	}

	return 0;
out_err:
1294
	evlist__close(evlist);
1295
	errno = -err;
1296 1297
	return err;
}
1298

1299
int perf_evlist__prepare_workload(struct evlist *evlist, struct target *target,
1300
				  const char *argv[], bool pipe_output,
1301
				  void (*exec_error)(int signo, siginfo_t *info, void *ucontext))
1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322
{
	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) {
1323 1324
		int ret;

1325
		if (pipe_output)
1326 1327
			dup2(2, 1);

1328 1329
		signal(SIGTERM, SIG_DFL);

1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341
		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.
		 */
1342 1343 1344 1345 1346 1347
		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().
		 *
1348
		 * For cancelling the workload without actually running it,
1349 1350 1351 1352 1353 1354 1355 1356 1357
		 * 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);
		}
1358 1359 1360

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

1361
		if (exec_error) {
1362 1363 1364 1365 1366 1367 1368
			union sigval val;

			val.sival_int = errno;
			if (sigqueue(getppid(), SIGUSR1, val))
				perror(argv[0]);
		} else
			perror(argv[0]);
1369 1370 1371
		exit(-1);
	}

1372 1373 1374 1375 1376 1377 1378 1379
	if (exec_error) {
		struct sigaction act = {
			.sa_flags     = SA_SIGINFO,
			.sa_sigaction = exec_error,
		};
		sigaction(SIGUSR1, &act, NULL);
	}

1380
	if (target__none(target)) {
1381
		if (evlist->core.threads == NULL) {
1382 1383 1384 1385
			fprintf(stderr, "FATAL: evlist->threads need to be set at this point (%s:%d).\n",
				__func__, __LINE__);
			goto out_close_pipes;
		}
1386
		perf_thread_map__set_pid(evlist->core.threads, 0, evlist->workload.pid);
1387
	}
1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398

	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;
	}

1399
	fcntl(go_pipe[1], F_SETFD, FD_CLOEXEC);
1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412
	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;
}

1413
int perf_evlist__start_workload(struct evlist *evlist)
1414 1415
{
	if (evlist->workload.cork_fd > 0) {
1416
		char bf = 0;
1417
		int ret;
1418 1419 1420
		/*
		 * Remove the cork, let it rip!
		 */
1421 1422
		ret = write(evlist->workload.cork_fd, &bf, 1);
		if (ret < 0)
1423
			perror("unable to write to pipe");
1424 1425 1426

		close(evlist->workload.cork_fd);
		return ret;
1427 1428 1429 1430
	}

	return 0;
}
1431

1432
int perf_evlist__parse_sample(struct evlist *evlist, union perf_event *event,
1433
			      struct perf_sample *sample)
1434
{
1435
	struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1436 1437 1438

	if (!evsel)
		return -EFAULT;
1439
	return perf_evsel__parse_sample(evsel, event, sample);
1440
}
1441

1442
int perf_evlist__parse_sample_timestamp(struct evlist *evlist,
1443 1444 1445
					union perf_event *event,
					u64 *timestamp)
{
1446
	struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1447 1448 1449 1450 1451 1452

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

1453
int perf_evlist__strerror_open(struct evlist *evlist,
1454 1455 1456
			       int err, char *buf, size_t size)
{
	int printed, value;
1457
	char sbuf[STRERR_BUFSIZE], *emsg = str_error_r(err, sbuf, sizeof(sbuf));
1458 1459 1460 1461 1462 1463 1464 1465

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

1466
		value = perf_event_paranoid();
1467 1468 1469 1470 1471 1472 1473 1474

		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,
1475
				     "For system wide tracing it needs to be set to -1.\n");
1476 1477

		printed += scnprintf(buf + printed, size - printed,
1478 1479
				    "Hint:\tTry: 'sudo sh -c \"echo -1 > /proc/sys/kernel/perf_event_paranoid\"'\n"
				    "Hint:\tThe current value is %d.", value);
1480
		break;
1481
	case EINVAL: {
1482
		struct evsel *first = evlist__first(evlist);
1483 1484 1485 1486 1487
		int max_freq;

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

1488
		if (first->core.attr.sample_freq < (u64)max_freq)
1489 1490 1491 1492 1493 1494
			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.",
1495
				    emsg, max_freq, first->core.attr.sample_freq);
1496 1497
		break;
	}
1498
	default:
1499
out_default:
1500 1501 1502 1503 1504 1505
		scnprintf(buf, size, "%s", emsg);
		break;
	}

	return 0;
}
1506

1507
int perf_evlist__strerror_mmap(struct evlist *evlist, int err, char *buf, size_t size)
1508
{
1509
	char sbuf[STRERR_BUFSIZE], *emsg = str_error_r(err, sbuf, sizeof(sbuf));
1510
	int pages_attempted = evlist->core.mmap_len / 1024, pages_max_per_user, printed = 0;
1511 1512 1513

	switch (err) {
	case EPERM:
1514
		sysctl__read_int("kernel/perf_event_mlock_kb", &pages_max_per_user);
1515 1516
		printed += scnprintf(buf + printed, size - printed,
				     "Error:\t%s.\n"
1517
				     "Hint:\tCheck /proc/sys/kernel/perf_event_mlock_kb (%d kB) setting.\n"
1518
				     "Hint:\tTried using %zd kB.\n",
1519
				     emsg, pages_max_per_user, pages_attempted);
1520 1521 1522 1523 1524 1525 1526 1527 1528

		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.");
1529 1530 1531 1532 1533 1534 1535 1536 1537
		break;
	default:
		scnprintf(buf, size, "%s", emsg);
		break;
	}

	return 0;
}

1538
void perf_evlist__to_front(struct evlist *evlist,
1539
			   struct evsel *move_evsel)
1540
{
1541
	struct evsel *evsel, *n;
1542 1543
	LIST_HEAD(move);

1544
	if (move_evsel == evlist__first(evlist))
1545 1546
		return;

1547
	evlist__for_each_entry_safe(evlist, n, evsel) {
1548
		if (evsel->leader == move_evsel->leader)
1549
			list_move_tail(&evsel->core.node, &move);
1550 1551
	}

1552
	list_splice(&move, &evlist->core.entries);
1553
}
1554

1555
void perf_evlist__set_tracking_event(struct evlist *evlist,
1556
				     struct evsel *tracking_evsel)
1557
{
1558
	struct evsel *evsel;
1559 1560 1561 1562

	if (tracking_evsel->tracking)
		return;

1563
	evlist__for_each_entry(evlist, evsel) {
1564 1565 1566 1567 1568 1569
		if (evsel != tracking_evsel)
			evsel->tracking = false;
	}

	tracking_evsel->tracking = true;
}
1570

1571
struct evsel *
1572
perf_evlist__find_evsel_by_str(struct evlist *evlist,
1573 1574
			       const char *str)
{
1575
	struct evsel *evsel;
1576

1577
	evlist__for_each_entry(evlist, evsel) {
1578 1579 1580 1581 1582 1583 1584 1585
		if (!evsel->name)
			continue;
		if (strcmp(str, evsel->name) == 0)
			return evsel;
	}

	return NULL;
}
1586

1587
void perf_evlist__toggle_bkw_mmap(struct evlist *evlist,
1588 1589 1590 1591 1592 1593 1594 1595 1596
				  enum bkw_mmap_state state)
{
	enum bkw_mmap_state old_state = evlist->bkw_mmap_state;
	enum action {
		NONE,
		PAUSE,
		RESUME,
	} action = NONE;

1597
	if (!evlist->overwrite_mmap)
1598 1599 1600 1601 1602
		return;

	switch (old_state) {
	case BKW_MMAP_NOTREADY: {
		if (state != BKW_MMAP_RUNNING)
1603
			goto state_err;
1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643
		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;
}
1644

1645
bool perf_evlist__exclude_kernel(struct evlist *evlist)
1646
{
1647
	struct evsel *evsel;
1648 1649

	evlist__for_each_entry(evlist, evsel) {
1650
		if (!evsel->core.attr.exclude_kernel)
1651 1652 1653 1654 1655
			return false;
	}

	return true;
}
1656 1657 1658 1659 1660 1661

/*
 * 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.
 */
1662
void perf_evlist__force_leader(struct evlist *evlist)
1663 1664
{
	if (!evlist->nr_groups) {
1665
		struct evsel *leader = evlist__first(evlist);
1666 1667 1668 1669 1670

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

1672
struct evsel *perf_evlist__reset_weak_group(struct evlist *evsel_list,
1673 1674
						 struct evsel *evsel,
						bool close)
1675
{
1676
	struct evsel *c2, *leader;
1677 1678 1679 1680
	bool is_open = true;

	leader = evsel->leader;
	pr_debug("Weak group for %s/%d failed\n",
1681
			leader->name, leader->core.nr_members);
1682 1683 1684 1685 1686 1687 1688 1689 1690

	/*
	 * 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) {
1691
			if (is_open && close)
1692
				perf_evsel__close(&c2->core);
1693
			c2->leader = c2;
1694
			c2->core.nr_members = 0;
1695 1696 1697 1698 1699
			/*
			 * Set this for all former members of the group
			 * to indicate they get reopened.
			 */
			c2->reset_group = true;
1700 1701 1702 1703
		}
	}
	return leader;
}
1704

1705
int perf_evlist__add_sb_event(struct evlist **evlist,
1706 1707 1708 1709
			      struct perf_event_attr *attr,
			      perf_evsel__sb_cb_t cb,
			      void *data)
{
1710
	struct evsel *evsel;
1711 1712 1713
	bool new_evlist = (*evlist) == NULL;

	if (*evlist == NULL)
1714
		*evlist = evlist__new();
1715 1716 1717 1718 1719 1720 1721 1722
	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;
	}

1723
	evsel = perf_evsel__new_idx(attr, (*evlist)->core.nr_entries);
1724 1725 1726 1727 1728
	if (!evsel)
		goto out_err;

	evsel->side_band.cb = cb;
	evsel->side_band.data = data;
1729
	evlist__add(*evlist, evsel);
1730 1731 1732 1733
	return 0;

out_err:
	if (new_evlist) {
1734
		evlist__delete(*evlist);
1735 1736 1737 1738 1739 1740 1741
		*evlist = NULL;
	}
	return -1;
}

static void *perf_evlist__poll_thread(void *arg)
{
1742
	struct evlist *evlist = arg;
1743
	bool draining = false;
1744
	int i, done = 0;
1745 1746 1747 1748 1749 1750 1751 1752
	/*
	 * 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);
1753 1754 1755

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

1757
		if (evlist->thread.done)
1758 1759 1760
			draining = true;

		if (!draining)
1761
			evlist__poll(evlist, 1000);
1762

1763
		for (i = 0; i < evlist->core.nr_mmaps; i++) {
1764
			struct mmap *map = &evlist->mmap[i];
1765 1766
			union perf_event *event;

1767
			if (perf_mmap__read_init(&map->core))
1768
				continue;
1769
			while ((event = perf_mmap__read_event(&map->core)) != NULL) {
1770
				struct evsel *evsel = perf_evlist__event2evsel(evlist, event);
1771 1772 1773 1774 1775 1776

				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");

1777
				perf_mmap__consume(&map->core);
1778
				got_data = true;
1779
			}
1780
			perf_mmap__read_done(&map->core);
1781
		}
1782 1783 1784

		if (draining && !got_data)
			break;
1785 1786 1787 1788
	}
	return NULL;
}

1789
int perf_evlist__start_sb_thread(struct evlist *evlist,
1790 1791
				 struct target *target)
{
1792
	struct evsel *counter;
1793 1794 1795 1796 1797 1798 1799 1800

	if (!evlist)
		return 0;

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

	evlist__for_each_entry(evlist, counter) {
1801
		if (evsel__open(counter, evlist->core.cpus,
1802
				     evlist->core.threads) < 0)
1803 1804 1805
			goto out_delete_evlist;
	}

1806
	if (evlist__mmap(evlist, UINT_MAX))
1807 1808 1809
		goto out_delete_evlist;

	evlist__for_each_entry(evlist, counter) {
1810
		if (evsel__enable(counter))
1811 1812 1813 1814 1815 1816 1817 1818 1819 1820
			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:
1821
	evlist__delete(evlist);
1822 1823 1824 1825
	evlist = NULL;
	return -1;
}

1826
void perf_evlist__stop_sb_thread(struct evlist *evlist)
1827 1828 1829 1830 1831
{
	if (!evlist)
		return;
	evlist->thread.done = 1;
	pthread_join(evlist->thread.th, NULL);
1832
	evlist__delete(evlist);
1833
}