1 #include <linux/hw_breakpoint.h> 2 #include <linux/err.h> 3 #include "util.h" 4 #include "../perf.h" 5 #include "evlist.h" 6 #include "evsel.h" 7 #include <subcmd/parse-options.h> 8 #include "parse-events.h" 9 #include <subcmd/exec-cmd.h> 10 #include "string.h" 11 #include "symbol.h" 12 #include "cache.h" 13 #include "header.h" 14 #include "bpf-loader.h" 15 #include "debug.h" 16 #include <api/fs/tracing_path.h> 17 #include "parse-events-bison.h" 18 #define YY_EXTRA_TYPE int 19 #include "parse-events-flex.h" 20 #include "pmu.h" 21 #include "thread_map.h" 22 #include "cpumap.h" 23 #include "probe-file.h" 24 #include "asm/bug.h" 25 26 #define MAX_NAME_LEN 100 27 28 #ifdef PARSER_DEBUG 29 extern int parse_events_debug; 30 #endif 31 int parse_events_parse(void *data, void *scanner); 32 static int get_config_terms(struct list_head *head_config, 33 struct list_head *head_terms __maybe_unused); 34 35 static struct perf_pmu_event_symbol *perf_pmu_events_list; 36 /* 37 * The variable indicates the number of supported pmu event symbols. 38 * 0 means not initialized and ready to init 39 * -1 means failed to init, don't try anymore 40 * >0 is the number of supported pmu event symbols 41 */ 42 static int perf_pmu_events_list_num; 43 44 struct event_symbol event_symbols_hw[PERF_COUNT_HW_MAX] = { 45 [PERF_COUNT_HW_CPU_CYCLES] = { 46 .symbol = "cpu-cycles", 47 .alias = "cycles", 48 }, 49 [PERF_COUNT_HW_INSTRUCTIONS] = { 50 .symbol = "instructions", 51 .alias = "", 52 }, 53 [PERF_COUNT_HW_CACHE_REFERENCES] = { 54 .symbol = "cache-references", 55 .alias = "", 56 }, 57 [PERF_COUNT_HW_CACHE_MISSES] = { 58 .symbol = "cache-misses", 59 .alias = "", 60 }, 61 [PERF_COUNT_HW_BRANCH_INSTRUCTIONS] = { 62 .symbol = "branch-instructions", 63 .alias = "branches", 64 }, 65 [PERF_COUNT_HW_BRANCH_MISSES] = { 66 .symbol = "branch-misses", 67 .alias = "", 68 }, 69 [PERF_COUNT_HW_BUS_CYCLES] = { 70 .symbol = "bus-cycles", 71 .alias = "", 72 }, 73 [PERF_COUNT_HW_STALLED_CYCLES_FRONTEND] = { 74 .symbol = "stalled-cycles-frontend", 75 .alias = "idle-cycles-frontend", 76 }, 77 [PERF_COUNT_HW_STALLED_CYCLES_BACKEND] = { 78 .symbol = "stalled-cycles-backend", 79 .alias = "idle-cycles-backend", 80 }, 81 [PERF_COUNT_HW_REF_CPU_CYCLES] = { 82 .symbol = "ref-cycles", 83 .alias = "", 84 }, 85 }; 86 87 struct event_symbol event_symbols_sw[PERF_COUNT_SW_MAX] = { 88 [PERF_COUNT_SW_CPU_CLOCK] = { 89 .symbol = "cpu-clock", 90 .alias = "", 91 }, 92 [PERF_COUNT_SW_TASK_CLOCK] = { 93 .symbol = "task-clock", 94 .alias = "", 95 }, 96 [PERF_COUNT_SW_PAGE_FAULTS] = { 97 .symbol = "page-faults", 98 .alias = "faults", 99 }, 100 [PERF_COUNT_SW_CONTEXT_SWITCHES] = { 101 .symbol = "context-switches", 102 .alias = "cs", 103 }, 104 [PERF_COUNT_SW_CPU_MIGRATIONS] = { 105 .symbol = "cpu-migrations", 106 .alias = "migrations", 107 }, 108 [PERF_COUNT_SW_PAGE_FAULTS_MIN] = { 109 .symbol = "minor-faults", 110 .alias = "", 111 }, 112 [PERF_COUNT_SW_PAGE_FAULTS_MAJ] = { 113 .symbol = "major-faults", 114 .alias = "", 115 }, 116 [PERF_COUNT_SW_ALIGNMENT_FAULTS] = { 117 .symbol = "alignment-faults", 118 .alias = "", 119 }, 120 [PERF_COUNT_SW_EMULATION_FAULTS] = { 121 .symbol = "emulation-faults", 122 .alias = "", 123 }, 124 [PERF_COUNT_SW_DUMMY] = { 125 .symbol = "dummy", 126 .alias = "", 127 }, 128 [PERF_COUNT_SW_BPF_OUTPUT] = { 129 .symbol = "bpf-output", 130 .alias = "", 131 }, 132 }; 133 134 #define __PERF_EVENT_FIELD(config, name) \ 135 ((config & PERF_EVENT_##name##_MASK) >> PERF_EVENT_##name##_SHIFT) 136 137 #define PERF_EVENT_RAW(config) __PERF_EVENT_FIELD(config, RAW) 138 #define PERF_EVENT_CONFIG(config) __PERF_EVENT_FIELD(config, CONFIG) 139 #define PERF_EVENT_TYPE(config) __PERF_EVENT_FIELD(config, TYPE) 140 #define PERF_EVENT_ID(config) __PERF_EVENT_FIELD(config, EVENT) 141 142 #define for_each_subsystem(sys_dir, sys_dirent) \ 143 while ((sys_dirent = readdir(sys_dir)) != NULL) \ 144 if (sys_dirent->d_type == DT_DIR && \ 145 (strcmp(sys_dirent->d_name, ".")) && \ 146 (strcmp(sys_dirent->d_name, ".."))) 147 148 static int tp_event_has_id(struct dirent *sys_dir, struct dirent *evt_dir) 149 { 150 char evt_path[MAXPATHLEN]; 151 int fd; 152 153 snprintf(evt_path, MAXPATHLEN, "%s/%s/%s/id", tracing_events_path, 154 sys_dir->d_name, evt_dir->d_name); 155 fd = open(evt_path, O_RDONLY); 156 if (fd < 0) 157 return -EINVAL; 158 close(fd); 159 160 return 0; 161 } 162 163 #define for_each_event(sys_dirent, evt_dir, evt_dirent) \ 164 while ((evt_dirent = readdir(evt_dir)) != NULL) \ 165 if (evt_dirent->d_type == DT_DIR && \ 166 (strcmp(evt_dirent->d_name, ".")) && \ 167 (strcmp(evt_dirent->d_name, "..")) && \ 168 (!tp_event_has_id(sys_dirent, evt_dirent))) 169 170 #define MAX_EVENT_LENGTH 512 171 172 173 struct tracepoint_path *tracepoint_id_to_path(u64 config) 174 { 175 struct tracepoint_path *path = NULL; 176 DIR *sys_dir, *evt_dir; 177 struct dirent *sys_dirent, *evt_dirent; 178 char id_buf[24]; 179 int fd; 180 u64 id; 181 char evt_path[MAXPATHLEN]; 182 char dir_path[MAXPATHLEN]; 183 184 sys_dir = opendir(tracing_events_path); 185 if (!sys_dir) 186 return NULL; 187 188 for_each_subsystem(sys_dir, sys_dirent) { 189 190 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path, 191 sys_dirent->d_name); 192 evt_dir = opendir(dir_path); 193 if (!evt_dir) 194 continue; 195 196 for_each_event(sys_dirent, evt_dir, evt_dirent) { 197 198 snprintf(evt_path, MAXPATHLEN, "%s/%s/id", dir_path, 199 evt_dirent->d_name); 200 fd = open(evt_path, O_RDONLY); 201 if (fd < 0) 202 continue; 203 if (read(fd, id_buf, sizeof(id_buf)) < 0) { 204 close(fd); 205 continue; 206 } 207 close(fd); 208 id = atoll(id_buf); 209 if (id == config) { 210 closedir(evt_dir); 211 closedir(sys_dir); 212 path = zalloc(sizeof(*path)); 213 path->system = malloc(MAX_EVENT_LENGTH); 214 if (!path->system) { 215 free(path); 216 return NULL; 217 } 218 path->name = malloc(MAX_EVENT_LENGTH); 219 if (!path->name) { 220 zfree(&path->system); 221 free(path); 222 return NULL; 223 } 224 strncpy(path->system, sys_dirent->d_name, 225 MAX_EVENT_LENGTH); 226 strncpy(path->name, evt_dirent->d_name, 227 MAX_EVENT_LENGTH); 228 return path; 229 } 230 } 231 closedir(evt_dir); 232 } 233 234 closedir(sys_dir); 235 return NULL; 236 } 237 238 struct tracepoint_path *tracepoint_name_to_path(const char *name) 239 { 240 struct tracepoint_path *path = zalloc(sizeof(*path)); 241 char *str = strchr(name, ':'); 242 243 if (path == NULL || str == NULL) { 244 free(path); 245 return NULL; 246 } 247 248 path->system = strndup(name, str - name); 249 path->name = strdup(str+1); 250 251 if (path->system == NULL || path->name == NULL) { 252 zfree(&path->system); 253 zfree(&path->name); 254 free(path); 255 path = NULL; 256 } 257 258 return path; 259 } 260 261 const char *event_type(int type) 262 { 263 switch (type) { 264 case PERF_TYPE_HARDWARE: 265 return "hardware"; 266 267 case PERF_TYPE_SOFTWARE: 268 return "software"; 269 270 case PERF_TYPE_TRACEPOINT: 271 return "tracepoint"; 272 273 case PERF_TYPE_HW_CACHE: 274 return "hardware-cache"; 275 276 default: 277 break; 278 } 279 280 return "unknown"; 281 } 282 283 static int parse_events__is_name_term(struct parse_events_term *term) 284 { 285 return term->type_term == PARSE_EVENTS__TERM_TYPE_NAME; 286 } 287 288 static char *get_config_name(struct list_head *head_terms) 289 { 290 struct parse_events_term *term; 291 292 if (!head_terms) 293 return NULL; 294 295 list_for_each_entry(term, head_terms, list) 296 if (parse_events__is_name_term(term)) 297 return term->val.str; 298 299 return NULL; 300 } 301 302 static struct perf_evsel * 303 __add_event(struct list_head *list, int *idx, 304 struct perf_event_attr *attr, 305 char *name, struct cpu_map *cpus, 306 struct list_head *config_terms) 307 { 308 struct perf_evsel *evsel; 309 310 event_attr_init(attr); 311 312 evsel = perf_evsel__new_idx(attr, (*idx)++); 313 if (!evsel) 314 return NULL; 315 316 evsel->cpus = cpu_map__get(cpus); 317 evsel->own_cpus = cpu_map__get(cpus); 318 319 if (name) 320 evsel->name = strdup(name); 321 322 if (config_terms) 323 list_splice(config_terms, &evsel->config_terms); 324 325 list_add_tail(&evsel->node, list); 326 return evsel; 327 } 328 329 static int add_event(struct list_head *list, int *idx, 330 struct perf_event_attr *attr, char *name, 331 struct list_head *config_terms) 332 { 333 return __add_event(list, idx, attr, name, NULL, config_terms) ? 0 : -ENOMEM; 334 } 335 336 static int parse_aliases(char *str, const char *names[][PERF_EVSEL__MAX_ALIASES], int size) 337 { 338 int i, j; 339 int n, longest = -1; 340 341 for (i = 0; i < size; i++) { 342 for (j = 0; j < PERF_EVSEL__MAX_ALIASES && names[i][j]; j++) { 343 n = strlen(names[i][j]); 344 if (n > longest && !strncasecmp(str, names[i][j], n)) 345 longest = n; 346 } 347 if (longest > 0) 348 return i; 349 } 350 351 return -1; 352 } 353 354 typedef int config_term_func_t(struct perf_event_attr *attr, 355 struct parse_events_term *term, 356 struct parse_events_error *err); 357 static int config_term_common(struct perf_event_attr *attr, 358 struct parse_events_term *term, 359 struct parse_events_error *err); 360 static int config_attr(struct perf_event_attr *attr, 361 struct list_head *head, 362 struct parse_events_error *err, 363 config_term_func_t config_term); 364 365 int parse_events_add_cache(struct list_head *list, int *idx, 366 char *type, char *op_result1, char *op_result2, 367 struct parse_events_error *err, 368 struct list_head *head_config) 369 { 370 struct perf_event_attr attr; 371 LIST_HEAD(config_terms); 372 char name[MAX_NAME_LEN], *config_name; 373 int cache_type = -1, cache_op = -1, cache_result = -1; 374 char *op_result[2] = { op_result1, op_result2 }; 375 int i, n; 376 377 /* 378 * No fallback - if we cannot get a clear cache type 379 * then bail out: 380 */ 381 cache_type = parse_aliases(type, perf_evsel__hw_cache, 382 PERF_COUNT_HW_CACHE_MAX); 383 if (cache_type == -1) 384 return -EINVAL; 385 386 config_name = get_config_name(head_config); 387 n = snprintf(name, MAX_NAME_LEN, "%s", type); 388 389 for (i = 0; (i < 2) && (op_result[i]); i++) { 390 char *str = op_result[i]; 391 392 n += snprintf(name + n, MAX_NAME_LEN - n, "-%s", str); 393 394 if (cache_op == -1) { 395 cache_op = parse_aliases(str, perf_evsel__hw_cache_op, 396 PERF_COUNT_HW_CACHE_OP_MAX); 397 if (cache_op >= 0) { 398 if (!perf_evsel__is_cache_op_valid(cache_type, cache_op)) 399 return -EINVAL; 400 continue; 401 } 402 } 403 404 if (cache_result == -1) { 405 cache_result = parse_aliases(str, perf_evsel__hw_cache_result, 406 PERF_COUNT_HW_CACHE_RESULT_MAX); 407 if (cache_result >= 0) 408 continue; 409 } 410 } 411 412 /* 413 * Fall back to reads: 414 */ 415 if (cache_op == -1) 416 cache_op = PERF_COUNT_HW_CACHE_OP_READ; 417 418 /* 419 * Fall back to accesses: 420 */ 421 if (cache_result == -1) 422 cache_result = PERF_COUNT_HW_CACHE_RESULT_ACCESS; 423 424 memset(&attr, 0, sizeof(attr)); 425 attr.config = cache_type | (cache_op << 8) | (cache_result << 16); 426 attr.type = PERF_TYPE_HW_CACHE; 427 428 if (head_config) { 429 if (config_attr(&attr, head_config, err, 430 config_term_common)) 431 return -EINVAL; 432 433 if (get_config_terms(head_config, &config_terms)) 434 return -ENOMEM; 435 } 436 return add_event(list, idx, &attr, config_name ? : name, &config_terms); 437 } 438 439 static void tracepoint_error(struct parse_events_error *e, int err, 440 const char *sys, const char *name) 441 { 442 char help[BUFSIZ]; 443 444 if (!e) 445 return; 446 447 /* 448 * We get error directly from syscall errno ( > 0), 449 * or from encoded pointer's error ( < 0). 450 */ 451 err = abs(err); 452 453 switch (err) { 454 case EACCES: 455 e->str = strdup("can't access trace events"); 456 break; 457 case ENOENT: 458 e->str = strdup("unknown tracepoint"); 459 break; 460 default: 461 e->str = strdup("failed to add tracepoint"); 462 break; 463 } 464 465 tracing_path__strerror_open_tp(err, help, sizeof(help), sys, name); 466 e->help = strdup(help); 467 } 468 469 static int add_tracepoint(struct list_head *list, int *idx, 470 const char *sys_name, const char *evt_name, 471 struct parse_events_error *err, 472 struct list_head *head_config) 473 { 474 struct perf_evsel *evsel; 475 476 evsel = perf_evsel__newtp_idx(sys_name, evt_name, (*idx)++); 477 if (IS_ERR(evsel)) { 478 tracepoint_error(err, PTR_ERR(evsel), sys_name, evt_name); 479 return PTR_ERR(evsel); 480 } 481 482 if (head_config) { 483 LIST_HEAD(config_terms); 484 485 if (get_config_terms(head_config, &config_terms)) 486 return -ENOMEM; 487 list_splice(&config_terms, &evsel->config_terms); 488 } 489 490 list_add_tail(&evsel->node, list); 491 return 0; 492 } 493 494 static int add_tracepoint_multi_event(struct list_head *list, int *idx, 495 const char *sys_name, const char *evt_name, 496 struct parse_events_error *err, 497 struct list_head *head_config) 498 { 499 char evt_path[MAXPATHLEN]; 500 struct dirent *evt_ent; 501 DIR *evt_dir; 502 int ret = 0, found = 0; 503 504 snprintf(evt_path, MAXPATHLEN, "%s/%s", tracing_events_path, sys_name); 505 evt_dir = opendir(evt_path); 506 if (!evt_dir) { 507 tracepoint_error(err, errno, sys_name, evt_name); 508 return -1; 509 } 510 511 while (!ret && (evt_ent = readdir(evt_dir))) { 512 if (!strcmp(evt_ent->d_name, ".") 513 || !strcmp(evt_ent->d_name, "..") 514 || !strcmp(evt_ent->d_name, "enable") 515 || !strcmp(evt_ent->d_name, "filter")) 516 continue; 517 518 if (!strglobmatch(evt_ent->d_name, evt_name)) 519 continue; 520 521 found++; 522 523 ret = add_tracepoint(list, idx, sys_name, evt_ent->d_name, 524 err, head_config); 525 } 526 527 if (!found) { 528 tracepoint_error(err, ENOENT, sys_name, evt_name); 529 ret = -1; 530 } 531 532 closedir(evt_dir); 533 return ret; 534 } 535 536 static int add_tracepoint_event(struct list_head *list, int *idx, 537 const char *sys_name, const char *evt_name, 538 struct parse_events_error *err, 539 struct list_head *head_config) 540 { 541 return strpbrk(evt_name, "*?") ? 542 add_tracepoint_multi_event(list, idx, sys_name, evt_name, 543 err, head_config) : 544 add_tracepoint(list, idx, sys_name, evt_name, 545 err, head_config); 546 } 547 548 static int add_tracepoint_multi_sys(struct list_head *list, int *idx, 549 const char *sys_name, const char *evt_name, 550 struct parse_events_error *err, 551 struct list_head *head_config) 552 { 553 struct dirent *events_ent; 554 DIR *events_dir; 555 int ret = 0; 556 557 events_dir = opendir(tracing_events_path); 558 if (!events_dir) { 559 tracepoint_error(err, errno, sys_name, evt_name); 560 return -1; 561 } 562 563 while (!ret && (events_ent = readdir(events_dir))) { 564 if (!strcmp(events_ent->d_name, ".") 565 || !strcmp(events_ent->d_name, "..") 566 || !strcmp(events_ent->d_name, "enable") 567 || !strcmp(events_ent->d_name, "header_event") 568 || !strcmp(events_ent->d_name, "header_page")) 569 continue; 570 571 if (!strglobmatch(events_ent->d_name, sys_name)) 572 continue; 573 574 ret = add_tracepoint_event(list, idx, events_ent->d_name, 575 evt_name, err, head_config); 576 } 577 578 closedir(events_dir); 579 return ret; 580 } 581 582 struct __add_bpf_event_param { 583 struct parse_events_evlist *data; 584 struct list_head *list; 585 struct list_head *head_config; 586 }; 587 588 static int add_bpf_event(const char *group, const char *event, int fd, 589 void *_param) 590 { 591 LIST_HEAD(new_evsels); 592 struct __add_bpf_event_param *param = _param; 593 struct parse_events_evlist *evlist = param->data; 594 struct list_head *list = param->list; 595 struct perf_evsel *pos; 596 int err; 597 598 pr_debug("add bpf event %s:%s and attach bpf program %d\n", 599 group, event, fd); 600 601 err = parse_events_add_tracepoint(&new_evsels, &evlist->idx, group, 602 event, evlist->error, 603 param->head_config); 604 if (err) { 605 struct perf_evsel *evsel, *tmp; 606 607 pr_debug("Failed to add BPF event %s:%s\n", 608 group, event); 609 list_for_each_entry_safe(evsel, tmp, &new_evsels, node) { 610 list_del(&evsel->node); 611 perf_evsel__delete(evsel); 612 } 613 return err; 614 } 615 pr_debug("adding %s:%s\n", group, event); 616 617 list_for_each_entry(pos, &new_evsels, node) { 618 pr_debug("adding %s:%s to %p\n", 619 group, event, pos); 620 pos->bpf_fd = fd; 621 } 622 list_splice(&new_evsels, list); 623 return 0; 624 } 625 626 int parse_events_load_bpf_obj(struct parse_events_evlist *data, 627 struct list_head *list, 628 struct bpf_object *obj, 629 struct list_head *head_config) 630 { 631 int err; 632 char errbuf[BUFSIZ]; 633 struct __add_bpf_event_param param = {data, list, head_config}; 634 static bool registered_unprobe_atexit = false; 635 636 if (IS_ERR(obj) || !obj) { 637 snprintf(errbuf, sizeof(errbuf), 638 "Internal error: load bpf obj with NULL"); 639 err = -EINVAL; 640 goto errout; 641 } 642 643 /* 644 * Register atexit handler before calling bpf__probe() so 645 * bpf__probe() don't need to unprobe probe points its already 646 * created when failure. 647 */ 648 if (!registered_unprobe_atexit) { 649 atexit(bpf__clear); 650 registered_unprobe_atexit = true; 651 } 652 653 err = bpf__probe(obj); 654 if (err) { 655 bpf__strerror_probe(obj, err, errbuf, sizeof(errbuf)); 656 goto errout; 657 } 658 659 err = bpf__load(obj); 660 if (err) { 661 bpf__strerror_load(obj, err, errbuf, sizeof(errbuf)); 662 goto errout; 663 } 664 665 err = bpf__foreach_event(obj, add_bpf_event, ¶m); 666 if (err) { 667 snprintf(errbuf, sizeof(errbuf), 668 "Attach events in BPF object failed"); 669 goto errout; 670 } 671 672 return 0; 673 errout: 674 data->error->help = strdup("(add -v to see detail)"); 675 data->error->str = strdup(errbuf); 676 return err; 677 } 678 679 static int 680 parse_events_config_bpf(struct parse_events_evlist *data, 681 struct bpf_object *obj, 682 struct list_head *head_config) 683 { 684 struct parse_events_term *term; 685 int error_pos; 686 687 if (!head_config || list_empty(head_config)) 688 return 0; 689 690 list_for_each_entry(term, head_config, list) { 691 char errbuf[BUFSIZ]; 692 int err; 693 694 if (term->type_term != PARSE_EVENTS__TERM_TYPE_USER) { 695 snprintf(errbuf, sizeof(errbuf), 696 "Invalid config term for BPF object"); 697 errbuf[BUFSIZ - 1] = '\0'; 698 699 data->error->idx = term->err_term; 700 data->error->str = strdup(errbuf); 701 return -EINVAL; 702 } 703 704 err = bpf__config_obj(obj, term, data->evlist, &error_pos); 705 if (err) { 706 bpf__strerror_config_obj(obj, term, data->evlist, 707 &error_pos, err, errbuf, 708 sizeof(errbuf)); 709 data->error->help = strdup( 710 "Hint:\tValid config terms:\n" 711 " \tmap:[<arraymap>].value<indices>=[value]\n" 712 " \tmap:[<eventmap>].event<indices>=[event]\n" 713 "\n" 714 " \twhere <indices> is something like [0,3...5] or [all]\n" 715 " \t(add -v to see detail)"); 716 data->error->str = strdup(errbuf); 717 if (err == -BPF_LOADER_ERRNO__OBJCONF_MAP_VALUE) 718 data->error->idx = term->err_val; 719 else 720 data->error->idx = term->err_term + error_pos; 721 return err; 722 } 723 } 724 return 0; 725 } 726 727 /* 728 * Split config terms: 729 * perf record -e bpf.c/call-graph=fp,map:array.value[0]=1/ ... 730 * 'call-graph=fp' is 'evt config', should be applied to each 731 * events in bpf.c. 732 * 'map:array.value[0]=1' is 'obj config', should be processed 733 * with parse_events_config_bpf. 734 * 735 * Move object config terms from the first list to obj_head_config. 736 */ 737 static void 738 split_bpf_config_terms(struct list_head *evt_head_config, 739 struct list_head *obj_head_config) 740 { 741 struct parse_events_term *term, *temp; 742 743 /* 744 * Currectly, all possible user config term 745 * belong to bpf object. parse_events__is_hardcoded_term() 746 * happends to be a good flag. 747 * 748 * See parse_events_config_bpf() and 749 * config_term_tracepoint(). 750 */ 751 list_for_each_entry_safe(term, temp, evt_head_config, list) 752 if (!parse_events__is_hardcoded_term(term)) 753 list_move_tail(&term->list, obj_head_config); 754 } 755 756 int parse_events_load_bpf(struct parse_events_evlist *data, 757 struct list_head *list, 758 char *bpf_file_name, 759 bool source, 760 struct list_head *head_config) 761 { 762 int err; 763 struct bpf_object *obj; 764 LIST_HEAD(obj_head_config); 765 766 if (head_config) 767 split_bpf_config_terms(head_config, &obj_head_config); 768 769 obj = bpf__prepare_load(bpf_file_name, source); 770 if (IS_ERR(obj)) { 771 char errbuf[BUFSIZ]; 772 773 err = PTR_ERR(obj); 774 775 if (err == -ENOTSUP) 776 snprintf(errbuf, sizeof(errbuf), 777 "BPF support is not compiled"); 778 else 779 bpf__strerror_prepare_load(bpf_file_name, 780 source, 781 -err, errbuf, 782 sizeof(errbuf)); 783 784 data->error->help = strdup("(add -v to see detail)"); 785 data->error->str = strdup(errbuf); 786 return err; 787 } 788 789 err = parse_events_load_bpf_obj(data, list, obj, head_config); 790 if (err) 791 return err; 792 err = parse_events_config_bpf(data, obj, &obj_head_config); 793 794 /* 795 * Caller doesn't know anything about obj_head_config, 796 * so combine them together again before returnning. 797 */ 798 if (head_config) 799 list_splice_tail(&obj_head_config, head_config); 800 return err; 801 } 802 803 static int 804 parse_breakpoint_type(const char *type, struct perf_event_attr *attr) 805 { 806 int i; 807 808 for (i = 0; i < 3; i++) { 809 if (!type || !type[i]) 810 break; 811 812 #define CHECK_SET_TYPE(bit) \ 813 do { \ 814 if (attr->bp_type & bit) \ 815 return -EINVAL; \ 816 else \ 817 attr->bp_type |= bit; \ 818 } while (0) 819 820 switch (type[i]) { 821 case 'r': 822 CHECK_SET_TYPE(HW_BREAKPOINT_R); 823 break; 824 case 'w': 825 CHECK_SET_TYPE(HW_BREAKPOINT_W); 826 break; 827 case 'x': 828 CHECK_SET_TYPE(HW_BREAKPOINT_X); 829 break; 830 default: 831 return -EINVAL; 832 } 833 } 834 835 #undef CHECK_SET_TYPE 836 837 if (!attr->bp_type) /* Default */ 838 attr->bp_type = HW_BREAKPOINT_R | HW_BREAKPOINT_W; 839 840 return 0; 841 } 842 843 int parse_events_add_breakpoint(struct list_head *list, int *idx, 844 void *ptr, char *type, u64 len) 845 { 846 struct perf_event_attr attr; 847 848 memset(&attr, 0, sizeof(attr)); 849 attr.bp_addr = (unsigned long) ptr; 850 851 if (parse_breakpoint_type(type, &attr)) 852 return -EINVAL; 853 854 /* Provide some defaults if len is not specified */ 855 if (!len) { 856 if (attr.bp_type == HW_BREAKPOINT_X) 857 len = sizeof(long); 858 else 859 len = HW_BREAKPOINT_LEN_4; 860 } 861 862 attr.bp_len = len; 863 864 attr.type = PERF_TYPE_BREAKPOINT; 865 attr.sample_period = 1; 866 867 return add_event(list, idx, &attr, NULL, NULL); 868 } 869 870 static int check_type_val(struct parse_events_term *term, 871 struct parse_events_error *err, 872 int type) 873 { 874 if (type == term->type_val) 875 return 0; 876 877 if (err) { 878 err->idx = term->err_val; 879 if (type == PARSE_EVENTS__TERM_TYPE_NUM) 880 err->str = strdup("expected numeric value"); 881 else 882 err->str = strdup("expected string value"); 883 } 884 return -EINVAL; 885 } 886 887 /* 888 * Update according to parse-events.l 889 */ 890 static const char *config_term_names[__PARSE_EVENTS__TERM_TYPE_NR] = { 891 [PARSE_EVENTS__TERM_TYPE_USER] = "<sysfs term>", 892 [PARSE_EVENTS__TERM_TYPE_CONFIG] = "config", 893 [PARSE_EVENTS__TERM_TYPE_CONFIG1] = "config1", 894 [PARSE_EVENTS__TERM_TYPE_CONFIG2] = "config2", 895 [PARSE_EVENTS__TERM_TYPE_NAME] = "name", 896 [PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD] = "period", 897 [PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ] = "freq", 898 [PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE] = "branch_type", 899 [PARSE_EVENTS__TERM_TYPE_TIME] = "time", 900 [PARSE_EVENTS__TERM_TYPE_CALLGRAPH] = "call-graph", 901 [PARSE_EVENTS__TERM_TYPE_STACKSIZE] = "stack-size", 902 [PARSE_EVENTS__TERM_TYPE_NOINHERIT] = "no-inherit", 903 [PARSE_EVENTS__TERM_TYPE_INHERIT] = "inherit", 904 [PARSE_EVENTS__TERM_TYPE_MAX_STACK] = "max-stack", 905 [PARSE_EVENTS__TERM_TYPE_OVERWRITE] = "overwrite", 906 [PARSE_EVENTS__TERM_TYPE_NOOVERWRITE] = "no-overwrite", 907 [PARSE_EVENTS__TERM_TYPE_DRV_CFG] = "driver-config", 908 }; 909 910 static bool config_term_shrinked; 911 912 static bool 913 config_term_avail(int term_type, struct parse_events_error *err) 914 { 915 if (term_type < 0 || term_type >= __PARSE_EVENTS__TERM_TYPE_NR) { 916 err->str = strdup("Invalid term_type"); 917 return false; 918 } 919 if (!config_term_shrinked) 920 return true; 921 922 switch (term_type) { 923 case PARSE_EVENTS__TERM_TYPE_CONFIG: 924 case PARSE_EVENTS__TERM_TYPE_CONFIG1: 925 case PARSE_EVENTS__TERM_TYPE_CONFIG2: 926 case PARSE_EVENTS__TERM_TYPE_NAME: 927 return true; 928 default: 929 if (!err) 930 return false; 931 932 /* term_type is validated so indexing is safe */ 933 if (asprintf(&err->str, "'%s' is not usable in 'perf stat'", 934 config_term_names[term_type]) < 0) 935 err->str = NULL; 936 return false; 937 } 938 } 939 940 void parse_events__shrink_config_terms(void) 941 { 942 config_term_shrinked = true; 943 } 944 945 static int config_term_common(struct perf_event_attr *attr, 946 struct parse_events_term *term, 947 struct parse_events_error *err) 948 { 949 #define CHECK_TYPE_VAL(type) \ 950 do { \ 951 if (check_type_val(term, err, PARSE_EVENTS__TERM_TYPE_ ## type)) \ 952 return -EINVAL; \ 953 } while (0) 954 955 switch (term->type_term) { 956 case PARSE_EVENTS__TERM_TYPE_CONFIG: 957 CHECK_TYPE_VAL(NUM); 958 attr->config = term->val.num; 959 break; 960 case PARSE_EVENTS__TERM_TYPE_CONFIG1: 961 CHECK_TYPE_VAL(NUM); 962 attr->config1 = term->val.num; 963 break; 964 case PARSE_EVENTS__TERM_TYPE_CONFIG2: 965 CHECK_TYPE_VAL(NUM); 966 attr->config2 = term->val.num; 967 break; 968 case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD: 969 CHECK_TYPE_VAL(NUM); 970 break; 971 case PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ: 972 CHECK_TYPE_VAL(NUM); 973 break; 974 case PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE: 975 /* 976 * TODO uncomment when the field is available 977 * attr->branch_sample_type = term->val.num; 978 */ 979 break; 980 case PARSE_EVENTS__TERM_TYPE_TIME: 981 CHECK_TYPE_VAL(NUM); 982 if (term->val.num > 1) { 983 err->str = strdup("expected 0 or 1"); 984 err->idx = term->err_val; 985 return -EINVAL; 986 } 987 break; 988 case PARSE_EVENTS__TERM_TYPE_CALLGRAPH: 989 CHECK_TYPE_VAL(STR); 990 break; 991 case PARSE_EVENTS__TERM_TYPE_STACKSIZE: 992 CHECK_TYPE_VAL(NUM); 993 break; 994 case PARSE_EVENTS__TERM_TYPE_INHERIT: 995 CHECK_TYPE_VAL(NUM); 996 break; 997 case PARSE_EVENTS__TERM_TYPE_NOINHERIT: 998 CHECK_TYPE_VAL(NUM); 999 break; 1000 case PARSE_EVENTS__TERM_TYPE_OVERWRITE: 1001 CHECK_TYPE_VAL(NUM); 1002 break; 1003 case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE: 1004 CHECK_TYPE_VAL(NUM); 1005 break; 1006 case PARSE_EVENTS__TERM_TYPE_NAME: 1007 CHECK_TYPE_VAL(STR); 1008 break; 1009 case PARSE_EVENTS__TERM_TYPE_MAX_STACK: 1010 CHECK_TYPE_VAL(NUM); 1011 break; 1012 default: 1013 err->str = strdup("unknown term"); 1014 err->idx = term->err_term; 1015 err->help = parse_events_formats_error_string(NULL); 1016 return -EINVAL; 1017 } 1018 1019 /* 1020 * Check term availbility after basic checking so 1021 * PARSE_EVENTS__TERM_TYPE_USER can be found and filtered. 1022 * 1023 * If check availbility at the entry of this function, 1024 * user will see "'<sysfs term>' is not usable in 'perf stat'" 1025 * if an invalid config term is provided for legacy events 1026 * (for example, instructions/badterm/...), which is confusing. 1027 */ 1028 if (!config_term_avail(term->type_term, err)) 1029 return -EINVAL; 1030 return 0; 1031 #undef CHECK_TYPE_VAL 1032 } 1033 1034 static int config_term_pmu(struct perf_event_attr *attr, 1035 struct parse_events_term *term, 1036 struct parse_events_error *err) 1037 { 1038 if (term->type_term == PARSE_EVENTS__TERM_TYPE_USER || 1039 term->type_term == PARSE_EVENTS__TERM_TYPE_DRV_CFG) 1040 /* 1041 * Always succeed for sysfs terms, as we dont know 1042 * at this point what type they need to have. 1043 */ 1044 return 0; 1045 else 1046 return config_term_common(attr, term, err); 1047 } 1048 1049 static int config_term_tracepoint(struct perf_event_attr *attr, 1050 struct parse_events_term *term, 1051 struct parse_events_error *err) 1052 { 1053 switch (term->type_term) { 1054 case PARSE_EVENTS__TERM_TYPE_CALLGRAPH: 1055 case PARSE_EVENTS__TERM_TYPE_STACKSIZE: 1056 case PARSE_EVENTS__TERM_TYPE_INHERIT: 1057 case PARSE_EVENTS__TERM_TYPE_NOINHERIT: 1058 case PARSE_EVENTS__TERM_TYPE_MAX_STACK: 1059 case PARSE_EVENTS__TERM_TYPE_OVERWRITE: 1060 case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE: 1061 return config_term_common(attr, term, err); 1062 default: 1063 if (err) { 1064 err->idx = term->err_term; 1065 err->str = strdup("unknown term"); 1066 err->help = strdup("valid terms: call-graph,stack-size\n"); 1067 } 1068 return -EINVAL; 1069 } 1070 1071 return 0; 1072 } 1073 1074 static int config_attr(struct perf_event_attr *attr, 1075 struct list_head *head, 1076 struct parse_events_error *err, 1077 config_term_func_t config_term) 1078 { 1079 struct parse_events_term *term; 1080 1081 list_for_each_entry(term, head, list) 1082 if (config_term(attr, term, err)) 1083 return -EINVAL; 1084 1085 return 0; 1086 } 1087 1088 static int get_config_terms(struct list_head *head_config, 1089 struct list_head *head_terms __maybe_unused) 1090 { 1091 #define ADD_CONFIG_TERM(__type, __name, __val) \ 1092 do { \ 1093 struct perf_evsel_config_term *__t; \ 1094 \ 1095 __t = zalloc(sizeof(*__t)); \ 1096 if (!__t) \ 1097 return -ENOMEM; \ 1098 \ 1099 INIT_LIST_HEAD(&__t->list); \ 1100 __t->type = PERF_EVSEL__CONFIG_TERM_ ## __type; \ 1101 __t->val.__name = __val; \ 1102 list_add_tail(&__t->list, head_terms); \ 1103 } while (0) 1104 1105 struct parse_events_term *term; 1106 1107 list_for_each_entry(term, head_config, list) { 1108 switch (term->type_term) { 1109 case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD: 1110 ADD_CONFIG_TERM(PERIOD, period, term->val.num); 1111 break; 1112 case PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ: 1113 ADD_CONFIG_TERM(FREQ, freq, term->val.num); 1114 break; 1115 case PARSE_EVENTS__TERM_TYPE_TIME: 1116 ADD_CONFIG_TERM(TIME, time, term->val.num); 1117 break; 1118 case PARSE_EVENTS__TERM_TYPE_CALLGRAPH: 1119 ADD_CONFIG_TERM(CALLGRAPH, callgraph, term->val.str); 1120 break; 1121 case PARSE_EVENTS__TERM_TYPE_STACKSIZE: 1122 ADD_CONFIG_TERM(STACK_USER, stack_user, term->val.num); 1123 break; 1124 case PARSE_EVENTS__TERM_TYPE_INHERIT: 1125 ADD_CONFIG_TERM(INHERIT, inherit, term->val.num ? 1 : 0); 1126 break; 1127 case PARSE_EVENTS__TERM_TYPE_NOINHERIT: 1128 ADD_CONFIG_TERM(INHERIT, inherit, term->val.num ? 0 : 1); 1129 break; 1130 case PARSE_EVENTS__TERM_TYPE_MAX_STACK: 1131 ADD_CONFIG_TERM(MAX_STACK, max_stack, term->val.num); 1132 break; 1133 case PARSE_EVENTS__TERM_TYPE_OVERWRITE: 1134 ADD_CONFIG_TERM(OVERWRITE, overwrite, term->val.num ? 1 : 0); 1135 break; 1136 case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE: 1137 ADD_CONFIG_TERM(OVERWRITE, overwrite, term->val.num ? 0 : 1); 1138 break; 1139 case PARSE_EVENTS__TERM_TYPE_DRV_CFG: 1140 ADD_CONFIG_TERM(DRV_CFG, drv_cfg, term->val.str); 1141 break; 1142 default: 1143 break; 1144 } 1145 } 1146 #undef ADD_EVSEL_CONFIG 1147 return 0; 1148 } 1149 1150 int parse_events_add_tracepoint(struct list_head *list, int *idx, 1151 const char *sys, const char *event, 1152 struct parse_events_error *err, 1153 struct list_head *head_config) 1154 { 1155 if (head_config) { 1156 struct perf_event_attr attr; 1157 1158 if (config_attr(&attr, head_config, err, 1159 config_term_tracepoint)) 1160 return -EINVAL; 1161 } 1162 1163 if (strpbrk(sys, "*?")) 1164 return add_tracepoint_multi_sys(list, idx, sys, event, 1165 err, head_config); 1166 else 1167 return add_tracepoint_event(list, idx, sys, event, 1168 err, head_config); 1169 } 1170 1171 int parse_events_add_numeric(struct parse_events_evlist *data, 1172 struct list_head *list, 1173 u32 type, u64 config, 1174 struct list_head *head_config) 1175 { 1176 struct perf_event_attr attr; 1177 LIST_HEAD(config_terms); 1178 1179 memset(&attr, 0, sizeof(attr)); 1180 attr.type = type; 1181 attr.config = config; 1182 1183 if (head_config) { 1184 if (config_attr(&attr, head_config, data->error, 1185 config_term_common)) 1186 return -EINVAL; 1187 1188 if (get_config_terms(head_config, &config_terms)) 1189 return -ENOMEM; 1190 } 1191 1192 return add_event(list, &data->idx, &attr, 1193 get_config_name(head_config), &config_terms); 1194 } 1195 1196 int parse_events_add_pmu(struct parse_events_evlist *data, 1197 struct list_head *list, char *name, 1198 struct list_head *head_config) 1199 { 1200 struct perf_event_attr attr; 1201 struct perf_pmu_info info; 1202 struct perf_pmu *pmu; 1203 struct perf_evsel *evsel; 1204 LIST_HEAD(config_terms); 1205 1206 pmu = perf_pmu__find(name); 1207 if (!pmu) 1208 return -EINVAL; 1209 1210 if (pmu->default_config) { 1211 memcpy(&attr, pmu->default_config, 1212 sizeof(struct perf_event_attr)); 1213 } else { 1214 memset(&attr, 0, sizeof(attr)); 1215 } 1216 1217 if (!head_config) { 1218 attr.type = pmu->type; 1219 evsel = __add_event(list, &data->idx, &attr, NULL, pmu->cpus, NULL); 1220 return evsel ? 0 : -ENOMEM; 1221 } 1222 1223 if (perf_pmu__check_alias(pmu, head_config, &info)) 1224 return -EINVAL; 1225 1226 /* 1227 * Configure hardcoded terms first, no need to check 1228 * return value when called with fail == 0 ;) 1229 */ 1230 if (config_attr(&attr, head_config, data->error, config_term_pmu)) 1231 return -EINVAL; 1232 1233 if (get_config_terms(head_config, &config_terms)) 1234 return -ENOMEM; 1235 1236 if (perf_pmu__config(pmu, &attr, head_config, data->error)) 1237 return -EINVAL; 1238 1239 evsel = __add_event(list, &data->idx, &attr, 1240 get_config_name(head_config), pmu->cpus, 1241 &config_terms); 1242 if (evsel) { 1243 evsel->unit = info.unit; 1244 evsel->scale = info.scale; 1245 evsel->per_pkg = info.per_pkg; 1246 evsel->snapshot = info.snapshot; 1247 } 1248 1249 return evsel ? 0 : -ENOMEM; 1250 } 1251 1252 int parse_events__modifier_group(struct list_head *list, 1253 char *event_mod) 1254 { 1255 return parse_events__modifier_event(list, event_mod, true); 1256 } 1257 1258 void parse_events__set_leader(char *name, struct list_head *list) 1259 { 1260 struct perf_evsel *leader; 1261 1262 if (list_empty(list)) { 1263 WARN_ONCE(true, "WARNING: failed to set leader: empty list"); 1264 return; 1265 } 1266 1267 __perf_evlist__set_leader(list); 1268 leader = list_entry(list->next, struct perf_evsel, node); 1269 leader->group_name = name ? strdup(name) : NULL; 1270 } 1271 1272 /* list_event is assumed to point to malloc'ed memory */ 1273 void parse_events_update_lists(struct list_head *list_event, 1274 struct list_head *list_all) 1275 { 1276 /* 1277 * Called for single event definition. Update the 1278 * 'all event' list, and reinit the 'single event' 1279 * list, for next event definition. 1280 */ 1281 list_splice_tail(list_event, list_all); 1282 free(list_event); 1283 } 1284 1285 struct event_modifier { 1286 int eu; 1287 int ek; 1288 int eh; 1289 int eH; 1290 int eG; 1291 int eI; 1292 int precise; 1293 int precise_max; 1294 int exclude_GH; 1295 int sample_read; 1296 int pinned; 1297 }; 1298 1299 static int get_event_modifier(struct event_modifier *mod, char *str, 1300 struct perf_evsel *evsel) 1301 { 1302 int eu = evsel ? evsel->attr.exclude_user : 0; 1303 int ek = evsel ? evsel->attr.exclude_kernel : 0; 1304 int eh = evsel ? evsel->attr.exclude_hv : 0; 1305 int eH = evsel ? evsel->attr.exclude_host : 0; 1306 int eG = evsel ? evsel->attr.exclude_guest : 0; 1307 int eI = evsel ? evsel->attr.exclude_idle : 0; 1308 int precise = evsel ? evsel->attr.precise_ip : 0; 1309 int precise_max = 0; 1310 int sample_read = 0; 1311 int pinned = evsel ? evsel->attr.pinned : 0; 1312 1313 int exclude = eu | ek | eh; 1314 int exclude_GH = evsel ? evsel->exclude_GH : 0; 1315 1316 memset(mod, 0, sizeof(*mod)); 1317 1318 while (*str) { 1319 if (*str == 'u') { 1320 if (!exclude) 1321 exclude = eu = ek = eh = 1; 1322 eu = 0; 1323 } else if (*str == 'k') { 1324 if (!exclude) 1325 exclude = eu = ek = eh = 1; 1326 ek = 0; 1327 } else if (*str == 'h') { 1328 if (!exclude) 1329 exclude = eu = ek = eh = 1; 1330 eh = 0; 1331 } else if (*str == 'G') { 1332 if (!exclude_GH) 1333 exclude_GH = eG = eH = 1; 1334 eG = 0; 1335 } else if (*str == 'H') { 1336 if (!exclude_GH) 1337 exclude_GH = eG = eH = 1; 1338 eH = 0; 1339 } else if (*str == 'I') { 1340 eI = 1; 1341 } else if (*str == 'p') { 1342 precise++; 1343 /* use of precise requires exclude_guest */ 1344 if (!exclude_GH) 1345 eG = 1; 1346 } else if (*str == 'P') { 1347 precise_max = 1; 1348 } else if (*str == 'S') { 1349 sample_read = 1; 1350 } else if (*str == 'D') { 1351 pinned = 1; 1352 } else 1353 break; 1354 1355 ++str; 1356 } 1357 1358 /* 1359 * precise ip: 1360 * 1361 * 0 - SAMPLE_IP can have arbitrary skid 1362 * 1 - SAMPLE_IP must have constant skid 1363 * 2 - SAMPLE_IP requested to have 0 skid 1364 * 3 - SAMPLE_IP must have 0 skid 1365 * 1366 * See also PERF_RECORD_MISC_EXACT_IP 1367 */ 1368 if (precise > 3) 1369 return -EINVAL; 1370 1371 mod->eu = eu; 1372 mod->ek = ek; 1373 mod->eh = eh; 1374 mod->eH = eH; 1375 mod->eG = eG; 1376 mod->eI = eI; 1377 mod->precise = precise; 1378 mod->precise_max = precise_max; 1379 mod->exclude_GH = exclude_GH; 1380 mod->sample_read = sample_read; 1381 mod->pinned = pinned; 1382 1383 return 0; 1384 } 1385 1386 /* 1387 * Basic modifier sanity check to validate it contains only one 1388 * instance of any modifier (apart from 'p') present. 1389 */ 1390 static int check_modifier(char *str) 1391 { 1392 char *p = str; 1393 1394 /* The sizeof includes 0 byte as well. */ 1395 if (strlen(str) > (sizeof("ukhGHpppPSDI") - 1)) 1396 return -1; 1397 1398 while (*p) { 1399 if (*p != 'p' && strchr(p + 1, *p)) 1400 return -1; 1401 p++; 1402 } 1403 1404 return 0; 1405 } 1406 1407 int parse_events__modifier_event(struct list_head *list, char *str, bool add) 1408 { 1409 struct perf_evsel *evsel; 1410 struct event_modifier mod; 1411 1412 if (str == NULL) 1413 return 0; 1414 1415 if (check_modifier(str)) 1416 return -EINVAL; 1417 1418 if (!add && get_event_modifier(&mod, str, NULL)) 1419 return -EINVAL; 1420 1421 __evlist__for_each_entry(list, evsel) { 1422 if (add && get_event_modifier(&mod, str, evsel)) 1423 return -EINVAL; 1424 1425 evsel->attr.exclude_user = mod.eu; 1426 evsel->attr.exclude_kernel = mod.ek; 1427 evsel->attr.exclude_hv = mod.eh; 1428 evsel->attr.precise_ip = mod.precise; 1429 evsel->attr.exclude_host = mod.eH; 1430 evsel->attr.exclude_guest = mod.eG; 1431 evsel->attr.exclude_idle = mod.eI; 1432 evsel->exclude_GH = mod.exclude_GH; 1433 evsel->sample_read = mod.sample_read; 1434 evsel->precise_max = mod.precise_max; 1435 1436 if (perf_evsel__is_group_leader(evsel)) 1437 evsel->attr.pinned = mod.pinned; 1438 } 1439 1440 return 0; 1441 } 1442 1443 int parse_events_name(struct list_head *list, char *name) 1444 { 1445 struct perf_evsel *evsel; 1446 1447 __evlist__for_each_entry(list, evsel) { 1448 if (!evsel->name) 1449 evsel->name = strdup(name); 1450 } 1451 1452 return 0; 1453 } 1454 1455 static int 1456 comp_pmu(const void *p1, const void *p2) 1457 { 1458 struct perf_pmu_event_symbol *pmu1 = (struct perf_pmu_event_symbol *) p1; 1459 struct perf_pmu_event_symbol *pmu2 = (struct perf_pmu_event_symbol *) p2; 1460 1461 return strcmp(pmu1->symbol, pmu2->symbol); 1462 } 1463 1464 static void perf_pmu__parse_cleanup(void) 1465 { 1466 if (perf_pmu_events_list_num > 0) { 1467 struct perf_pmu_event_symbol *p; 1468 int i; 1469 1470 for (i = 0; i < perf_pmu_events_list_num; i++) { 1471 p = perf_pmu_events_list + i; 1472 free(p->symbol); 1473 } 1474 free(perf_pmu_events_list); 1475 perf_pmu_events_list = NULL; 1476 perf_pmu_events_list_num = 0; 1477 } 1478 } 1479 1480 #define SET_SYMBOL(str, stype) \ 1481 do { \ 1482 p->symbol = str; \ 1483 if (!p->symbol) \ 1484 goto err; \ 1485 p->type = stype; \ 1486 } while (0) 1487 1488 /* 1489 * Read the pmu events list from sysfs 1490 * Save it into perf_pmu_events_list 1491 */ 1492 static void perf_pmu__parse_init(void) 1493 { 1494 1495 struct perf_pmu *pmu = NULL; 1496 struct perf_pmu_alias *alias; 1497 int len = 0; 1498 1499 pmu = perf_pmu__find("cpu"); 1500 if ((pmu == NULL) || list_empty(&pmu->aliases)) { 1501 perf_pmu_events_list_num = -1; 1502 return; 1503 } 1504 list_for_each_entry(alias, &pmu->aliases, list) { 1505 if (strchr(alias->name, '-')) 1506 len++; 1507 len++; 1508 } 1509 perf_pmu_events_list = malloc(sizeof(struct perf_pmu_event_symbol) * len); 1510 if (!perf_pmu_events_list) 1511 return; 1512 perf_pmu_events_list_num = len; 1513 1514 len = 0; 1515 list_for_each_entry(alias, &pmu->aliases, list) { 1516 struct perf_pmu_event_symbol *p = perf_pmu_events_list + len; 1517 char *tmp = strchr(alias->name, '-'); 1518 1519 if (tmp != NULL) { 1520 SET_SYMBOL(strndup(alias->name, tmp - alias->name), 1521 PMU_EVENT_SYMBOL_PREFIX); 1522 p++; 1523 SET_SYMBOL(strdup(++tmp), PMU_EVENT_SYMBOL_SUFFIX); 1524 len += 2; 1525 } else { 1526 SET_SYMBOL(strdup(alias->name), PMU_EVENT_SYMBOL); 1527 len++; 1528 } 1529 } 1530 qsort(perf_pmu_events_list, len, 1531 sizeof(struct perf_pmu_event_symbol), comp_pmu); 1532 1533 return; 1534 err: 1535 perf_pmu__parse_cleanup(); 1536 } 1537 1538 enum perf_pmu_event_symbol_type 1539 perf_pmu__parse_check(const char *name) 1540 { 1541 struct perf_pmu_event_symbol p, *r; 1542 1543 /* scan kernel pmu events from sysfs if needed */ 1544 if (perf_pmu_events_list_num == 0) 1545 perf_pmu__parse_init(); 1546 /* 1547 * name "cpu" could be prefix of cpu-cycles or cpu// events. 1548 * cpu-cycles has been handled by hardcode. 1549 * So it must be cpu// events, not kernel pmu event. 1550 */ 1551 if ((perf_pmu_events_list_num <= 0) || !strcmp(name, "cpu")) 1552 return PMU_EVENT_SYMBOL_ERR; 1553 1554 p.symbol = strdup(name); 1555 r = bsearch(&p, perf_pmu_events_list, 1556 (size_t) perf_pmu_events_list_num, 1557 sizeof(struct perf_pmu_event_symbol), comp_pmu); 1558 free(p.symbol); 1559 return r ? r->type : PMU_EVENT_SYMBOL_ERR; 1560 } 1561 1562 static int parse_events__scanner(const char *str, void *data, int start_token) 1563 { 1564 YY_BUFFER_STATE buffer; 1565 void *scanner; 1566 int ret; 1567 1568 ret = parse_events_lex_init_extra(start_token, &scanner); 1569 if (ret) 1570 return ret; 1571 1572 buffer = parse_events__scan_string(str, scanner); 1573 1574 #ifdef PARSER_DEBUG 1575 parse_events_debug = 1; 1576 #endif 1577 ret = parse_events_parse(data, scanner); 1578 1579 parse_events__flush_buffer(buffer, scanner); 1580 parse_events__delete_buffer(buffer, scanner); 1581 parse_events_lex_destroy(scanner); 1582 return ret; 1583 } 1584 1585 /* 1586 * parse event config string, return a list of event terms. 1587 */ 1588 int parse_events_terms(struct list_head *terms, const char *str) 1589 { 1590 struct parse_events_terms data = { 1591 .terms = NULL, 1592 }; 1593 int ret; 1594 1595 ret = parse_events__scanner(str, &data, PE_START_TERMS); 1596 if (!ret) { 1597 list_splice(data.terms, terms); 1598 zfree(&data.terms); 1599 return 0; 1600 } 1601 1602 parse_events_terms__delete(data.terms); 1603 return ret; 1604 } 1605 1606 int parse_events(struct perf_evlist *evlist, const char *str, 1607 struct parse_events_error *err) 1608 { 1609 struct parse_events_evlist data = { 1610 .list = LIST_HEAD_INIT(data.list), 1611 .idx = evlist->nr_entries, 1612 .error = err, 1613 .evlist = evlist, 1614 }; 1615 int ret; 1616 1617 ret = parse_events__scanner(str, &data, PE_START_EVENTS); 1618 perf_pmu__parse_cleanup(); 1619 if (!ret) { 1620 struct perf_evsel *last; 1621 1622 if (list_empty(&data.list)) { 1623 WARN_ONCE(true, "WARNING: event parser found nothing"); 1624 return -1; 1625 } 1626 1627 perf_evlist__splice_list_tail(evlist, &data.list); 1628 evlist->nr_groups += data.nr_groups; 1629 last = perf_evlist__last(evlist); 1630 last->cmdline_group_boundary = true; 1631 1632 return 0; 1633 } 1634 1635 /* 1636 * There are 2 users - builtin-record and builtin-test objects. 1637 * Both call perf_evlist__delete in case of error, so we dont 1638 * need to bother. 1639 */ 1640 return ret; 1641 } 1642 1643 #define MAX_WIDTH 1000 1644 static int get_term_width(void) 1645 { 1646 struct winsize ws; 1647 1648 get_term_dimensions(&ws); 1649 return ws.ws_col > MAX_WIDTH ? MAX_WIDTH : ws.ws_col; 1650 } 1651 1652 static void parse_events_print_error(struct parse_events_error *err, 1653 const char *event) 1654 { 1655 const char *str = "invalid or unsupported event: "; 1656 char _buf[MAX_WIDTH]; 1657 char *buf = (char *) event; 1658 int idx = 0; 1659 1660 if (err->str) { 1661 /* -2 for extra '' in the final fprintf */ 1662 int width = get_term_width() - 2; 1663 int len_event = strlen(event); 1664 int len_str, max_len, cut = 0; 1665 1666 /* 1667 * Maximum error index indent, we will cut 1668 * the event string if it's bigger. 1669 */ 1670 int max_err_idx = 13; 1671 1672 /* 1673 * Let's be specific with the message when 1674 * we have the precise error. 1675 */ 1676 str = "event syntax error: "; 1677 len_str = strlen(str); 1678 max_len = width - len_str; 1679 1680 buf = _buf; 1681 1682 /* We're cutting from the beginning. */ 1683 if (err->idx > max_err_idx) 1684 cut = err->idx - max_err_idx; 1685 1686 strncpy(buf, event + cut, max_len); 1687 1688 /* Mark cut parts with '..' on both sides. */ 1689 if (cut) 1690 buf[0] = buf[1] = '.'; 1691 1692 if ((len_event - cut) > max_len) { 1693 buf[max_len - 1] = buf[max_len - 2] = '.'; 1694 buf[max_len] = 0; 1695 } 1696 1697 idx = len_str + err->idx - cut; 1698 } 1699 1700 fprintf(stderr, "%s'%s'\n", str, buf); 1701 if (idx) { 1702 fprintf(stderr, "%*s\\___ %s\n", idx + 1, "", err->str); 1703 if (err->help) 1704 fprintf(stderr, "\n%s\n", err->help); 1705 free(err->str); 1706 free(err->help); 1707 } 1708 1709 fprintf(stderr, "Run 'perf list' for a list of valid events\n"); 1710 } 1711 1712 #undef MAX_WIDTH 1713 1714 int parse_events_option(const struct option *opt, const char *str, 1715 int unset __maybe_unused) 1716 { 1717 struct perf_evlist *evlist = *(struct perf_evlist **)opt->value; 1718 struct parse_events_error err = { .idx = 0, }; 1719 int ret = parse_events(evlist, str, &err); 1720 1721 if (ret) 1722 parse_events_print_error(&err, str); 1723 1724 return ret; 1725 } 1726 1727 static int 1728 foreach_evsel_in_last_glob(struct perf_evlist *evlist, 1729 int (*func)(struct perf_evsel *evsel, 1730 const void *arg), 1731 const void *arg) 1732 { 1733 struct perf_evsel *last = NULL; 1734 int err; 1735 1736 /* 1737 * Don't return when list_empty, give func a chance to report 1738 * error when it found last == NULL. 1739 * 1740 * So no need to WARN here, let *func do this. 1741 */ 1742 if (evlist->nr_entries > 0) 1743 last = perf_evlist__last(evlist); 1744 1745 do { 1746 err = (*func)(last, arg); 1747 if (err) 1748 return -1; 1749 if (!last) 1750 return 0; 1751 1752 if (last->node.prev == &evlist->entries) 1753 return 0; 1754 last = list_entry(last->node.prev, struct perf_evsel, node); 1755 } while (!last->cmdline_group_boundary); 1756 1757 return 0; 1758 } 1759 1760 static int set_filter(struct perf_evsel *evsel, const void *arg) 1761 { 1762 const char *str = arg; 1763 bool found = false; 1764 int nr_addr_filters = 0; 1765 struct perf_pmu *pmu = NULL; 1766 1767 if (evsel == NULL) 1768 goto err; 1769 1770 if (evsel->attr.type == PERF_TYPE_TRACEPOINT) { 1771 if (perf_evsel__append_tp_filter(evsel, str) < 0) { 1772 fprintf(stderr, 1773 "not enough memory to hold filter string\n"); 1774 return -1; 1775 } 1776 1777 return 0; 1778 } 1779 1780 while ((pmu = perf_pmu__scan(pmu)) != NULL) 1781 if (pmu->type == evsel->attr.type) { 1782 found = true; 1783 break; 1784 } 1785 1786 if (found) 1787 perf_pmu__scan_file(pmu, "nr_addr_filters", 1788 "%d", &nr_addr_filters); 1789 1790 if (!nr_addr_filters) 1791 goto err; 1792 1793 if (perf_evsel__append_addr_filter(evsel, str) < 0) { 1794 fprintf(stderr, 1795 "not enough memory to hold filter string\n"); 1796 return -1; 1797 } 1798 1799 return 0; 1800 1801 err: 1802 fprintf(stderr, 1803 "--filter option should follow a -e tracepoint or HW tracer option\n"); 1804 1805 return -1; 1806 } 1807 1808 int parse_filter(const struct option *opt, const char *str, 1809 int unset __maybe_unused) 1810 { 1811 struct perf_evlist *evlist = *(struct perf_evlist **)opt->value; 1812 1813 return foreach_evsel_in_last_glob(evlist, set_filter, 1814 (const void *)str); 1815 } 1816 1817 static int add_exclude_perf_filter(struct perf_evsel *evsel, 1818 const void *arg __maybe_unused) 1819 { 1820 char new_filter[64]; 1821 1822 if (evsel == NULL || evsel->attr.type != PERF_TYPE_TRACEPOINT) { 1823 fprintf(stderr, 1824 "--exclude-perf option should follow a -e tracepoint option\n"); 1825 return -1; 1826 } 1827 1828 snprintf(new_filter, sizeof(new_filter), "common_pid != %d", getpid()); 1829 1830 if (perf_evsel__append_tp_filter(evsel, new_filter) < 0) { 1831 fprintf(stderr, 1832 "not enough memory to hold filter string\n"); 1833 return -1; 1834 } 1835 1836 return 0; 1837 } 1838 1839 int exclude_perf(const struct option *opt, 1840 const char *arg __maybe_unused, 1841 int unset __maybe_unused) 1842 { 1843 struct perf_evlist *evlist = *(struct perf_evlist **)opt->value; 1844 1845 return foreach_evsel_in_last_glob(evlist, add_exclude_perf_filter, 1846 NULL); 1847 } 1848 1849 static const char * const event_type_descriptors[] = { 1850 "Hardware event", 1851 "Software event", 1852 "Tracepoint event", 1853 "Hardware cache event", 1854 "Raw hardware event descriptor", 1855 "Hardware breakpoint", 1856 }; 1857 1858 static int cmp_string(const void *a, const void *b) 1859 { 1860 const char * const *as = a; 1861 const char * const *bs = b; 1862 1863 return strcmp(*as, *bs); 1864 } 1865 1866 /* 1867 * Print the events from <debugfs_mount_point>/tracing/events 1868 */ 1869 1870 void print_tracepoint_events(const char *subsys_glob, const char *event_glob, 1871 bool name_only) 1872 { 1873 DIR *sys_dir, *evt_dir; 1874 struct dirent *sys_dirent, *evt_dirent; 1875 char evt_path[MAXPATHLEN]; 1876 char dir_path[MAXPATHLEN]; 1877 char **evt_list = NULL; 1878 unsigned int evt_i = 0, evt_num = 0; 1879 bool evt_num_known = false; 1880 1881 restart: 1882 sys_dir = opendir(tracing_events_path); 1883 if (!sys_dir) 1884 return; 1885 1886 if (evt_num_known) { 1887 evt_list = zalloc(sizeof(char *) * evt_num); 1888 if (!evt_list) 1889 goto out_close_sys_dir; 1890 } 1891 1892 for_each_subsystem(sys_dir, sys_dirent) { 1893 if (subsys_glob != NULL && 1894 !strglobmatch(sys_dirent->d_name, subsys_glob)) 1895 continue; 1896 1897 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path, 1898 sys_dirent->d_name); 1899 evt_dir = opendir(dir_path); 1900 if (!evt_dir) 1901 continue; 1902 1903 for_each_event(sys_dirent, evt_dir, evt_dirent) { 1904 if (event_glob != NULL && 1905 !strglobmatch(evt_dirent->d_name, event_glob)) 1906 continue; 1907 1908 if (!evt_num_known) { 1909 evt_num++; 1910 continue; 1911 } 1912 1913 snprintf(evt_path, MAXPATHLEN, "%s:%s", 1914 sys_dirent->d_name, evt_dirent->d_name); 1915 1916 evt_list[evt_i] = strdup(evt_path); 1917 if (evt_list[evt_i] == NULL) 1918 goto out_close_evt_dir; 1919 evt_i++; 1920 } 1921 closedir(evt_dir); 1922 } 1923 closedir(sys_dir); 1924 1925 if (!evt_num_known) { 1926 evt_num_known = true; 1927 goto restart; 1928 } 1929 qsort(evt_list, evt_num, sizeof(char *), cmp_string); 1930 evt_i = 0; 1931 while (evt_i < evt_num) { 1932 if (name_only) { 1933 printf("%s ", evt_list[evt_i++]); 1934 continue; 1935 } 1936 printf(" %-50s [%s]\n", evt_list[evt_i++], 1937 event_type_descriptors[PERF_TYPE_TRACEPOINT]); 1938 } 1939 if (evt_num && pager_in_use()) 1940 printf("\n"); 1941 1942 out_free: 1943 evt_num = evt_i; 1944 for (evt_i = 0; evt_i < evt_num; evt_i++) 1945 zfree(&evt_list[evt_i]); 1946 zfree(&evt_list); 1947 return; 1948 1949 out_close_evt_dir: 1950 closedir(evt_dir); 1951 out_close_sys_dir: 1952 closedir(sys_dir); 1953 1954 printf("FATAL: not enough memory to print %s\n", 1955 event_type_descriptors[PERF_TYPE_TRACEPOINT]); 1956 if (evt_list) 1957 goto out_free; 1958 } 1959 1960 /* 1961 * Check whether event is in <debugfs_mount_point>/tracing/events 1962 */ 1963 1964 int is_valid_tracepoint(const char *event_string) 1965 { 1966 DIR *sys_dir, *evt_dir; 1967 struct dirent *sys_dirent, *evt_dirent; 1968 char evt_path[MAXPATHLEN]; 1969 char dir_path[MAXPATHLEN]; 1970 1971 sys_dir = opendir(tracing_events_path); 1972 if (!sys_dir) 1973 return 0; 1974 1975 for_each_subsystem(sys_dir, sys_dirent) { 1976 1977 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path, 1978 sys_dirent->d_name); 1979 evt_dir = opendir(dir_path); 1980 if (!evt_dir) 1981 continue; 1982 1983 for_each_event(sys_dirent, evt_dir, evt_dirent) { 1984 snprintf(evt_path, MAXPATHLEN, "%s:%s", 1985 sys_dirent->d_name, evt_dirent->d_name); 1986 if (!strcmp(evt_path, event_string)) { 1987 closedir(evt_dir); 1988 closedir(sys_dir); 1989 return 1; 1990 } 1991 } 1992 closedir(evt_dir); 1993 } 1994 closedir(sys_dir); 1995 return 0; 1996 } 1997 1998 static bool is_event_supported(u8 type, unsigned config) 1999 { 2000 bool ret = true; 2001 int open_return; 2002 struct perf_evsel *evsel; 2003 struct perf_event_attr attr = { 2004 .type = type, 2005 .config = config, 2006 .disabled = 1, 2007 }; 2008 struct { 2009 struct thread_map map; 2010 int threads[1]; 2011 } tmap = { 2012 .map.nr = 1, 2013 .threads = { 0 }, 2014 }; 2015 2016 evsel = perf_evsel__new(&attr); 2017 if (evsel) { 2018 open_return = perf_evsel__open(evsel, NULL, &tmap.map); 2019 ret = open_return >= 0; 2020 2021 if (open_return == -EACCES) { 2022 /* 2023 * This happens if the paranoid value 2024 * /proc/sys/kernel/perf_event_paranoid is set to 2 2025 * Re-run with exclude_kernel set; we don't do that 2026 * by default as some ARM machines do not support it. 2027 * 2028 */ 2029 evsel->attr.exclude_kernel = 1; 2030 ret = perf_evsel__open(evsel, NULL, &tmap.map) >= 0; 2031 } 2032 perf_evsel__delete(evsel); 2033 } 2034 2035 return ret; 2036 } 2037 2038 void print_sdt_events(const char *subsys_glob, const char *event_glob, 2039 bool name_only) 2040 { 2041 struct probe_cache *pcache; 2042 struct probe_cache_entry *ent; 2043 struct strlist *bidlist, *sdtlist; 2044 struct strlist_config cfg = {.dont_dupstr = true}; 2045 struct str_node *nd, *nd2; 2046 char *buf, *path, *ptr = NULL; 2047 bool show_detail = false; 2048 int ret; 2049 2050 sdtlist = strlist__new(NULL, &cfg); 2051 if (!sdtlist) { 2052 pr_debug("Failed to allocate new strlist for SDT\n"); 2053 return; 2054 } 2055 bidlist = build_id_cache__list_all(true); 2056 if (!bidlist) { 2057 pr_debug("Failed to get buildids: %d\n", errno); 2058 return; 2059 } 2060 strlist__for_each_entry(nd, bidlist) { 2061 pcache = probe_cache__new(nd->s); 2062 if (!pcache) 2063 continue; 2064 list_for_each_entry(ent, &pcache->entries, node) { 2065 if (!ent->sdt) 2066 continue; 2067 if (subsys_glob && 2068 !strglobmatch(ent->pev.group, subsys_glob)) 2069 continue; 2070 if (event_glob && 2071 !strglobmatch(ent->pev.event, event_glob)) 2072 continue; 2073 ret = asprintf(&buf, "%s:%s@%s", ent->pev.group, 2074 ent->pev.event, nd->s); 2075 if (ret > 0) 2076 strlist__add(sdtlist, buf); 2077 } 2078 probe_cache__delete(pcache); 2079 } 2080 strlist__delete(bidlist); 2081 2082 strlist__for_each_entry(nd, sdtlist) { 2083 buf = strchr(nd->s, '@'); 2084 if (buf) 2085 *(buf++) = '\0'; 2086 if (name_only) { 2087 printf("%s ", nd->s); 2088 continue; 2089 } 2090 nd2 = strlist__next(nd); 2091 if (nd2) { 2092 ptr = strchr(nd2->s, '@'); 2093 if (ptr) 2094 *ptr = '\0'; 2095 if (strcmp(nd->s, nd2->s) == 0) 2096 show_detail = true; 2097 } 2098 if (show_detail) { 2099 path = build_id_cache__origname(buf); 2100 ret = asprintf(&buf, "%s@%s(%.12s)", nd->s, path, buf); 2101 if (ret > 0) { 2102 printf(" %-50s [%s]\n", buf, "SDT event"); 2103 free(buf); 2104 } 2105 } else 2106 printf(" %-50s [%s]\n", nd->s, "SDT event"); 2107 if (nd2) { 2108 if (strcmp(nd->s, nd2->s) != 0) 2109 show_detail = false; 2110 if (ptr) 2111 *ptr = '@'; 2112 } 2113 } 2114 strlist__delete(sdtlist); 2115 } 2116 2117 int print_hwcache_events(const char *event_glob, bool name_only) 2118 { 2119 unsigned int type, op, i, evt_i = 0, evt_num = 0; 2120 char name[64]; 2121 char **evt_list = NULL; 2122 bool evt_num_known = false; 2123 2124 restart: 2125 if (evt_num_known) { 2126 evt_list = zalloc(sizeof(char *) * evt_num); 2127 if (!evt_list) 2128 goto out_enomem; 2129 } 2130 2131 for (type = 0; type < PERF_COUNT_HW_CACHE_MAX; type++) { 2132 for (op = 0; op < PERF_COUNT_HW_CACHE_OP_MAX; op++) { 2133 /* skip invalid cache type */ 2134 if (!perf_evsel__is_cache_op_valid(type, op)) 2135 continue; 2136 2137 for (i = 0; i < PERF_COUNT_HW_CACHE_RESULT_MAX; i++) { 2138 __perf_evsel__hw_cache_type_op_res_name(type, op, i, 2139 name, sizeof(name)); 2140 if (event_glob != NULL && !strglobmatch(name, event_glob)) 2141 continue; 2142 2143 if (!is_event_supported(PERF_TYPE_HW_CACHE, 2144 type | (op << 8) | (i << 16))) 2145 continue; 2146 2147 if (!evt_num_known) { 2148 evt_num++; 2149 continue; 2150 } 2151 2152 evt_list[evt_i] = strdup(name); 2153 if (evt_list[evt_i] == NULL) 2154 goto out_enomem; 2155 evt_i++; 2156 } 2157 } 2158 } 2159 2160 if (!evt_num_known) { 2161 evt_num_known = true; 2162 goto restart; 2163 } 2164 qsort(evt_list, evt_num, sizeof(char *), cmp_string); 2165 evt_i = 0; 2166 while (evt_i < evt_num) { 2167 if (name_only) { 2168 printf("%s ", evt_list[evt_i++]); 2169 continue; 2170 } 2171 printf(" %-50s [%s]\n", evt_list[evt_i++], 2172 event_type_descriptors[PERF_TYPE_HW_CACHE]); 2173 } 2174 if (evt_num && pager_in_use()) 2175 printf("\n"); 2176 2177 out_free: 2178 evt_num = evt_i; 2179 for (evt_i = 0; evt_i < evt_num; evt_i++) 2180 zfree(&evt_list[evt_i]); 2181 zfree(&evt_list); 2182 return evt_num; 2183 2184 out_enomem: 2185 printf("FATAL: not enough memory to print %s\n", event_type_descriptors[PERF_TYPE_HW_CACHE]); 2186 if (evt_list) 2187 goto out_free; 2188 return evt_num; 2189 } 2190 2191 void print_symbol_events(const char *event_glob, unsigned type, 2192 struct event_symbol *syms, unsigned max, 2193 bool name_only) 2194 { 2195 unsigned int i, evt_i = 0, evt_num = 0; 2196 char name[MAX_NAME_LEN]; 2197 char **evt_list = NULL; 2198 bool evt_num_known = false; 2199 2200 restart: 2201 if (evt_num_known) { 2202 evt_list = zalloc(sizeof(char *) * evt_num); 2203 if (!evt_list) 2204 goto out_enomem; 2205 syms -= max; 2206 } 2207 2208 for (i = 0; i < max; i++, syms++) { 2209 2210 if (event_glob != NULL && syms->symbol != NULL && 2211 !(strglobmatch(syms->symbol, event_glob) || 2212 (syms->alias && strglobmatch(syms->alias, event_glob)))) 2213 continue; 2214 2215 if (!is_event_supported(type, i)) 2216 continue; 2217 2218 if (!evt_num_known) { 2219 evt_num++; 2220 continue; 2221 } 2222 2223 if (!name_only && strlen(syms->alias)) 2224 snprintf(name, MAX_NAME_LEN, "%s OR %s", syms->symbol, syms->alias); 2225 else 2226 strncpy(name, syms->symbol, MAX_NAME_LEN); 2227 2228 evt_list[evt_i] = strdup(name); 2229 if (evt_list[evt_i] == NULL) 2230 goto out_enomem; 2231 evt_i++; 2232 } 2233 2234 if (!evt_num_known) { 2235 evt_num_known = true; 2236 goto restart; 2237 } 2238 qsort(evt_list, evt_num, sizeof(char *), cmp_string); 2239 evt_i = 0; 2240 while (evt_i < evt_num) { 2241 if (name_only) { 2242 printf("%s ", evt_list[evt_i++]); 2243 continue; 2244 } 2245 printf(" %-50s [%s]\n", evt_list[evt_i++], event_type_descriptors[type]); 2246 } 2247 if (evt_num && pager_in_use()) 2248 printf("\n"); 2249 2250 out_free: 2251 evt_num = evt_i; 2252 for (evt_i = 0; evt_i < evt_num; evt_i++) 2253 zfree(&evt_list[evt_i]); 2254 zfree(&evt_list); 2255 return; 2256 2257 out_enomem: 2258 printf("FATAL: not enough memory to print %s\n", event_type_descriptors[type]); 2259 if (evt_list) 2260 goto out_free; 2261 } 2262 2263 /* 2264 * Print the help text for the event symbols: 2265 */ 2266 void print_events(const char *event_glob, bool name_only) 2267 { 2268 print_symbol_events(event_glob, PERF_TYPE_HARDWARE, 2269 event_symbols_hw, PERF_COUNT_HW_MAX, name_only); 2270 2271 print_symbol_events(event_glob, PERF_TYPE_SOFTWARE, 2272 event_symbols_sw, PERF_COUNT_SW_MAX, name_only); 2273 2274 print_hwcache_events(event_glob, name_only); 2275 2276 print_pmu_events(event_glob, name_only); 2277 2278 if (event_glob != NULL) 2279 return; 2280 2281 if (!name_only) { 2282 printf(" %-50s [%s]\n", 2283 "rNNN", 2284 event_type_descriptors[PERF_TYPE_RAW]); 2285 printf(" %-50s [%s]\n", 2286 "cpu/t1=v1[,t2=v2,t3 ...]/modifier", 2287 event_type_descriptors[PERF_TYPE_RAW]); 2288 if (pager_in_use()) 2289 printf(" (see 'man perf-list' on how to encode it)\n\n"); 2290 2291 printf(" %-50s [%s]\n", 2292 "mem:<addr>[/len][:access]", 2293 event_type_descriptors[PERF_TYPE_BREAKPOINT]); 2294 if (pager_in_use()) 2295 printf("\n"); 2296 } 2297 2298 print_tracepoint_events(NULL, NULL, name_only); 2299 2300 print_sdt_events(NULL, NULL, name_only); 2301 } 2302 2303 int parse_events__is_hardcoded_term(struct parse_events_term *term) 2304 { 2305 return term->type_term != PARSE_EVENTS__TERM_TYPE_USER; 2306 } 2307 2308 static int new_term(struct parse_events_term **_term, int type_val, 2309 int type_term, char *config, 2310 char *str, u64 num, int err_term, int err_val) 2311 { 2312 struct parse_events_term *term; 2313 2314 term = zalloc(sizeof(*term)); 2315 if (!term) 2316 return -ENOMEM; 2317 2318 INIT_LIST_HEAD(&term->list); 2319 term->type_val = type_val; 2320 term->type_term = type_term; 2321 term->config = config; 2322 term->err_term = err_term; 2323 term->err_val = err_val; 2324 2325 switch (type_val) { 2326 case PARSE_EVENTS__TERM_TYPE_NUM: 2327 term->val.num = num; 2328 break; 2329 case PARSE_EVENTS__TERM_TYPE_STR: 2330 term->val.str = str; 2331 break; 2332 default: 2333 free(term); 2334 return -EINVAL; 2335 } 2336 2337 *_term = term; 2338 return 0; 2339 } 2340 2341 int parse_events_term__num(struct parse_events_term **term, 2342 int type_term, char *config, u64 num, 2343 void *loc_term_, void *loc_val_) 2344 { 2345 YYLTYPE *loc_term = loc_term_; 2346 YYLTYPE *loc_val = loc_val_; 2347 2348 return new_term(term, PARSE_EVENTS__TERM_TYPE_NUM, type_term, 2349 config, NULL, num, 2350 loc_term ? loc_term->first_column : 0, 2351 loc_val ? loc_val->first_column : 0); 2352 } 2353 2354 int parse_events_term__str(struct parse_events_term **term, 2355 int type_term, char *config, char *str, 2356 void *loc_term_, void *loc_val_) 2357 { 2358 YYLTYPE *loc_term = loc_term_; 2359 YYLTYPE *loc_val = loc_val_; 2360 2361 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR, type_term, 2362 config, str, 0, 2363 loc_term ? loc_term->first_column : 0, 2364 loc_val ? loc_val->first_column : 0); 2365 } 2366 2367 int parse_events_term__sym_hw(struct parse_events_term **term, 2368 char *config, unsigned idx) 2369 { 2370 struct event_symbol *sym; 2371 2372 BUG_ON(idx >= PERF_COUNT_HW_MAX); 2373 sym = &event_symbols_hw[idx]; 2374 2375 if (config) 2376 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR, 2377 PARSE_EVENTS__TERM_TYPE_USER, config, 2378 (char *) sym->symbol, 0, 0, 0); 2379 else 2380 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR, 2381 PARSE_EVENTS__TERM_TYPE_USER, 2382 (char *) "event", (char *) sym->symbol, 2383 0, 0, 0); 2384 } 2385 2386 int parse_events_term__clone(struct parse_events_term **new, 2387 struct parse_events_term *term) 2388 { 2389 return new_term(new, term->type_val, term->type_term, term->config, 2390 term->val.str, term->val.num, 2391 term->err_term, term->err_val); 2392 } 2393 2394 void parse_events_terms__purge(struct list_head *terms) 2395 { 2396 struct parse_events_term *term, *h; 2397 2398 list_for_each_entry_safe(term, h, terms, list) { 2399 if (term->array.nr_ranges) 2400 free(term->array.ranges); 2401 list_del_init(&term->list); 2402 free(term); 2403 } 2404 } 2405 2406 void parse_events_terms__delete(struct list_head *terms) 2407 { 2408 if (!terms) 2409 return; 2410 parse_events_terms__purge(terms); 2411 free(terms); 2412 } 2413 2414 void parse_events__clear_array(struct parse_events_array *a) 2415 { 2416 free(a->ranges); 2417 } 2418 2419 void parse_events_evlist_error(struct parse_events_evlist *data, 2420 int idx, const char *str) 2421 { 2422 struct parse_events_error *err = data->error; 2423 2424 if (!err) 2425 return; 2426 err->idx = idx; 2427 err->str = strdup(str); 2428 WARN_ONCE(!err->str, "WARNING: failed to allocate error string"); 2429 } 2430 2431 static void config_terms_list(char *buf, size_t buf_sz) 2432 { 2433 int i; 2434 bool first = true; 2435 2436 buf[0] = '\0'; 2437 for (i = 0; i < __PARSE_EVENTS__TERM_TYPE_NR; i++) { 2438 const char *name = config_term_names[i]; 2439 2440 if (!config_term_avail(i, NULL)) 2441 continue; 2442 if (!name) 2443 continue; 2444 if (name[0] == '<') 2445 continue; 2446 2447 if (strlen(buf) + strlen(name) + 2 >= buf_sz) 2448 return; 2449 2450 if (!first) 2451 strcat(buf, ","); 2452 else 2453 first = false; 2454 strcat(buf, name); 2455 } 2456 } 2457 2458 /* 2459 * Return string contains valid config terms of an event. 2460 * @additional_terms: For terms such as PMU sysfs terms. 2461 */ 2462 char *parse_events_formats_error_string(char *additional_terms) 2463 { 2464 char *str; 2465 /* "no-overwrite" is the longest name */ 2466 char static_terms[__PARSE_EVENTS__TERM_TYPE_NR * 2467 (sizeof("no-overwrite") - 1)]; 2468 2469 config_terms_list(static_terms, sizeof(static_terms)); 2470 /* valid terms */ 2471 if (additional_terms) { 2472 if (asprintf(&str, "valid terms: %s,%s", 2473 additional_terms, static_terms) < 0) 2474 goto fail; 2475 } else { 2476 if (asprintf(&str, "valid terms: %s", static_terms) < 0) 2477 goto fail; 2478 } 2479 return str; 2480 2481 fail: 2482 return NULL; 2483 } 2484