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