Loading...
1/*
2 * probe-event.c : perf-probe definition to probe_events format converter
3 *
4 * Written by Masami Hiramatsu <mhiramat@redhat.com>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19 *
20 */
21
22#include <sys/utsname.h>
23#include <sys/types.h>
24#include <sys/stat.h>
25#include <fcntl.h>
26#include <errno.h>
27#include <stdio.h>
28#include <unistd.h>
29#include <stdlib.h>
30#include <string.h>
31#include <stdarg.h>
32#include <limits.h>
33#include <elf.h>
34
35#include "util.h"
36#include "event.h"
37#include "strlist.h"
38#include "debug.h"
39#include "cache.h"
40#include "color.h"
41#include "symbol.h"
42#include "thread.h"
43#include "debugfs.h"
44#include "trace-event.h" /* For __unused */
45#include "probe-event.h"
46#include "probe-finder.h"
47#include "session.h"
48
49#define MAX_CMDLEN 256
50#define MAX_PROBE_ARGS 128
51#define PERFPROBE_GROUP "probe"
52
53bool probe_event_dry_run; /* Dry run flag */
54
55#define semantic_error(msg ...) pr_err("Semantic error :" msg)
56
57/* If there is no space to write, returns -E2BIG. */
58static int e_snprintf(char *str, size_t size, const char *format, ...)
59 __attribute__((format(printf, 3, 4)));
60
61static int e_snprintf(char *str, size_t size, const char *format, ...)
62{
63 int ret;
64 va_list ap;
65 va_start(ap, format);
66 ret = vsnprintf(str, size, format, ap);
67 va_end(ap);
68 if (ret >= (int)size)
69 ret = -E2BIG;
70 return ret;
71}
72
73static char *synthesize_perf_probe_point(struct perf_probe_point *pp);
74static int convert_name_to_addr(struct perf_probe_event *pev,
75 const char *exec);
76static struct machine machine;
77
78/* Initialize symbol maps and path of vmlinux/modules */
79static int init_vmlinux(void)
80{
81 int ret;
82
83 symbol_conf.sort_by_name = true;
84 if (symbol_conf.vmlinux_name == NULL)
85 symbol_conf.try_vmlinux_path = true;
86 else
87 pr_debug("Use vmlinux: %s\n", symbol_conf.vmlinux_name);
88 ret = symbol__init();
89 if (ret < 0) {
90 pr_debug("Failed to init symbol map.\n");
91 goto out;
92 }
93
94 ret = machine__init(&machine, "", HOST_KERNEL_ID);
95 if (ret < 0)
96 goto out;
97
98 if (machine__create_kernel_maps(&machine) < 0) {
99 pr_debug("machine__create_kernel_maps() failed.\n");
100 goto out;
101 }
102out:
103 if (ret < 0)
104 pr_warning("Failed to init vmlinux path.\n");
105 return ret;
106}
107
108static struct symbol *__find_kernel_function_by_name(const char *name,
109 struct map **mapp)
110{
111 return machine__find_kernel_function_by_name(&machine, name, mapp,
112 NULL);
113}
114
115static struct map *kernel_get_module_map(const char *module)
116{
117 struct rb_node *nd;
118 struct map_groups *grp = &machine.kmaps;
119
120 /* A file path -- this is an offline module */
121 if (module && strchr(module, '/'))
122 return machine__new_module(&machine, 0, module);
123
124 if (!module)
125 module = "kernel";
126
127 for (nd = rb_first(&grp->maps[MAP__FUNCTION]); nd; nd = rb_next(nd)) {
128 struct map *pos = rb_entry(nd, struct map, rb_node);
129 if (strncmp(pos->dso->short_name + 1, module,
130 pos->dso->short_name_len - 2) == 0) {
131 return pos;
132 }
133 }
134 return NULL;
135}
136
137static struct dso *kernel_get_module_dso(const char *module)
138{
139 struct dso *dso;
140 struct map *map;
141 const char *vmlinux_name;
142
143 if (module) {
144 list_for_each_entry(dso, &machine.kernel_dsos, node) {
145 if (strncmp(dso->short_name + 1, module,
146 dso->short_name_len - 2) == 0)
147 goto found;
148 }
149 pr_debug("Failed to find module %s.\n", module);
150 return NULL;
151 }
152
153 map = machine.vmlinux_maps[MAP__FUNCTION];
154 dso = map->dso;
155
156 vmlinux_name = symbol_conf.vmlinux_name;
157 if (vmlinux_name) {
158 if (dso__load_vmlinux(dso, map, vmlinux_name, NULL) <= 0)
159 return NULL;
160 } else {
161 if (dso__load_vmlinux_path(dso, map, NULL) <= 0) {
162 pr_debug("Failed to load kernel map.\n");
163 return NULL;
164 }
165 }
166found:
167 return dso;
168}
169
170const char *kernel_get_module_path(const char *module)
171{
172 struct dso *dso = kernel_get_module_dso(module);
173 return (dso) ? dso->long_name : NULL;
174}
175
176static int init_user_exec(void)
177{
178 int ret = 0;
179
180 symbol_conf.try_vmlinux_path = false;
181 symbol_conf.sort_by_name = true;
182 ret = symbol__init();
183
184 if (ret < 0)
185 pr_debug("Failed to init symbol map.\n");
186
187 return ret;
188}
189
190static int convert_to_perf_probe_point(struct probe_trace_point *tp,
191 struct perf_probe_point *pp)
192{
193 pp->function = strdup(tp->symbol);
194
195 if (pp->function == NULL)
196 return -ENOMEM;
197
198 pp->offset = tp->offset;
199 pp->retprobe = tp->retprobe;
200
201 return 0;
202}
203
204#ifdef DWARF_SUPPORT
205/* Open new debuginfo of given module */
206static struct debuginfo *open_debuginfo(const char *module)
207{
208 const char *path;
209
210 /* A file path -- this is an offline module */
211 if (module && strchr(module, '/'))
212 path = module;
213 else {
214 path = kernel_get_module_path(module);
215
216 if (!path) {
217 pr_err("Failed to find path of %s module.\n",
218 module ?: "kernel");
219 return NULL;
220 }
221 }
222 return debuginfo__new(path);
223}
224
225/*
226 * Convert trace point to probe point with debuginfo
227 * Currently only handles kprobes.
228 */
229static int kprobe_convert_to_perf_probe(struct probe_trace_point *tp,
230 struct perf_probe_point *pp)
231{
232 struct symbol *sym;
233 struct map *map;
234 u64 addr;
235 int ret = -ENOENT;
236 struct debuginfo *dinfo;
237
238 sym = __find_kernel_function_by_name(tp->symbol, &map);
239 if (sym) {
240 addr = map->unmap_ip(map, sym->start + tp->offset);
241 pr_debug("try to find %s+%ld@%" PRIx64 "\n", tp->symbol,
242 tp->offset, addr);
243
244 dinfo = debuginfo__new_online_kernel(addr);
245 if (dinfo) {
246 ret = debuginfo__find_probe_point(dinfo,
247 (unsigned long)addr, pp);
248 debuginfo__delete(dinfo);
249 } else {
250 pr_debug("Failed to open debuginfo at 0x%" PRIx64 "\n",
251 addr);
252 ret = -ENOENT;
253 }
254 }
255 if (ret <= 0) {
256 pr_debug("Failed to find corresponding probes from "
257 "debuginfo. Use kprobe event information.\n");
258 return convert_to_perf_probe_point(tp, pp);
259 }
260 pp->retprobe = tp->retprobe;
261
262 return 0;
263}
264
265static int add_module_to_probe_trace_events(struct probe_trace_event *tevs,
266 int ntevs, const char *module)
267{
268 int i, ret = 0;
269 char *tmp;
270
271 if (!module)
272 return 0;
273
274 tmp = strrchr(module, '/');
275 if (tmp) {
276 /* This is a module path -- get the module name */
277 module = strdup(tmp + 1);
278 if (!module)
279 return -ENOMEM;
280 tmp = strchr(module, '.');
281 if (tmp)
282 *tmp = '\0';
283 tmp = (char *)module; /* For free() */
284 }
285
286 for (i = 0; i < ntevs; i++) {
287 tevs[i].point.module = strdup(module);
288 if (!tevs[i].point.module) {
289 ret = -ENOMEM;
290 break;
291 }
292 }
293
294 if (tmp)
295 free(tmp);
296
297 return ret;
298}
299
300/* Try to find perf_probe_event with debuginfo */
301static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
302 struct probe_trace_event **tevs,
303 int max_tevs, const char *target)
304{
305 bool need_dwarf = perf_probe_event_need_dwarf(pev);
306 struct debuginfo *dinfo;
307 int ntevs, ret = 0;
308
309 if (pev->uprobes) {
310 if (need_dwarf) {
311 pr_warning("Debuginfo-analysis is not yet supported"
312 " with -x/--exec option.\n");
313 return -ENOSYS;
314 }
315 return convert_name_to_addr(pev, target);
316 }
317
318 dinfo = open_debuginfo(target);
319
320 if (!dinfo) {
321 if (need_dwarf) {
322 pr_warning("Failed to open debuginfo file.\n");
323 return -ENOENT;
324 }
325 pr_debug("Could not open debuginfo. Try to use symbols.\n");
326 return 0;
327 }
328
329 /* Searching trace events corresponding to a probe event */
330 ntevs = debuginfo__find_trace_events(dinfo, pev, tevs, max_tevs);
331
332 debuginfo__delete(dinfo);
333
334 if (ntevs > 0) { /* Succeeded to find trace events */
335 pr_debug("find %d probe_trace_events.\n", ntevs);
336 if (target)
337 ret = add_module_to_probe_trace_events(*tevs, ntevs,
338 target);
339 return ret < 0 ? ret : ntevs;
340 }
341
342 if (ntevs == 0) { /* No error but failed to find probe point. */
343 pr_warning("Probe point '%s' not found.\n",
344 synthesize_perf_probe_point(&pev->point));
345 return -ENOENT;
346 }
347 /* Error path : ntevs < 0 */
348 pr_debug("An error occurred in debuginfo analysis (%d).\n", ntevs);
349 if (ntevs == -EBADF) {
350 pr_warning("Warning: No dwarf info found in the vmlinux - "
351 "please rebuild kernel with CONFIG_DEBUG_INFO=y.\n");
352 if (!need_dwarf) {
353 pr_debug("Trying to use symbols.\n");
354 return 0;
355 }
356 }
357 return ntevs;
358}
359
360/*
361 * Find a src file from a DWARF tag path. Prepend optional source path prefix
362 * and chop off leading directories that do not exist. Result is passed back as
363 * a newly allocated path on success.
364 * Return 0 if file was found and readable, -errno otherwise.
365 */
366static int get_real_path(const char *raw_path, const char *comp_dir,
367 char **new_path)
368{
369 const char *prefix = symbol_conf.source_prefix;
370
371 if (!prefix) {
372 if (raw_path[0] != '/' && comp_dir)
373 /* If not an absolute path, try to use comp_dir */
374 prefix = comp_dir;
375 else {
376 if (access(raw_path, R_OK) == 0) {
377 *new_path = strdup(raw_path);
378 return 0;
379 } else
380 return -errno;
381 }
382 }
383
384 *new_path = malloc((strlen(prefix) + strlen(raw_path) + 2));
385 if (!*new_path)
386 return -ENOMEM;
387
388 for (;;) {
389 sprintf(*new_path, "%s/%s", prefix, raw_path);
390
391 if (access(*new_path, R_OK) == 0)
392 return 0;
393
394 if (!symbol_conf.source_prefix)
395 /* In case of searching comp_dir, don't retry */
396 return -errno;
397
398 switch (errno) {
399 case ENAMETOOLONG:
400 case ENOENT:
401 case EROFS:
402 case EFAULT:
403 raw_path = strchr(++raw_path, '/');
404 if (!raw_path) {
405 free(*new_path);
406 *new_path = NULL;
407 return -ENOENT;
408 }
409 continue;
410
411 default:
412 free(*new_path);
413 *new_path = NULL;
414 return -errno;
415 }
416 }
417}
418
419#define LINEBUF_SIZE 256
420#define NR_ADDITIONAL_LINES 2
421
422static int __show_one_line(FILE *fp, int l, bool skip, bool show_num)
423{
424 char buf[LINEBUF_SIZE];
425 const char *color = show_num ? "" : PERF_COLOR_BLUE;
426 const char *prefix = NULL;
427
428 do {
429 if (fgets(buf, LINEBUF_SIZE, fp) == NULL)
430 goto error;
431 if (skip)
432 continue;
433 if (!prefix) {
434 prefix = show_num ? "%7d " : " ";
435 color_fprintf(stdout, color, prefix, l);
436 }
437 color_fprintf(stdout, color, "%s", buf);
438
439 } while (strchr(buf, '\n') == NULL);
440
441 return 1;
442error:
443 if (ferror(fp)) {
444 pr_warning("File read error: %s\n", strerror(errno));
445 return -1;
446 }
447 return 0;
448}
449
450static int _show_one_line(FILE *fp, int l, bool skip, bool show_num)
451{
452 int rv = __show_one_line(fp, l, skip, show_num);
453 if (rv == 0) {
454 pr_warning("Source file is shorter than expected.\n");
455 rv = -1;
456 }
457 return rv;
458}
459
460#define show_one_line_with_num(f,l) _show_one_line(f,l,false,true)
461#define show_one_line(f,l) _show_one_line(f,l,false,false)
462#define skip_one_line(f,l) _show_one_line(f,l,true,false)
463#define show_one_line_or_eof(f,l) __show_one_line(f,l,false,false)
464
465/*
466 * Show line-range always requires debuginfo to find source file and
467 * line number.
468 */
469int show_line_range(struct line_range *lr, const char *module)
470{
471 int l = 1;
472 struct line_node *ln;
473 struct debuginfo *dinfo;
474 FILE *fp;
475 int ret;
476 char *tmp;
477
478 /* Search a line range */
479 ret = init_vmlinux();
480 if (ret < 0)
481 return ret;
482
483 dinfo = open_debuginfo(module);
484 if (!dinfo) {
485 pr_warning("Failed to open debuginfo file.\n");
486 return -ENOENT;
487 }
488
489 ret = debuginfo__find_line_range(dinfo, lr);
490 debuginfo__delete(dinfo);
491 if (ret == 0) {
492 pr_warning("Specified source line is not found.\n");
493 return -ENOENT;
494 } else if (ret < 0) {
495 pr_warning("Debuginfo analysis failed. (%d)\n", ret);
496 return ret;
497 }
498
499 /* Convert source file path */
500 tmp = lr->path;
501 ret = get_real_path(tmp, lr->comp_dir, &lr->path);
502 free(tmp); /* Free old path */
503 if (ret < 0) {
504 pr_warning("Failed to find source file. (%d)\n", ret);
505 return ret;
506 }
507
508 setup_pager();
509
510 if (lr->function)
511 fprintf(stdout, "<%s@%s:%d>\n", lr->function, lr->path,
512 lr->start - lr->offset);
513 else
514 fprintf(stdout, "<%s:%d>\n", lr->path, lr->start);
515
516 fp = fopen(lr->path, "r");
517 if (fp == NULL) {
518 pr_warning("Failed to open %s: %s\n", lr->path,
519 strerror(errno));
520 return -errno;
521 }
522 /* Skip to starting line number */
523 while (l < lr->start) {
524 ret = skip_one_line(fp, l++);
525 if (ret < 0)
526 goto end;
527 }
528
529 list_for_each_entry(ln, &lr->line_list, list) {
530 for (; ln->line > l; l++) {
531 ret = show_one_line(fp, l - lr->offset);
532 if (ret < 0)
533 goto end;
534 }
535 ret = show_one_line_with_num(fp, l++ - lr->offset);
536 if (ret < 0)
537 goto end;
538 }
539
540 if (lr->end == INT_MAX)
541 lr->end = l + NR_ADDITIONAL_LINES;
542 while (l <= lr->end) {
543 ret = show_one_line_or_eof(fp, l++ - lr->offset);
544 if (ret <= 0)
545 break;
546 }
547end:
548 fclose(fp);
549 return ret;
550}
551
552static int show_available_vars_at(struct debuginfo *dinfo,
553 struct perf_probe_event *pev,
554 int max_vls, struct strfilter *_filter,
555 bool externs)
556{
557 char *buf;
558 int ret, i, nvars;
559 struct str_node *node;
560 struct variable_list *vls = NULL, *vl;
561 const char *var;
562
563 buf = synthesize_perf_probe_point(&pev->point);
564 if (!buf)
565 return -EINVAL;
566 pr_debug("Searching variables at %s\n", buf);
567
568 ret = debuginfo__find_available_vars_at(dinfo, pev, &vls,
569 max_vls, externs);
570 if (ret <= 0) {
571 pr_err("Failed to find variables at %s (%d)\n", buf, ret);
572 goto end;
573 }
574 /* Some variables are found */
575 fprintf(stdout, "Available variables at %s\n", buf);
576 for (i = 0; i < ret; i++) {
577 vl = &vls[i];
578 /*
579 * A probe point might be converted to
580 * several trace points.
581 */
582 fprintf(stdout, "\t@<%s+%lu>\n", vl->point.symbol,
583 vl->point.offset);
584 free(vl->point.symbol);
585 nvars = 0;
586 if (vl->vars) {
587 strlist__for_each(node, vl->vars) {
588 var = strchr(node->s, '\t') + 1;
589 if (strfilter__compare(_filter, var)) {
590 fprintf(stdout, "\t\t%s\n", node->s);
591 nvars++;
592 }
593 }
594 strlist__delete(vl->vars);
595 }
596 if (nvars == 0)
597 fprintf(stdout, "\t\t(No matched variables)\n");
598 }
599 free(vls);
600end:
601 free(buf);
602 return ret;
603}
604
605/* Show available variables on given probe point */
606int show_available_vars(struct perf_probe_event *pevs, int npevs,
607 int max_vls, const char *module,
608 struct strfilter *_filter, bool externs)
609{
610 int i, ret = 0;
611 struct debuginfo *dinfo;
612
613 ret = init_vmlinux();
614 if (ret < 0)
615 return ret;
616
617 dinfo = open_debuginfo(module);
618 if (!dinfo) {
619 pr_warning("Failed to open debuginfo file.\n");
620 return -ENOENT;
621 }
622
623 setup_pager();
624
625 for (i = 0; i < npevs && ret >= 0; i++)
626 ret = show_available_vars_at(dinfo, &pevs[i], max_vls, _filter,
627 externs);
628
629 debuginfo__delete(dinfo);
630 return ret;
631}
632
633#else /* !DWARF_SUPPORT */
634
635static int kprobe_convert_to_perf_probe(struct probe_trace_point *tp,
636 struct perf_probe_point *pp)
637{
638 struct symbol *sym;
639
640 sym = __find_kernel_function_by_name(tp->symbol, NULL);
641 if (!sym) {
642 pr_err("Failed to find symbol %s in kernel.\n", tp->symbol);
643 return -ENOENT;
644 }
645
646 return convert_to_perf_probe_point(tp, pp);
647}
648
649static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
650 struct probe_trace_event **tevs __unused,
651 int max_tevs __unused, const char *target)
652{
653 if (perf_probe_event_need_dwarf(pev)) {
654 pr_warning("Debuginfo-analysis is not supported.\n");
655 return -ENOSYS;
656 }
657
658 if (pev->uprobes)
659 return convert_name_to_addr(pev, target);
660
661 return 0;
662}
663
664int show_line_range(struct line_range *lr __unused, const char *module __unused)
665{
666 pr_warning("Debuginfo-analysis is not supported.\n");
667 return -ENOSYS;
668}
669
670int show_available_vars(struct perf_probe_event *pevs __unused,
671 int npevs __unused, int max_vls __unused,
672 const char *module __unused,
673 struct strfilter *filter __unused,
674 bool externs __unused)
675{
676 pr_warning("Debuginfo-analysis is not supported.\n");
677 return -ENOSYS;
678}
679#endif
680
681static int parse_line_num(char **ptr, int *val, const char *what)
682{
683 const char *start = *ptr;
684
685 errno = 0;
686 *val = strtol(*ptr, ptr, 0);
687 if (errno || *ptr == start) {
688 semantic_error("'%s' is not a valid number.\n", what);
689 return -EINVAL;
690 }
691 return 0;
692}
693
694/*
695 * Stuff 'lr' according to the line range described by 'arg'.
696 * The line range syntax is described by:
697 *
698 * SRC[:SLN[+NUM|-ELN]]
699 * FNC[@SRC][:SLN[+NUM|-ELN]]
700 */
701int parse_line_range_desc(const char *arg, struct line_range *lr)
702{
703 char *range, *file, *name = strdup(arg);
704 int err;
705
706 if (!name)
707 return -ENOMEM;
708
709 lr->start = 0;
710 lr->end = INT_MAX;
711
712 range = strchr(name, ':');
713 if (range) {
714 *range++ = '\0';
715
716 err = parse_line_num(&range, &lr->start, "start line");
717 if (err)
718 goto err;
719
720 if (*range == '+' || *range == '-') {
721 const char c = *range++;
722
723 err = parse_line_num(&range, &lr->end, "end line");
724 if (err)
725 goto err;
726
727 if (c == '+') {
728 lr->end += lr->start;
729 /*
730 * Adjust the number of lines here.
731 * If the number of lines == 1, the
732 * the end of line should be equal to
733 * the start of line.
734 */
735 lr->end--;
736 }
737 }
738
739 pr_debug("Line range is %d to %d\n", lr->start, lr->end);
740
741 err = -EINVAL;
742 if (lr->start > lr->end) {
743 semantic_error("Start line must be smaller"
744 " than end line.\n");
745 goto err;
746 }
747 if (*range != '\0') {
748 semantic_error("Tailing with invalid str '%s'.\n", range);
749 goto err;
750 }
751 }
752
753 file = strchr(name, '@');
754 if (file) {
755 *file = '\0';
756 lr->file = strdup(++file);
757 if (lr->file == NULL) {
758 err = -ENOMEM;
759 goto err;
760 }
761 lr->function = name;
762 } else if (strchr(name, '.'))
763 lr->file = name;
764 else
765 lr->function = name;
766
767 return 0;
768err:
769 free(name);
770 return err;
771}
772
773/* Check the name is good for event/group */
774static bool check_event_name(const char *name)
775{
776 if (!isalpha(*name) && *name != '_')
777 return false;
778 while (*++name != '\0') {
779 if (!isalpha(*name) && !isdigit(*name) && *name != '_')
780 return false;
781 }
782 return true;
783}
784
785/* Parse probepoint definition. */
786static int parse_perf_probe_point(char *arg, struct perf_probe_event *pev)
787{
788 struct perf_probe_point *pp = &pev->point;
789 char *ptr, *tmp;
790 char c, nc = 0;
791 /*
792 * <Syntax>
793 * perf probe [EVENT=]SRC[:LN|;PTN]
794 * perf probe [EVENT=]FUNC[@SRC][+OFFS|%return|:LN|;PAT]
795 *
796 * TODO:Group name support
797 */
798
799 ptr = strpbrk(arg, ";=@+%");
800 if (ptr && *ptr == '=') { /* Event name */
801 *ptr = '\0';
802 tmp = ptr + 1;
803 if (strchr(arg, ':')) {
804 semantic_error("Group name is not supported yet.\n");
805 return -ENOTSUP;
806 }
807 if (!check_event_name(arg)) {
808 semantic_error("%s is bad for event name -it must "
809 "follow C symbol-naming rule.\n", arg);
810 return -EINVAL;
811 }
812 pev->event = strdup(arg);
813 if (pev->event == NULL)
814 return -ENOMEM;
815 pev->group = NULL;
816 arg = tmp;
817 }
818
819 ptr = strpbrk(arg, ";:+@%");
820 if (ptr) {
821 nc = *ptr;
822 *ptr++ = '\0';
823 }
824
825 tmp = strdup(arg);
826 if (tmp == NULL)
827 return -ENOMEM;
828
829 /* Check arg is function or file and copy it */
830 if (strchr(tmp, '.')) /* File */
831 pp->file = tmp;
832 else /* Function */
833 pp->function = tmp;
834
835 /* Parse other options */
836 while (ptr) {
837 arg = ptr;
838 c = nc;
839 if (c == ';') { /* Lazy pattern must be the last part */
840 pp->lazy_line = strdup(arg);
841 if (pp->lazy_line == NULL)
842 return -ENOMEM;
843 break;
844 }
845 ptr = strpbrk(arg, ";:+@%");
846 if (ptr) {
847 nc = *ptr;
848 *ptr++ = '\0';
849 }
850 switch (c) {
851 case ':': /* Line number */
852 pp->line = strtoul(arg, &tmp, 0);
853 if (*tmp != '\0') {
854 semantic_error("There is non-digit char"
855 " in line number.\n");
856 return -EINVAL;
857 }
858 break;
859 case '+': /* Byte offset from a symbol */
860 pp->offset = strtoul(arg, &tmp, 0);
861 if (*tmp != '\0') {
862 semantic_error("There is non-digit character"
863 " in offset.\n");
864 return -EINVAL;
865 }
866 break;
867 case '@': /* File name */
868 if (pp->file) {
869 semantic_error("SRC@SRC is not allowed.\n");
870 return -EINVAL;
871 }
872 pp->file = strdup(arg);
873 if (pp->file == NULL)
874 return -ENOMEM;
875 break;
876 case '%': /* Probe places */
877 if (strcmp(arg, "return") == 0) {
878 pp->retprobe = 1;
879 } else { /* Others not supported yet */
880 semantic_error("%%%s is not supported.\n", arg);
881 return -ENOTSUP;
882 }
883 break;
884 default: /* Buggy case */
885 pr_err("This program has a bug at %s:%d.\n",
886 __FILE__, __LINE__);
887 return -ENOTSUP;
888 break;
889 }
890 }
891
892 /* Exclusion check */
893 if (pp->lazy_line && pp->line) {
894 semantic_error("Lazy pattern can't be used with"
895 " line number.\n");
896 return -EINVAL;
897 }
898
899 if (pp->lazy_line && pp->offset) {
900 semantic_error("Lazy pattern can't be used with offset.\n");
901 return -EINVAL;
902 }
903
904 if (pp->line && pp->offset) {
905 semantic_error("Offset can't be used with line number.\n");
906 return -EINVAL;
907 }
908
909 if (!pp->line && !pp->lazy_line && pp->file && !pp->function) {
910 semantic_error("File always requires line number or "
911 "lazy pattern.\n");
912 return -EINVAL;
913 }
914
915 if (pp->offset && !pp->function) {
916 semantic_error("Offset requires an entry function.\n");
917 return -EINVAL;
918 }
919
920 if (pp->retprobe && !pp->function) {
921 semantic_error("Return probe requires an entry function.\n");
922 return -EINVAL;
923 }
924
925 if ((pp->offset || pp->line || pp->lazy_line) && pp->retprobe) {
926 semantic_error("Offset/Line/Lazy pattern can't be used with "
927 "return probe.\n");
928 return -EINVAL;
929 }
930
931 pr_debug("symbol:%s file:%s line:%d offset:%lu return:%d lazy:%s\n",
932 pp->function, pp->file, pp->line, pp->offset, pp->retprobe,
933 pp->lazy_line);
934 return 0;
935}
936
937/* Parse perf-probe event argument */
938static int parse_perf_probe_arg(char *str, struct perf_probe_arg *arg)
939{
940 char *tmp, *goodname;
941 struct perf_probe_arg_field **fieldp;
942
943 pr_debug("parsing arg: %s into ", str);
944
945 tmp = strchr(str, '=');
946 if (tmp) {
947 arg->name = strndup(str, tmp - str);
948 if (arg->name == NULL)
949 return -ENOMEM;
950 pr_debug("name:%s ", arg->name);
951 str = tmp + 1;
952 }
953
954 tmp = strchr(str, ':');
955 if (tmp) { /* Type setting */
956 *tmp = '\0';
957 arg->type = strdup(tmp + 1);
958 if (arg->type == NULL)
959 return -ENOMEM;
960 pr_debug("type:%s ", arg->type);
961 }
962
963 tmp = strpbrk(str, "-.[");
964 if (!is_c_varname(str) || !tmp) {
965 /* A variable, register, symbol or special value */
966 arg->var = strdup(str);
967 if (arg->var == NULL)
968 return -ENOMEM;
969 pr_debug("%s\n", arg->var);
970 return 0;
971 }
972
973 /* Structure fields or array element */
974 arg->var = strndup(str, tmp - str);
975 if (arg->var == NULL)
976 return -ENOMEM;
977 goodname = arg->var;
978 pr_debug("%s, ", arg->var);
979 fieldp = &arg->field;
980
981 do {
982 *fieldp = zalloc(sizeof(struct perf_probe_arg_field));
983 if (*fieldp == NULL)
984 return -ENOMEM;
985 if (*tmp == '[') { /* Array */
986 str = tmp;
987 (*fieldp)->index = strtol(str + 1, &tmp, 0);
988 (*fieldp)->ref = true;
989 if (*tmp != ']' || tmp == str + 1) {
990 semantic_error("Array index must be a"
991 " number.\n");
992 return -EINVAL;
993 }
994 tmp++;
995 if (*tmp == '\0')
996 tmp = NULL;
997 } else { /* Structure */
998 if (*tmp == '.') {
999 str = tmp + 1;
1000 (*fieldp)->ref = false;
1001 } else if (tmp[1] == '>') {
1002 str = tmp + 2;
1003 (*fieldp)->ref = true;
1004 } else {
1005 semantic_error("Argument parse error: %s\n",
1006 str);
1007 return -EINVAL;
1008 }
1009 tmp = strpbrk(str, "-.[");
1010 }
1011 if (tmp) {
1012 (*fieldp)->name = strndup(str, tmp - str);
1013 if ((*fieldp)->name == NULL)
1014 return -ENOMEM;
1015 if (*str != '[')
1016 goodname = (*fieldp)->name;
1017 pr_debug("%s(%d), ", (*fieldp)->name, (*fieldp)->ref);
1018 fieldp = &(*fieldp)->next;
1019 }
1020 } while (tmp);
1021 (*fieldp)->name = strdup(str);
1022 if ((*fieldp)->name == NULL)
1023 return -ENOMEM;
1024 if (*str != '[')
1025 goodname = (*fieldp)->name;
1026 pr_debug("%s(%d)\n", (*fieldp)->name, (*fieldp)->ref);
1027
1028 /* If no name is specified, set the last field name (not array index)*/
1029 if (!arg->name) {
1030 arg->name = strdup(goodname);
1031 if (arg->name == NULL)
1032 return -ENOMEM;
1033 }
1034 return 0;
1035}
1036
1037/* Parse perf-probe event command */
1038int parse_perf_probe_command(const char *cmd, struct perf_probe_event *pev)
1039{
1040 char **argv;
1041 int argc, i, ret = 0;
1042
1043 argv = argv_split(cmd, &argc);
1044 if (!argv) {
1045 pr_debug("Failed to split arguments.\n");
1046 return -ENOMEM;
1047 }
1048 if (argc - 1 > MAX_PROBE_ARGS) {
1049 semantic_error("Too many probe arguments (%d).\n", argc - 1);
1050 ret = -ERANGE;
1051 goto out;
1052 }
1053 /* Parse probe point */
1054 ret = parse_perf_probe_point(argv[0], pev);
1055 if (ret < 0)
1056 goto out;
1057
1058 /* Copy arguments and ensure return probe has no C argument */
1059 pev->nargs = argc - 1;
1060 pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
1061 if (pev->args == NULL) {
1062 ret = -ENOMEM;
1063 goto out;
1064 }
1065 for (i = 0; i < pev->nargs && ret >= 0; i++) {
1066 ret = parse_perf_probe_arg(argv[i + 1], &pev->args[i]);
1067 if (ret >= 0 &&
1068 is_c_varname(pev->args[i].var) && pev->point.retprobe) {
1069 semantic_error("You can't specify local variable for"
1070 " kretprobe.\n");
1071 ret = -EINVAL;
1072 }
1073 }
1074out:
1075 argv_free(argv);
1076
1077 return ret;
1078}
1079
1080/* Return true if this perf_probe_event requires debuginfo */
1081bool perf_probe_event_need_dwarf(struct perf_probe_event *pev)
1082{
1083 int i;
1084
1085 if (pev->point.file || pev->point.line || pev->point.lazy_line)
1086 return true;
1087
1088 for (i = 0; i < pev->nargs; i++)
1089 if (is_c_varname(pev->args[i].var))
1090 return true;
1091
1092 return false;
1093}
1094
1095/* Parse probe_events event into struct probe_point */
1096static int parse_probe_trace_command(const char *cmd,
1097 struct probe_trace_event *tev)
1098{
1099 struct probe_trace_point *tp = &tev->point;
1100 char pr;
1101 char *p;
1102 int ret, i, argc;
1103 char **argv;
1104
1105 pr_debug("Parsing probe_events: %s\n", cmd);
1106 argv = argv_split(cmd, &argc);
1107 if (!argv) {
1108 pr_debug("Failed to split arguments.\n");
1109 return -ENOMEM;
1110 }
1111 if (argc < 2) {
1112 semantic_error("Too few probe arguments.\n");
1113 ret = -ERANGE;
1114 goto out;
1115 }
1116
1117 /* Scan event and group name. */
1118 ret = sscanf(argv[0], "%c:%a[^/ \t]/%a[^ \t]",
1119 &pr, (float *)(void *)&tev->group,
1120 (float *)(void *)&tev->event);
1121 if (ret != 3) {
1122 semantic_error("Failed to parse event name: %s\n", argv[0]);
1123 ret = -EINVAL;
1124 goto out;
1125 }
1126 pr_debug("Group:%s Event:%s probe:%c\n", tev->group, tev->event, pr);
1127
1128 tp->retprobe = (pr == 'r');
1129
1130 /* Scan module name(if there), function name and offset */
1131 p = strchr(argv[1], ':');
1132 if (p) {
1133 tp->module = strndup(argv[1], p - argv[1]);
1134 p++;
1135 } else
1136 p = argv[1];
1137 ret = sscanf(p, "%a[^+]+%lu", (float *)(void *)&tp->symbol,
1138 &tp->offset);
1139 if (ret == 1)
1140 tp->offset = 0;
1141
1142 tev->nargs = argc - 2;
1143 tev->args = zalloc(sizeof(struct probe_trace_arg) * tev->nargs);
1144 if (tev->args == NULL) {
1145 ret = -ENOMEM;
1146 goto out;
1147 }
1148 for (i = 0; i < tev->nargs; i++) {
1149 p = strchr(argv[i + 2], '=');
1150 if (p) /* We don't need which register is assigned. */
1151 *p++ = '\0';
1152 else
1153 p = argv[i + 2];
1154 tev->args[i].name = strdup(argv[i + 2]);
1155 /* TODO: parse regs and offset */
1156 tev->args[i].value = strdup(p);
1157 if (tev->args[i].name == NULL || tev->args[i].value == NULL) {
1158 ret = -ENOMEM;
1159 goto out;
1160 }
1161 }
1162 ret = 0;
1163out:
1164 argv_free(argv);
1165 return ret;
1166}
1167
1168/* Compose only probe arg */
1169int synthesize_perf_probe_arg(struct perf_probe_arg *pa, char *buf, size_t len)
1170{
1171 struct perf_probe_arg_field *field = pa->field;
1172 int ret;
1173 char *tmp = buf;
1174
1175 if (pa->name && pa->var)
1176 ret = e_snprintf(tmp, len, "%s=%s", pa->name, pa->var);
1177 else
1178 ret = e_snprintf(tmp, len, "%s", pa->name ? pa->name : pa->var);
1179 if (ret <= 0)
1180 goto error;
1181 tmp += ret;
1182 len -= ret;
1183
1184 while (field) {
1185 if (field->name[0] == '[')
1186 ret = e_snprintf(tmp, len, "%s", field->name);
1187 else
1188 ret = e_snprintf(tmp, len, "%s%s",
1189 field->ref ? "->" : ".", field->name);
1190 if (ret <= 0)
1191 goto error;
1192 tmp += ret;
1193 len -= ret;
1194 field = field->next;
1195 }
1196
1197 if (pa->type) {
1198 ret = e_snprintf(tmp, len, ":%s", pa->type);
1199 if (ret <= 0)
1200 goto error;
1201 tmp += ret;
1202 len -= ret;
1203 }
1204
1205 return tmp - buf;
1206error:
1207 pr_debug("Failed to synthesize perf probe argument: %s\n",
1208 strerror(-ret));
1209 return ret;
1210}
1211
1212/* Compose only probe point (not argument) */
1213static char *synthesize_perf_probe_point(struct perf_probe_point *pp)
1214{
1215 char *buf, *tmp;
1216 char offs[32] = "", line[32] = "", file[32] = "";
1217 int ret, len;
1218
1219 buf = zalloc(MAX_CMDLEN);
1220 if (buf == NULL) {
1221 ret = -ENOMEM;
1222 goto error;
1223 }
1224 if (pp->offset) {
1225 ret = e_snprintf(offs, 32, "+%lu", pp->offset);
1226 if (ret <= 0)
1227 goto error;
1228 }
1229 if (pp->line) {
1230 ret = e_snprintf(line, 32, ":%d", pp->line);
1231 if (ret <= 0)
1232 goto error;
1233 }
1234 if (pp->file) {
1235 tmp = pp->file;
1236 len = strlen(tmp);
1237 if (len > 30) {
1238 tmp = strchr(pp->file + len - 30, '/');
1239 tmp = tmp ? tmp + 1 : pp->file + len - 30;
1240 }
1241 ret = e_snprintf(file, 32, "@%s", tmp);
1242 if (ret <= 0)
1243 goto error;
1244 }
1245
1246 if (pp->function)
1247 ret = e_snprintf(buf, MAX_CMDLEN, "%s%s%s%s%s", pp->function,
1248 offs, pp->retprobe ? "%return" : "", line,
1249 file);
1250 else
1251 ret = e_snprintf(buf, MAX_CMDLEN, "%s%s", file, line);
1252 if (ret <= 0)
1253 goto error;
1254
1255 return buf;
1256error:
1257 pr_debug("Failed to synthesize perf probe point: %s\n",
1258 strerror(-ret));
1259 if (buf)
1260 free(buf);
1261 return NULL;
1262}
1263
1264#if 0
1265char *synthesize_perf_probe_command(struct perf_probe_event *pev)
1266{
1267 char *buf;
1268 int i, len, ret;
1269
1270 buf = synthesize_perf_probe_point(&pev->point);
1271 if (!buf)
1272 return NULL;
1273
1274 len = strlen(buf);
1275 for (i = 0; i < pev->nargs; i++) {
1276 ret = e_snprintf(&buf[len], MAX_CMDLEN - len, " %s",
1277 pev->args[i].name);
1278 if (ret <= 0) {
1279 free(buf);
1280 return NULL;
1281 }
1282 len += ret;
1283 }
1284
1285 return buf;
1286}
1287#endif
1288
1289static int __synthesize_probe_trace_arg_ref(struct probe_trace_arg_ref *ref,
1290 char **buf, size_t *buflen,
1291 int depth)
1292{
1293 int ret;
1294 if (ref->next) {
1295 depth = __synthesize_probe_trace_arg_ref(ref->next, buf,
1296 buflen, depth + 1);
1297 if (depth < 0)
1298 goto out;
1299 }
1300
1301 ret = e_snprintf(*buf, *buflen, "%+ld(", ref->offset);
1302 if (ret < 0)
1303 depth = ret;
1304 else {
1305 *buf += ret;
1306 *buflen -= ret;
1307 }
1308out:
1309 return depth;
1310
1311}
1312
1313static int synthesize_probe_trace_arg(struct probe_trace_arg *arg,
1314 char *buf, size_t buflen)
1315{
1316 struct probe_trace_arg_ref *ref = arg->ref;
1317 int ret, depth = 0;
1318 char *tmp = buf;
1319
1320 /* Argument name or separator */
1321 if (arg->name)
1322 ret = e_snprintf(buf, buflen, " %s=", arg->name);
1323 else
1324 ret = e_snprintf(buf, buflen, " ");
1325 if (ret < 0)
1326 return ret;
1327 buf += ret;
1328 buflen -= ret;
1329
1330 /* Special case: @XXX */
1331 if (arg->value[0] == '@' && arg->ref)
1332 ref = ref->next;
1333
1334 /* Dereferencing arguments */
1335 if (ref) {
1336 depth = __synthesize_probe_trace_arg_ref(ref, &buf,
1337 &buflen, 1);
1338 if (depth < 0)
1339 return depth;
1340 }
1341
1342 /* Print argument value */
1343 if (arg->value[0] == '@' && arg->ref)
1344 ret = e_snprintf(buf, buflen, "%s%+ld", arg->value,
1345 arg->ref->offset);
1346 else
1347 ret = e_snprintf(buf, buflen, "%s", arg->value);
1348 if (ret < 0)
1349 return ret;
1350 buf += ret;
1351 buflen -= ret;
1352
1353 /* Closing */
1354 while (depth--) {
1355 ret = e_snprintf(buf, buflen, ")");
1356 if (ret < 0)
1357 return ret;
1358 buf += ret;
1359 buflen -= ret;
1360 }
1361 /* Print argument type */
1362 if (arg->type) {
1363 ret = e_snprintf(buf, buflen, ":%s", arg->type);
1364 if (ret <= 0)
1365 return ret;
1366 buf += ret;
1367 }
1368
1369 return buf - tmp;
1370}
1371
1372char *synthesize_probe_trace_command(struct probe_trace_event *tev)
1373{
1374 struct probe_trace_point *tp = &tev->point;
1375 char *buf;
1376 int i, len, ret;
1377
1378 buf = zalloc(MAX_CMDLEN);
1379 if (buf == NULL)
1380 return NULL;
1381
1382 if (tev->uprobes)
1383 len = e_snprintf(buf, MAX_CMDLEN, "%c:%s/%s %s:%s",
1384 tp->retprobe ? 'r' : 'p',
1385 tev->group, tev->event,
1386 tp->module, tp->symbol);
1387 else
1388 len = e_snprintf(buf, MAX_CMDLEN, "%c:%s/%s %s%s%s+%lu",
1389 tp->retprobe ? 'r' : 'p',
1390 tev->group, tev->event,
1391 tp->module ?: "", tp->module ? ":" : "",
1392 tp->symbol, tp->offset);
1393
1394 if (len <= 0)
1395 goto error;
1396
1397 for (i = 0; i < tev->nargs; i++) {
1398 ret = synthesize_probe_trace_arg(&tev->args[i], buf + len,
1399 MAX_CMDLEN - len);
1400 if (ret <= 0)
1401 goto error;
1402 len += ret;
1403 }
1404
1405 return buf;
1406error:
1407 free(buf);
1408 return NULL;
1409}
1410
1411static int convert_to_perf_probe_event(struct probe_trace_event *tev,
1412 struct perf_probe_event *pev, bool is_kprobe)
1413{
1414 char buf[64] = "";
1415 int i, ret;
1416
1417 /* Convert event/group name */
1418 pev->event = strdup(tev->event);
1419 pev->group = strdup(tev->group);
1420 if (pev->event == NULL || pev->group == NULL)
1421 return -ENOMEM;
1422
1423 /* Convert trace_point to probe_point */
1424 if (is_kprobe)
1425 ret = kprobe_convert_to_perf_probe(&tev->point, &pev->point);
1426 else
1427 ret = convert_to_perf_probe_point(&tev->point, &pev->point);
1428
1429 if (ret < 0)
1430 return ret;
1431
1432 /* Convert trace_arg to probe_arg */
1433 pev->nargs = tev->nargs;
1434 pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
1435 if (pev->args == NULL)
1436 return -ENOMEM;
1437 for (i = 0; i < tev->nargs && ret >= 0; i++) {
1438 if (tev->args[i].name)
1439 pev->args[i].name = strdup(tev->args[i].name);
1440 else {
1441 ret = synthesize_probe_trace_arg(&tev->args[i],
1442 buf, 64);
1443 pev->args[i].name = strdup(buf);
1444 }
1445 if (pev->args[i].name == NULL && ret >= 0)
1446 ret = -ENOMEM;
1447 }
1448
1449 if (ret < 0)
1450 clear_perf_probe_event(pev);
1451
1452 return ret;
1453}
1454
1455void clear_perf_probe_event(struct perf_probe_event *pev)
1456{
1457 struct perf_probe_point *pp = &pev->point;
1458 struct perf_probe_arg_field *field, *next;
1459 int i;
1460
1461 if (pev->event)
1462 free(pev->event);
1463 if (pev->group)
1464 free(pev->group);
1465 if (pp->file)
1466 free(pp->file);
1467 if (pp->function)
1468 free(pp->function);
1469 if (pp->lazy_line)
1470 free(pp->lazy_line);
1471 for (i = 0; i < pev->nargs; i++) {
1472 if (pev->args[i].name)
1473 free(pev->args[i].name);
1474 if (pev->args[i].var)
1475 free(pev->args[i].var);
1476 if (pev->args[i].type)
1477 free(pev->args[i].type);
1478 field = pev->args[i].field;
1479 while (field) {
1480 next = field->next;
1481 if (field->name)
1482 free(field->name);
1483 free(field);
1484 field = next;
1485 }
1486 }
1487 if (pev->args)
1488 free(pev->args);
1489 memset(pev, 0, sizeof(*pev));
1490}
1491
1492static void clear_probe_trace_event(struct probe_trace_event *tev)
1493{
1494 struct probe_trace_arg_ref *ref, *next;
1495 int i;
1496
1497 if (tev->event)
1498 free(tev->event);
1499 if (tev->group)
1500 free(tev->group);
1501 if (tev->point.symbol)
1502 free(tev->point.symbol);
1503 if (tev->point.module)
1504 free(tev->point.module);
1505 for (i = 0; i < tev->nargs; i++) {
1506 if (tev->args[i].name)
1507 free(tev->args[i].name);
1508 if (tev->args[i].value)
1509 free(tev->args[i].value);
1510 if (tev->args[i].type)
1511 free(tev->args[i].type);
1512 ref = tev->args[i].ref;
1513 while (ref) {
1514 next = ref->next;
1515 free(ref);
1516 ref = next;
1517 }
1518 }
1519 if (tev->args)
1520 free(tev->args);
1521 memset(tev, 0, sizeof(*tev));
1522}
1523
1524static void print_warn_msg(const char *file, bool is_kprobe)
1525{
1526
1527 if (errno == ENOENT) {
1528 const char *config;
1529
1530 if (!is_kprobe)
1531 config = "CONFIG_UPROBE_EVENTS";
1532 else
1533 config = "CONFIG_KPROBE_EVENTS";
1534
1535 pr_warning("%s file does not exist - please rebuild kernel"
1536 " with %s.\n", file, config);
1537 } else
1538 pr_warning("Failed to open %s file: %s\n", file,
1539 strerror(errno));
1540}
1541
1542static int open_probe_events(const char *trace_file, bool readwrite,
1543 bool is_kprobe)
1544{
1545 char buf[PATH_MAX];
1546 const char *__debugfs;
1547 int ret;
1548
1549 __debugfs = debugfs_find_mountpoint();
1550 if (__debugfs == NULL) {
1551 pr_warning("Debugfs is not mounted.\n");
1552 return -ENOENT;
1553 }
1554
1555 ret = e_snprintf(buf, PATH_MAX, "%s/%s", __debugfs, trace_file);
1556 if (ret >= 0) {
1557 pr_debug("Opening %s write=%d\n", buf, readwrite);
1558 if (readwrite && !probe_event_dry_run)
1559 ret = open(buf, O_RDWR, O_APPEND);
1560 else
1561 ret = open(buf, O_RDONLY, 0);
1562
1563 if (ret < 0)
1564 print_warn_msg(buf, is_kprobe);
1565 }
1566 return ret;
1567}
1568
1569static int open_kprobe_events(bool readwrite)
1570{
1571 return open_probe_events("tracing/kprobe_events", readwrite, true);
1572}
1573
1574static int open_uprobe_events(bool readwrite)
1575{
1576 return open_probe_events("tracing/uprobe_events", readwrite, false);
1577}
1578
1579/* Get raw string list of current kprobe_events or uprobe_events */
1580static struct strlist *get_probe_trace_command_rawlist(int fd)
1581{
1582 int ret, idx;
1583 FILE *fp;
1584 char buf[MAX_CMDLEN];
1585 char *p;
1586 struct strlist *sl;
1587
1588 sl = strlist__new(true, NULL);
1589
1590 fp = fdopen(dup(fd), "r");
1591 while (!feof(fp)) {
1592 p = fgets(buf, MAX_CMDLEN, fp);
1593 if (!p)
1594 break;
1595
1596 idx = strlen(p) - 1;
1597 if (p[idx] == '\n')
1598 p[idx] = '\0';
1599 ret = strlist__add(sl, buf);
1600 if (ret < 0) {
1601 pr_debug("strlist__add failed: %s\n", strerror(-ret));
1602 strlist__delete(sl);
1603 return NULL;
1604 }
1605 }
1606 fclose(fp);
1607
1608 return sl;
1609}
1610
1611/* Show an event */
1612static int show_perf_probe_event(struct perf_probe_event *pev)
1613{
1614 int i, ret;
1615 char buf[128];
1616 char *place;
1617
1618 /* Synthesize only event probe point */
1619 place = synthesize_perf_probe_point(&pev->point);
1620 if (!place)
1621 return -EINVAL;
1622
1623 ret = e_snprintf(buf, 128, "%s:%s", pev->group, pev->event);
1624 if (ret < 0)
1625 return ret;
1626
1627 printf(" %-20s (on %s", buf, place);
1628
1629 if (pev->nargs > 0) {
1630 printf(" with");
1631 for (i = 0; i < pev->nargs; i++) {
1632 ret = synthesize_perf_probe_arg(&pev->args[i],
1633 buf, 128);
1634 if (ret < 0)
1635 break;
1636 printf(" %s", buf);
1637 }
1638 }
1639 printf(")\n");
1640 free(place);
1641 return ret;
1642}
1643
1644static int __show_perf_probe_events(int fd, bool is_kprobe)
1645{
1646 int ret = 0;
1647 struct probe_trace_event tev;
1648 struct perf_probe_event pev;
1649 struct strlist *rawlist;
1650 struct str_node *ent;
1651
1652 memset(&tev, 0, sizeof(tev));
1653 memset(&pev, 0, sizeof(pev));
1654
1655 rawlist = get_probe_trace_command_rawlist(fd);
1656 if (!rawlist)
1657 return -ENOENT;
1658
1659 strlist__for_each(ent, rawlist) {
1660 ret = parse_probe_trace_command(ent->s, &tev);
1661 if (ret >= 0) {
1662 ret = convert_to_perf_probe_event(&tev, &pev,
1663 is_kprobe);
1664 if (ret >= 0)
1665 ret = show_perf_probe_event(&pev);
1666 }
1667 clear_perf_probe_event(&pev);
1668 clear_probe_trace_event(&tev);
1669 if (ret < 0)
1670 break;
1671 }
1672 strlist__delete(rawlist);
1673
1674 return ret;
1675}
1676
1677/* List up current perf-probe events */
1678int show_perf_probe_events(void)
1679{
1680 int fd, ret;
1681
1682 setup_pager();
1683 fd = open_kprobe_events(false);
1684
1685 if (fd < 0)
1686 return fd;
1687
1688 ret = init_vmlinux();
1689 if (ret < 0)
1690 return ret;
1691
1692 ret = __show_perf_probe_events(fd, true);
1693 close(fd);
1694
1695 fd = open_uprobe_events(false);
1696 if (fd >= 0) {
1697 ret = __show_perf_probe_events(fd, false);
1698 close(fd);
1699 }
1700
1701 return ret;
1702}
1703
1704/* Get current perf-probe event names */
1705static struct strlist *get_probe_trace_event_names(int fd, bool include_group)
1706{
1707 char buf[128];
1708 struct strlist *sl, *rawlist;
1709 struct str_node *ent;
1710 struct probe_trace_event tev;
1711 int ret = 0;
1712
1713 memset(&tev, 0, sizeof(tev));
1714 rawlist = get_probe_trace_command_rawlist(fd);
1715 sl = strlist__new(true, NULL);
1716 strlist__for_each(ent, rawlist) {
1717 ret = parse_probe_trace_command(ent->s, &tev);
1718 if (ret < 0)
1719 break;
1720 if (include_group) {
1721 ret = e_snprintf(buf, 128, "%s:%s", tev.group,
1722 tev.event);
1723 if (ret >= 0)
1724 ret = strlist__add(sl, buf);
1725 } else
1726 ret = strlist__add(sl, tev.event);
1727 clear_probe_trace_event(&tev);
1728 if (ret < 0)
1729 break;
1730 }
1731 strlist__delete(rawlist);
1732
1733 if (ret < 0) {
1734 strlist__delete(sl);
1735 return NULL;
1736 }
1737 return sl;
1738}
1739
1740static int write_probe_trace_event(int fd, struct probe_trace_event *tev)
1741{
1742 int ret = 0;
1743 char *buf = synthesize_probe_trace_command(tev);
1744
1745 if (!buf) {
1746 pr_debug("Failed to synthesize probe trace event.\n");
1747 return -EINVAL;
1748 }
1749
1750 pr_debug("Writing event: %s\n", buf);
1751 if (!probe_event_dry_run) {
1752 ret = write(fd, buf, strlen(buf));
1753 if (ret <= 0)
1754 pr_warning("Failed to write event: %s\n",
1755 strerror(errno));
1756 }
1757 free(buf);
1758 return ret;
1759}
1760
1761static int get_new_event_name(char *buf, size_t len, const char *base,
1762 struct strlist *namelist, bool allow_suffix)
1763{
1764 int i, ret;
1765
1766 /* Try no suffix */
1767 ret = e_snprintf(buf, len, "%s", base);
1768 if (ret < 0) {
1769 pr_debug("snprintf() failed: %s\n", strerror(-ret));
1770 return ret;
1771 }
1772 if (!strlist__has_entry(namelist, buf))
1773 return 0;
1774
1775 if (!allow_suffix) {
1776 pr_warning("Error: event \"%s\" already exists. "
1777 "(Use -f to force duplicates.)\n", base);
1778 return -EEXIST;
1779 }
1780
1781 /* Try to add suffix */
1782 for (i = 1; i < MAX_EVENT_INDEX; i++) {
1783 ret = e_snprintf(buf, len, "%s_%d", base, i);
1784 if (ret < 0) {
1785 pr_debug("snprintf() failed: %s\n", strerror(-ret));
1786 return ret;
1787 }
1788 if (!strlist__has_entry(namelist, buf))
1789 break;
1790 }
1791 if (i == MAX_EVENT_INDEX) {
1792 pr_warning("Too many events are on the same function.\n");
1793 ret = -ERANGE;
1794 }
1795
1796 return ret;
1797}
1798
1799static int __add_probe_trace_events(struct perf_probe_event *pev,
1800 struct probe_trace_event *tevs,
1801 int ntevs, bool allow_suffix)
1802{
1803 int i, fd, ret;
1804 struct probe_trace_event *tev = NULL;
1805 char buf[64];
1806 const char *event, *group;
1807 struct strlist *namelist;
1808
1809 if (pev->uprobes)
1810 fd = open_uprobe_events(true);
1811 else
1812 fd = open_kprobe_events(true);
1813
1814 if (fd < 0)
1815 return fd;
1816 /* Get current event names */
1817 namelist = get_probe_trace_event_names(fd, false);
1818 if (!namelist) {
1819 pr_debug("Failed to get current event list.\n");
1820 return -EIO;
1821 }
1822
1823 ret = 0;
1824 printf("Added new event%s\n", (ntevs > 1) ? "s:" : ":");
1825 for (i = 0; i < ntevs; i++) {
1826 tev = &tevs[i];
1827 if (pev->event)
1828 event = pev->event;
1829 else
1830 if (pev->point.function)
1831 event = pev->point.function;
1832 else
1833 event = tev->point.symbol;
1834 if (pev->group)
1835 group = pev->group;
1836 else
1837 group = PERFPROBE_GROUP;
1838
1839 /* Get an unused new event name */
1840 ret = get_new_event_name(buf, 64, event,
1841 namelist, allow_suffix);
1842 if (ret < 0)
1843 break;
1844 event = buf;
1845
1846 tev->event = strdup(event);
1847 tev->group = strdup(group);
1848 if (tev->event == NULL || tev->group == NULL) {
1849 ret = -ENOMEM;
1850 break;
1851 }
1852 ret = write_probe_trace_event(fd, tev);
1853 if (ret < 0)
1854 break;
1855 /* Add added event name to namelist */
1856 strlist__add(namelist, event);
1857
1858 /* Trick here - save current event/group */
1859 event = pev->event;
1860 group = pev->group;
1861 pev->event = tev->event;
1862 pev->group = tev->group;
1863 show_perf_probe_event(pev);
1864 /* Trick here - restore current event/group */
1865 pev->event = (char *)event;
1866 pev->group = (char *)group;
1867
1868 /*
1869 * Probes after the first probe which comes from same
1870 * user input are always allowed to add suffix, because
1871 * there might be several addresses corresponding to
1872 * one code line.
1873 */
1874 allow_suffix = true;
1875 }
1876
1877 if (ret >= 0) {
1878 /* Show how to use the event. */
1879 printf("\nYou can now use it in all perf tools, such as:\n\n");
1880 printf("\tperf record -e %s:%s -aR sleep 1\n\n", tev->group,
1881 tev->event);
1882 }
1883
1884 strlist__delete(namelist);
1885 close(fd);
1886 return ret;
1887}
1888
1889static int convert_to_probe_trace_events(struct perf_probe_event *pev,
1890 struct probe_trace_event **tevs,
1891 int max_tevs, const char *target)
1892{
1893 struct symbol *sym;
1894 int ret = 0, i;
1895 struct probe_trace_event *tev;
1896
1897 /* Convert perf_probe_event with debuginfo */
1898 ret = try_to_find_probe_trace_events(pev, tevs, max_tevs, target);
1899 if (ret != 0)
1900 return ret; /* Found in debuginfo or got an error */
1901
1902 /* Allocate trace event buffer */
1903 tev = *tevs = zalloc(sizeof(struct probe_trace_event));
1904 if (tev == NULL)
1905 return -ENOMEM;
1906
1907 /* Copy parameters */
1908 tev->point.symbol = strdup(pev->point.function);
1909 if (tev->point.symbol == NULL) {
1910 ret = -ENOMEM;
1911 goto error;
1912 }
1913
1914 if (target) {
1915 tev->point.module = strdup(target);
1916 if (tev->point.module == NULL) {
1917 ret = -ENOMEM;
1918 goto error;
1919 }
1920 }
1921
1922 tev->point.offset = pev->point.offset;
1923 tev->point.retprobe = pev->point.retprobe;
1924 tev->nargs = pev->nargs;
1925 tev->uprobes = pev->uprobes;
1926
1927 if (tev->nargs) {
1928 tev->args = zalloc(sizeof(struct probe_trace_arg)
1929 * tev->nargs);
1930 if (tev->args == NULL) {
1931 ret = -ENOMEM;
1932 goto error;
1933 }
1934 for (i = 0; i < tev->nargs; i++) {
1935 if (pev->args[i].name) {
1936 tev->args[i].name = strdup(pev->args[i].name);
1937 if (tev->args[i].name == NULL) {
1938 ret = -ENOMEM;
1939 goto error;
1940 }
1941 }
1942 tev->args[i].value = strdup(pev->args[i].var);
1943 if (tev->args[i].value == NULL) {
1944 ret = -ENOMEM;
1945 goto error;
1946 }
1947 if (pev->args[i].type) {
1948 tev->args[i].type = strdup(pev->args[i].type);
1949 if (tev->args[i].type == NULL) {
1950 ret = -ENOMEM;
1951 goto error;
1952 }
1953 }
1954 }
1955 }
1956
1957 if (pev->uprobes)
1958 return 1;
1959
1960 /* Currently just checking function name from symbol map */
1961 sym = __find_kernel_function_by_name(tev->point.symbol, NULL);
1962 if (!sym) {
1963 pr_warning("Kernel symbol \'%s\' not found.\n",
1964 tev->point.symbol);
1965 ret = -ENOENT;
1966 goto error;
1967 } else if (tev->point.offset > sym->end - sym->start) {
1968 pr_warning("Offset specified is greater than size of %s\n",
1969 tev->point.symbol);
1970 ret = -ENOENT;
1971 goto error;
1972
1973 }
1974
1975 return 1;
1976error:
1977 clear_probe_trace_event(tev);
1978 free(tev);
1979 *tevs = NULL;
1980 return ret;
1981}
1982
1983struct __event_package {
1984 struct perf_probe_event *pev;
1985 struct probe_trace_event *tevs;
1986 int ntevs;
1987};
1988
1989int add_perf_probe_events(struct perf_probe_event *pevs, int npevs,
1990 int max_tevs, const char *target, bool force_add)
1991{
1992 int i, j, ret;
1993 struct __event_package *pkgs;
1994
1995 ret = 0;
1996 pkgs = zalloc(sizeof(struct __event_package) * npevs);
1997
1998 if (pkgs == NULL)
1999 return -ENOMEM;
2000
2001 if (!pevs->uprobes)
2002 /* Init vmlinux path */
2003 ret = init_vmlinux();
2004 else
2005 ret = init_user_exec();
2006
2007 if (ret < 0) {
2008 free(pkgs);
2009 return ret;
2010 }
2011
2012 /* Loop 1: convert all events */
2013 for (i = 0; i < npevs; i++) {
2014 pkgs[i].pev = &pevs[i];
2015 /* Convert with or without debuginfo */
2016 ret = convert_to_probe_trace_events(pkgs[i].pev,
2017 &pkgs[i].tevs,
2018 max_tevs,
2019 target);
2020 if (ret < 0)
2021 goto end;
2022 pkgs[i].ntevs = ret;
2023 }
2024
2025 /* Loop 2: add all events */
2026 for (i = 0; i < npevs; i++) {
2027 ret = __add_probe_trace_events(pkgs[i].pev, pkgs[i].tevs,
2028 pkgs[i].ntevs, force_add);
2029 if (ret < 0)
2030 break;
2031 }
2032end:
2033 /* Loop 3: cleanup and free trace events */
2034 for (i = 0; i < npevs; i++) {
2035 for (j = 0; j < pkgs[i].ntevs; j++)
2036 clear_probe_trace_event(&pkgs[i].tevs[j]);
2037 free(pkgs[i].tevs);
2038 }
2039 free(pkgs);
2040
2041 return ret;
2042}
2043
2044static int __del_trace_probe_event(int fd, struct str_node *ent)
2045{
2046 char *p;
2047 char buf[128];
2048 int ret;
2049
2050 /* Convert from perf-probe event to trace-probe event */
2051 ret = e_snprintf(buf, 128, "-:%s", ent->s);
2052 if (ret < 0)
2053 goto error;
2054
2055 p = strchr(buf + 2, ':');
2056 if (!p) {
2057 pr_debug("Internal error: %s should have ':' but not.\n",
2058 ent->s);
2059 ret = -ENOTSUP;
2060 goto error;
2061 }
2062 *p = '/';
2063
2064 pr_debug("Writing event: %s\n", buf);
2065 ret = write(fd, buf, strlen(buf));
2066 if (ret < 0) {
2067 ret = -errno;
2068 goto error;
2069 }
2070
2071 printf("Removed event: %s\n", ent->s);
2072 return 0;
2073error:
2074 pr_warning("Failed to delete event: %s\n", strerror(-ret));
2075 return ret;
2076}
2077
2078static int del_trace_probe_event(int fd, const char *buf,
2079 struct strlist *namelist)
2080{
2081 struct str_node *ent, *n;
2082 int ret = -1;
2083
2084 if (strpbrk(buf, "*?")) { /* Glob-exp */
2085 strlist__for_each_safe(ent, n, namelist)
2086 if (strglobmatch(ent->s, buf)) {
2087 ret = __del_trace_probe_event(fd, ent);
2088 if (ret < 0)
2089 break;
2090 strlist__remove(namelist, ent);
2091 }
2092 } else {
2093 ent = strlist__find(namelist, buf);
2094 if (ent) {
2095 ret = __del_trace_probe_event(fd, ent);
2096 if (ret >= 0)
2097 strlist__remove(namelist, ent);
2098 }
2099 }
2100
2101 return ret;
2102}
2103
2104int del_perf_probe_events(struct strlist *dellist)
2105{
2106 int ret = -1, ufd = -1, kfd = -1;
2107 char buf[128];
2108 const char *group, *event;
2109 char *p, *str;
2110 struct str_node *ent;
2111 struct strlist *namelist = NULL, *unamelist = NULL;
2112
2113 /* Get current event names */
2114 kfd = open_kprobe_events(true);
2115 if (kfd < 0)
2116 return kfd;
2117
2118 namelist = get_probe_trace_event_names(kfd, true);
2119 ufd = open_uprobe_events(true);
2120
2121 if (ufd >= 0)
2122 unamelist = get_probe_trace_event_names(ufd, true);
2123
2124 if (namelist == NULL && unamelist == NULL)
2125 goto error;
2126
2127 strlist__for_each(ent, dellist) {
2128 str = strdup(ent->s);
2129 if (str == NULL) {
2130 ret = -ENOMEM;
2131 goto error;
2132 }
2133 pr_debug("Parsing: %s\n", str);
2134 p = strchr(str, ':');
2135 if (p) {
2136 group = str;
2137 *p = '\0';
2138 event = p + 1;
2139 } else {
2140 group = "*";
2141 event = str;
2142 }
2143
2144 ret = e_snprintf(buf, 128, "%s:%s", group, event);
2145 if (ret < 0) {
2146 pr_err("Failed to copy event.");
2147 free(str);
2148 goto error;
2149 }
2150
2151 pr_debug("Group: %s, Event: %s\n", group, event);
2152
2153 if (namelist)
2154 ret = del_trace_probe_event(kfd, buf, namelist);
2155
2156 if (unamelist && ret != 0)
2157 ret = del_trace_probe_event(ufd, buf, unamelist);
2158
2159 if (ret != 0)
2160 pr_info("Info: Event \"%s\" does not exist.\n", buf);
2161
2162 free(str);
2163 }
2164
2165error:
2166 if (kfd >= 0) {
2167 strlist__delete(namelist);
2168 close(kfd);
2169 }
2170
2171 if (ufd >= 0) {
2172 strlist__delete(unamelist);
2173 close(ufd);
2174 }
2175
2176 return ret;
2177}
2178
2179/* TODO: don't use a global variable for filter ... */
2180static struct strfilter *available_func_filter;
2181
2182/*
2183 * If a symbol corresponds to a function with global binding and
2184 * matches filter return 0. For all others return 1.
2185 */
2186static int filter_available_functions(struct map *map __unused,
2187 struct symbol *sym)
2188{
2189 if (sym->binding == STB_GLOBAL &&
2190 strfilter__compare(available_func_filter, sym->name))
2191 return 0;
2192 return 1;
2193}
2194
2195static int __show_available_funcs(struct map *map)
2196{
2197 if (map__load(map, filter_available_functions)) {
2198 pr_err("Failed to load map.\n");
2199 return -EINVAL;
2200 }
2201 if (!dso__sorted_by_name(map->dso, map->type))
2202 dso__sort_by_name(map->dso, map->type);
2203
2204 dso__fprintf_symbols_by_name(map->dso, map->type, stdout);
2205 return 0;
2206}
2207
2208static int available_kernel_funcs(const char *module)
2209{
2210 struct map *map;
2211 int ret;
2212
2213 ret = init_vmlinux();
2214 if (ret < 0)
2215 return ret;
2216
2217 map = kernel_get_module_map(module);
2218 if (!map) {
2219 pr_err("Failed to find %s map.\n", (module) ? : "kernel");
2220 return -EINVAL;
2221 }
2222 return __show_available_funcs(map);
2223}
2224
2225static int available_user_funcs(const char *target)
2226{
2227 struct map *map;
2228 int ret;
2229
2230 ret = init_user_exec();
2231 if (ret < 0)
2232 return ret;
2233
2234 map = dso__new_map(target);
2235 ret = __show_available_funcs(map);
2236 dso__delete(map->dso);
2237 map__delete(map);
2238 return ret;
2239}
2240
2241int show_available_funcs(const char *target, struct strfilter *_filter,
2242 bool user)
2243{
2244 setup_pager();
2245 available_func_filter = _filter;
2246
2247 if (!user)
2248 return available_kernel_funcs(target);
2249
2250 return available_user_funcs(target);
2251}
2252
2253/*
2254 * uprobe_events only accepts address:
2255 * Convert function and any offset to address
2256 */
2257static int convert_name_to_addr(struct perf_probe_event *pev, const char *exec)
2258{
2259 struct perf_probe_point *pp = &pev->point;
2260 struct symbol *sym;
2261 struct map *map = NULL;
2262 char *function = NULL, *name = NULL;
2263 int ret = -EINVAL;
2264 unsigned long long vaddr = 0;
2265
2266 if (!pp->function) {
2267 pr_warning("No function specified for uprobes");
2268 goto out;
2269 }
2270
2271 function = strdup(pp->function);
2272 if (!function) {
2273 pr_warning("Failed to allocate memory by strdup.\n");
2274 ret = -ENOMEM;
2275 goto out;
2276 }
2277
2278 name = realpath(exec, NULL);
2279 if (!name) {
2280 pr_warning("Cannot find realpath for %s.\n", exec);
2281 goto out;
2282 }
2283 map = dso__new_map(name);
2284 if (!map) {
2285 pr_warning("Cannot find appropriate DSO for %s.\n", exec);
2286 goto out;
2287 }
2288 available_func_filter = strfilter__new(function, NULL);
2289 if (map__load(map, filter_available_functions)) {
2290 pr_err("Failed to load map.\n");
2291 goto out;
2292 }
2293
2294 sym = map__find_symbol_by_name(map, function, NULL);
2295 if (!sym) {
2296 pr_warning("Cannot find %s in DSO %s\n", function, exec);
2297 goto out;
2298 }
2299
2300 if (map->start > sym->start)
2301 vaddr = map->start;
2302 vaddr += sym->start + pp->offset + map->pgoff;
2303 pp->offset = 0;
2304
2305 if (!pev->event) {
2306 pev->event = function;
2307 function = NULL;
2308 }
2309 if (!pev->group) {
2310 char *ptr1, *ptr2;
2311
2312 pev->group = zalloc(sizeof(char *) * 64);
2313 ptr1 = strdup(basename(exec));
2314 if (ptr1) {
2315 ptr2 = strpbrk(ptr1, "-._");
2316 if (ptr2)
2317 *ptr2 = '\0';
2318 e_snprintf(pev->group, 64, "%s_%s", PERFPROBE_GROUP,
2319 ptr1);
2320 free(ptr1);
2321 }
2322 }
2323 free(pp->function);
2324 pp->function = zalloc(sizeof(char *) * MAX_PROBE_ARGS);
2325 if (!pp->function) {
2326 ret = -ENOMEM;
2327 pr_warning("Failed to allocate memory by zalloc.\n");
2328 goto out;
2329 }
2330 e_snprintf(pp->function, MAX_PROBE_ARGS, "0x%llx", vaddr);
2331 ret = 0;
2332
2333out:
2334 if (map) {
2335 dso__delete(map->dso);
2336 map__delete(map);
2337 }
2338 if (function)
2339 free(function);
2340 if (name)
2341 free(name);
2342 return ret;
2343}
1// SPDX-License-Identifier: GPL-2.0-or-later
2/*
3 * probe-event.c : perf-probe definition to probe_events format converter
4 *
5 * Written by Masami Hiramatsu <mhiramat@redhat.com>
6 */
7
8#include <inttypes.h>
9#include <sys/utsname.h>
10#include <sys/types.h>
11#include <sys/stat.h>
12#include <fcntl.h>
13#include <errno.h>
14#include <libgen.h>
15#include <stdio.h>
16#include <unistd.h>
17#include <stdlib.h>
18#include <string.h>
19#include <stdarg.h>
20#include <limits.h>
21#include <elf.h>
22
23#include "build-id.h"
24#include "event.h"
25#include "namespaces.h"
26#include "strlist.h"
27#include "strfilter.h"
28#include "debug.h"
29#include "dso.h"
30#include "color.h"
31#include "map.h"
32#include "maps.h"
33#include "mutex.h"
34#include "symbol.h"
35#include <api/fs/fs.h>
36#include "trace-event.h" /* For __maybe_unused */
37#include "probe-event.h"
38#include "probe-finder.h"
39#include "probe-file.h"
40#include "session.h"
41#include "string2.h"
42#include "strbuf.h"
43#include "parse-events.h"
44
45#include <subcmd/pager.h>
46#include <linux/ctype.h>
47#include <linux/zalloc.h>
48
49#ifdef HAVE_DEBUGINFOD_SUPPORT
50#include <elfutils/debuginfod.h>
51#endif
52
53#define PERFPROBE_GROUP "probe"
54
55/* Defined in kernel/trace/trace.h */
56#define MAX_EVENT_NAME_LEN 64
57
58bool probe_event_dry_run; /* Dry run flag */
59struct probe_conf probe_conf = { .magic_num = DEFAULT_PROBE_MAGIC_NUM };
60
61static char *synthesize_perf_probe_point(struct perf_probe_point *pp);
62
63#define semantic_error(msg ...) pr_err("Semantic error :" msg)
64
65int e_snprintf(char *str, size_t size, const char *format, ...)
66{
67 int ret;
68 va_list ap;
69 va_start(ap, format);
70 ret = vsnprintf(str, size, format, ap);
71 va_end(ap);
72 if (ret >= (int)size)
73 ret = -E2BIG;
74 return ret;
75}
76
77static struct machine *host_machine;
78
79/* Initialize symbol maps and path of vmlinux/modules */
80int init_probe_symbol_maps(bool user_only)
81{
82 int ret;
83
84 symbol_conf.allow_aliases = true;
85 ret = symbol__init(NULL);
86 if (ret < 0) {
87 pr_debug("Failed to init symbol map.\n");
88 goto out;
89 }
90
91 if (host_machine || user_only) /* already initialized */
92 return 0;
93
94 if (symbol_conf.vmlinux_name)
95 pr_debug("Use vmlinux: %s\n", symbol_conf.vmlinux_name);
96
97 host_machine = machine__new_host();
98 if (!host_machine) {
99 pr_debug("machine__new_host() failed.\n");
100 symbol__exit();
101 ret = -1;
102 }
103out:
104 if (ret < 0)
105 pr_warning("Failed to init vmlinux path.\n");
106 return ret;
107}
108
109void exit_probe_symbol_maps(void)
110{
111 machine__delete(host_machine);
112 host_machine = NULL;
113 symbol__exit();
114}
115
116static struct ref_reloc_sym *kernel_get_ref_reloc_sym(struct map **pmap)
117{
118 struct kmap *kmap;
119 struct map *map = machine__kernel_map(host_machine);
120
121 if (map__load(map) < 0)
122 return NULL;
123
124 kmap = map__kmap(map);
125 if (!kmap)
126 return NULL;
127
128 if (pmap)
129 *pmap = map;
130
131 return kmap->ref_reloc_sym;
132}
133
134static int kernel_get_symbol_address_by_name(const char *name, u64 *addr,
135 bool reloc, bool reladdr)
136{
137 struct ref_reloc_sym *reloc_sym;
138 struct symbol *sym;
139 struct map *map;
140
141 /* ref_reloc_sym is just a label. Need a special fix*/
142 reloc_sym = kernel_get_ref_reloc_sym(&map);
143 if (reloc_sym && strcmp(name, reloc_sym->name) == 0)
144 *addr = (!map__reloc(map) || reloc) ? reloc_sym->addr :
145 reloc_sym->unrelocated_addr;
146 else {
147 sym = machine__find_kernel_symbol_by_name(host_machine, name, &map);
148 if (!sym)
149 return -ENOENT;
150 *addr = map__unmap_ip(map, sym->start) -
151 ((reloc) ? 0 : map__reloc(map)) -
152 ((reladdr) ? map__start(map) : 0);
153 }
154 return 0;
155}
156
157struct kernel_get_module_map_cb_args {
158 const char *module;
159 struct map *result;
160};
161
162static int kernel_get_module_map_cb(struct map *map, void *data)
163{
164 struct kernel_get_module_map_cb_args *args = data;
165 struct dso *dso = map__dso(map);
166 const char *short_name = dso__short_name(dso);
167 u16 short_name_len = dso__short_name_len(dso);
168
169 if (strncmp(short_name + 1, args->module, short_name_len - 2) == 0 &&
170 args->module[short_name_len - 2] == '\0') {
171 args->result = map__get(map);
172 return 1;
173 }
174 return 0;
175}
176
177static struct map *kernel_get_module_map(const char *module)
178{
179 struct kernel_get_module_map_cb_args args = {
180 .module = module,
181 .result = NULL,
182 };
183
184 /* A file path -- this is an offline module */
185 if (module && strchr(module, '/'))
186 return dso__new_map(module);
187
188 if (!module) {
189 struct map *map = machine__kernel_map(host_machine);
190
191 return map__get(map);
192 }
193
194 maps__for_each_map(machine__kernel_maps(host_machine), kernel_get_module_map_cb, &args);
195
196 return args.result;
197}
198
199struct map *get_target_map(const char *target, struct nsinfo *nsi, bool user)
200{
201 /* Init maps of given executable or kernel */
202 if (user) {
203 struct map *map;
204 struct dso *dso;
205
206 map = dso__new_map(target);
207 dso = map ? map__dso(map) : NULL;
208 if (dso) {
209 mutex_lock(dso__lock(dso));
210 dso__set_nsinfo(dso, nsinfo__get(nsi));
211 mutex_unlock(dso__lock(dso));
212 }
213 return map;
214 } else {
215 return kernel_get_module_map(target);
216 }
217}
218
219static int convert_exec_to_group(const char *exec, char **result)
220{
221 char *ptr1, *ptr2, *exec_copy;
222 char buf[64];
223 int ret;
224
225 exec_copy = strdup(exec);
226 if (!exec_copy)
227 return -ENOMEM;
228
229 ptr1 = basename(exec_copy);
230 if (!ptr1) {
231 ret = -EINVAL;
232 goto out;
233 }
234
235 for (ptr2 = ptr1; *ptr2 != '\0'; ptr2++) {
236 if (!isalnum(*ptr2) && *ptr2 != '_') {
237 *ptr2 = '\0';
238 break;
239 }
240 }
241
242 ret = e_snprintf(buf, sizeof(buf), "%s_%s", PERFPROBE_GROUP, ptr1);
243 if (ret < 0)
244 goto out;
245
246 *result = strdup(buf);
247 ret = *result ? 0 : -ENOMEM;
248
249out:
250 free(exec_copy);
251 return ret;
252}
253
254static void clear_perf_probe_point(struct perf_probe_point *pp)
255{
256 zfree(&pp->file);
257 zfree(&pp->function);
258 zfree(&pp->lazy_line);
259}
260
261static void clear_probe_trace_events(struct probe_trace_event *tevs, int ntevs)
262{
263 int i;
264
265 for (i = 0; i < ntevs; i++)
266 clear_probe_trace_event(tevs + i);
267}
268
269static bool kprobe_blacklist__listed(u64 address);
270static bool kprobe_warn_out_range(const char *symbol, u64 address)
271{
272 struct map *map;
273 bool ret = false;
274
275 map = kernel_get_module_map(NULL);
276 if (map) {
277 ret = address <= map__start(map) || map__end(map) < address;
278 if (ret)
279 pr_warning("%s is out of .text, skip it.\n", symbol);
280 map__put(map);
281 }
282 if (!ret && kprobe_blacklist__listed(address)) {
283 pr_warning("%s is blacklisted function, skip it.\n", symbol);
284 ret = true;
285 }
286
287 return ret;
288}
289
290/*
291 * @module can be module name of module file path. In case of path,
292 * inspect elf and find out what is actual module name.
293 * Caller has to free mod_name after using it.
294 */
295static char *find_module_name(const char *module)
296{
297 int fd;
298 Elf *elf;
299 GElf_Ehdr ehdr;
300 GElf_Shdr shdr;
301 Elf_Data *data;
302 Elf_Scn *sec;
303 char *mod_name = NULL;
304 int name_offset;
305
306 fd = open(module, O_RDONLY);
307 if (fd < 0)
308 return NULL;
309
310 elf = elf_begin(fd, PERF_ELF_C_READ_MMAP, NULL);
311 if (elf == NULL)
312 goto elf_err;
313
314 if (gelf_getehdr(elf, &ehdr) == NULL)
315 goto ret_err;
316
317 sec = elf_section_by_name(elf, &ehdr, &shdr,
318 ".gnu.linkonce.this_module", NULL);
319 if (!sec)
320 goto ret_err;
321
322 data = elf_getdata(sec, NULL);
323 if (!data || !data->d_buf)
324 goto ret_err;
325
326 /*
327 * NOTE:
328 * '.gnu.linkonce.this_module' section of kernel module elf directly
329 * maps to 'struct module' from linux/module.h. This section contains
330 * actual module name which will be used by kernel after loading it.
331 * But, we cannot use 'struct module' here since linux/module.h is not
332 * exposed to user-space. Offset of 'name' has remained same from long
333 * time, so hardcoding it here.
334 */
335 if (ehdr.e_ident[EI_CLASS] == ELFCLASS32)
336 name_offset = 12;
337 else /* expect ELFCLASS64 by default */
338 name_offset = 24;
339
340 mod_name = strdup((char *)data->d_buf + name_offset);
341
342ret_err:
343 elf_end(elf);
344elf_err:
345 close(fd);
346 return mod_name;
347}
348
349#ifdef HAVE_LIBDW_SUPPORT
350
351static int kernel_get_module_dso(const char *module, struct dso **pdso)
352{
353 struct dso *dso;
354 struct map *map;
355 const char *vmlinux_name;
356 int ret = 0;
357
358 if (module) {
359 char module_name[128];
360
361 snprintf(module_name, sizeof(module_name), "[%s]", module);
362 map = maps__find_by_name(machine__kernel_maps(host_machine), module_name);
363 if (map) {
364 dso = map__dso(map);
365 map__put(map);
366 goto found;
367 }
368 pr_debug("Failed to find module %s.\n", module);
369 return -ENOENT;
370 }
371
372 map = machine__kernel_map(host_machine);
373 dso = map__dso(map);
374 if (!dso__has_build_id(dso))
375 dso__read_running_kernel_build_id(dso, host_machine);
376
377 vmlinux_name = symbol_conf.vmlinux_name;
378 *dso__load_errno(dso) = 0;
379 if (vmlinux_name)
380 ret = dso__load_vmlinux(dso, map, vmlinux_name, false);
381 else
382 ret = dso__load_vmlinux_path(dso, map);
383found:
384 *pdso = dso;
385 return ret;
386}
387
388/*
389 * Some binaries like glibc have special symbols which are on the symbol
390 * table, but not in the debuginfo. If we can find the address of the
391 * symbol from map, we can translate the address back to the probe point.
392 */
393static int find_alternative_probe_point(struct debuginfo *dinfo,
394 struct perf_probe_point *pp,
395 struct perf_probe_point *result,
396 const char *target, struct nsinfo *nsi,
397 bool uprobes)
398{
399 struct map *map = NULL;
400 struct symbol *sym;
401 u64 address = 0;
402 int ret = -ENOENT;
403 size_t idx;
404
405 /* This can work only for function-name based one */
406 if (!pp->function || pp->file)
407 return -ENOTSUP;
408
409 map = get_target_map(target, nsi, uprobes);
410 if (!map)
411 return -EINVAL;
412
413 /* Find the address of given function */
414 map__for_each_symbol_by_name(map, pp->function, sym, idx) {
415 if (uprobes) {
416 address = sym->start;
417 if (sym->type == STT_GNU_IFUNC)
418 pr_warning("Warning: The probe function (%s) is a GNU indirect function.\n"
419 "Consider identifying the final function used at run time and set the probe directly on that.\n",
420 pp->function);
421 } else
422 address = map__unmap_ip(map, sym->start) - map__reloc(map);
423 break;
424 }
425 if (!address) {
426 ret = -ENOENT;
427 goto out;
428 }
429 pr_debug("Symbol %s address found : %" PRIx64 "\n",
430 pp->function, address);
431
432 ret = debuginfo__find_probe_point(dinfo, address, result);
433 if (ret <= 0)
434 ret = (!ret) ? -ENOENT : ret;
435 else {
436 result->offset += pp->offset;
437 result->line += pp->line;
438 result->retprobe = pp->retprobe;
439 ret = 0;
440 }
441
442out:
443 map__put(map);
444 return ret;
445
446}
447
448static int get_alternative_probe_event(struct debuginfo *dinfo,
449 struct perf_probe_event *pev,
450 struct perf_probe_point *tmp)
451{
452 int ret;
453
454 memcpy(tmp, &pev->point, sizeof(*tmp));
455 memset(&pev->point, 0, sizeof(pev->point));
456 ret = find_alternative_probe_point(dinfo, tmp, &pev->point, pev->target,
457 pev->nsi, pev->uprobes);
458 if (ret < 0)
459 memcpy(&pev->point, tmp, sizeof(*tmp));
460
461 return ret;
462}
463
464static int get_alternative_line_range(struct debuginfo *dinfo,
465 struct line_range *lr,
466 const char *target, bool user)
467{
468 struct perf_probe_point pp = { .function = lr->function,
469 .file = lr->file,
470 .line = lr->start };
471 struct perf_probe_point result;
472 int ret, len = 0;
473
474 memset(&result, 0, sizeof(result));
475
476 if (lr->end != INT_MAX)
477 len = lr->end - lr->start;
478 ret = find_alternative_probe_point(dinfo, &pp, &result,
479 target, NULL, user);
480 if (!ret) {
481 lr->function = result.function;
482 lr->file = result.file;
483 lr->start = result.line;
484 if (lr->end != INT_MAX)
485 lr->end = lr->start + len;
486 clear_perf_probe_point(&pp);
487 }
488 return ret;
489}
490
491#ifdef HAVE_DEBUGINFOD_SUPPORT
492static struct debuginfo *open_from_debuginfod(struct dso *dso, struct nsinfo *nsi,
493 bool silent)
494{
495 debuginfod_client *c = debuginfod_begin();
496 char sbuild_id[SBUILD_ID_SIZE + 1];
497 struct debuginfo *ret = NULL;
498 struct nscookie nsc;
499 char *path;
500 int fd;
501
502 if (!c)
503 return NULL;
504
505 build_id__sprintf(dso__bid(dso), sbuild_id);
506 fd = debuginfod_find_debuginfo(c, (const unsigned char *)sbuild_id,
507 0, &path);
508 if (fd >= 0)
509 close(fd);
510 debuginfod_end(c);
511 if (fd < 0) {
512 if (!silent)
513 pr_debug("Failed to find debuginfo in debuginfod.\n");
514 return NULL;
515 }
516 if (!silent)
517 pr_debug("Load debuginfo from debuginfod (%s)\n", path);
518
519 nsinfo__mountns_enter(nsi, &nsc);
520 ret = debuginfo__new((const char *)path);
521 nsinfo__mountns_exit(&nsc);
522 return ret;
523}
524#else
525static inline
526struct debuginfo *open_from_debuginfod(struct dso *dso __maybe_unused,
527 struct nsinfo *nsi __maybe_unused,
528 bool silent __maybe_unused)
529{
530 return NULL;
531}
532#endif
533
534/* Open new debuginfo of given module */
535static struct debuginfo *open_debuginfo(const char *module, struct nsinfo *nsi,
536 bool silent)
537{
538 const char *path = module;
539 char reason[STRERR_BUFSIZE];
540 struct debuginfo *ret = NULL;
541 struct dso *dso = NULL;
542 struct nscookie nsc;
543 int err;
544
545 if (!module || !strchr(module, '/')) {
546 err = kernel_get_module_dso(module, &dso);
547 if (err < 0) {
548 if (!dso || *dso__load_errno(dso) == 0) {
549 if (!str_error_r(-err, reason, STRERR_BUFSIZE))
550 strcpy(reason, "(unknown)");
551 } else
552 dso__strerror_load(dso, reason, STRERR_BUFSIZE);
553 if (dso)
554 ret = open_from_debuginfod(dso, nsi, silent);
555 if (ret)
556 return ret;
557 if (!silent) {
558 if (module)
559 pr_err("Module %s is not loaded, please specify its full path name.\n", module);
560 else
561 pr_err("Failed to find the path for the kernel: %s\n", reason);
562 }
563 return NULL;
564 }
565 path = dso__long_name(dso);
566 }
567 nsinfo__mountns_enter(nsi, &nsc);
568 ret = debuginfo__new(path);
569 if (!ret && !silent) {
570 pr_warning("The %s file has no debug information.\n", path);
571 if (!module || !strtailcmp(path, ".ko"))
572 pr_warning("Rebuild with CONFIG_DEBUG_INFO=y, ");
573 else
574 pr_warning("Rebuild with -g, ");
575 pr_warning("or install an appropriate debuginfo package.\n");
576 }
577 nsinfo__mountns_exit(&nsc);
578 return ret;
579}
580
581/* For caching the last debuginfo */
582static struct debuginfo *debuginfo_cache;
583static char *debuginfo_cache_path;
584
585static struct debuginfo *debuginfo_cache__open(const char *module, bool silent)
586{
587 const char *path = module;
588
589 /* If the module is NULL, it should be the kernel. */
590 if (!module)
591 path = "kernel";
592
593 if (debuginfo_cache_path && !strcmp(debuginfo_cache_path, path))
594 goto out;
595
596 /* Copy module path */
597 free(debuginfo_cache_path);
598 debuginfo_cache_path = strdup(path);
599 if (!debuginfo_cache_path) {
600 debuginfo__delete(debuginfo_cache);
601 debuginfo_cache = NULL;
602 goto out;
603 }
604
605 debuginfo_cache = open_debuginfo(module, NULL, silent);
606 if (!debuginfo_cache)
607 zfree(&debuginfo_cache_path);
608out:
609 return debuginfo_cache;
610}
611
612static void debuginfo_cache__exit(void)
613{
614 debuginfo__delete(debuginfo_cache);
615 debuginfo_cache = NULL;
616 zfree(&debuginfo_cache_path);
617}
618
619
620static int get_text_start_address(const char *exec, u64 *address,
621 struct nsinfo *nsi)
622{
623 Elf *elf;
624 GElf_Ehdr ehdr;
625 GElf_Shdr shdr;
626 int fd, ret = -ENOENT;
627 struct nscookie nsc;
628
629 nsinfo__mountns_enter(nsi, &nsc);
630 fd = open(exec, O_RDONLY);
631 nsinfo__mountns_exit(&nsc);
632 if (fd < 0)
633 return -errno;
634
635 elf = elf_begin(fd, PERF_ELF_C_READ_MMAP, NULL);
636 if (elf == NULL) {
637 ret = -EINVAL;
638 goto out_close;
639 }
640
641 if (gelf_getehdr(elf, &ehdr) == NULL)
642 goto out;
643
644 if (!elf_section_by_name(elf, &ehdr, &shdr, ".text", NULL))
645 goto out;
646
647 *address = shdr.sh_addr - shdr.sh_offset;
648 ret = 0;
649out:
650 elf_end(elf);
651out_close:
652 close(fd);
653
654 return ret;
655}
656
657/*
658 * Convert trace point to probe point with debuginfo
659 */
660static int find_perf_probe_point_from_dwarf(struct probe_trace_point *tp,
661 struct perf_probe_point *pp,
662 bool is_kprobe)
663{
664 struct debuginfo *dinfo = NULL;
665 u64 stext = 0;
666 u64 addr = tp->address;
667 int ret = -ENOENT;
668
669 /* convert the address to dwarf address */
670 if (!is_kprobe) {
671 if (!addr) {
672 ret = -EINVAL;
673 goto error;
674 }
675 ret = get_text_start_address(tp->module, &stext, NULL);
676 if (ret < 0)
677 goto error;
678 addr += stext;
679 } else if (tp->symbol) {
680 /* If the module is given, this returns relative address */
681 ret = kernel_get_symbol_address_by_name(tp->symbol, &addr,
682 false, !!tp->module);
683 if (ret != 0)
684 goto error;
685 addr += tp->offset;
686 }
687
688 pr_debug("try to find information at %" PRIx64 " in %s\n", addr,
689 tp->module ? : "kernel");
690
691 dinfo = debuginfo_cache__open(tp->module, verbose <= 0);
692 if (dinfo)
693 ret = debuginfo__find_probe_point(dinfo, addr, pp);
694 else
695 ret = -ENOENT;
696
697 if (ret > 0) {
698 pp->retprobe = tp->retprobe;
699 return 0;
700 }
701error:
702 pr_debug("Failed to find corresponding probes from debuginfo.\n");
703 return ret ? : -ENOENT;
704}
705
706/* Adjust symbol name and address */
707static int post_process_probe_trace_point(struct probe_trace_point *tp,
708 struct map *map, u64 offs)
709{
710 struct symbol *sym;
711 u64 addr = tp->address - offs;
712
713 sym = map__find_symbol(map, addr);
714 if (!sym) {
715 /*
716 * If the address is in the inittext section, map can not
717 * find it. Ignore it if we are probing offline kernel.
718 */
719 return (symbol_conf.ignore_vmlinux_buildid) ? 0 : -ENOENT;
720 }
721
722 if (strcmp(sym->name, tp->symbol)) {
723 /* If we have no realname, use symbol for it */
724 if (!tp->realname)
725 tp->realname = tp->symbol;
726 else
727 free(tp->symbol);
728 tp->symbol = strdup(sym->name);
729 if (!tp->symbol)
730 return -ENOMEM;
731 }
732 tp->offset = addr - sym->start;
733 tp->address -= offs;
734
735 return 0;
736}
737
738/*
739 * Rename DWARF symbols to ELF symbols -- gcc sometimes optimizes functions
740 * and generate new symbols with suffixes such as .constprop.N or .isra.N
741 * etc. Since those symbols are not recorded in DWARF, we have to find
742 * correct generated symbols from offline ELF binary.
743 * For online kernel or uprobes we don't need this because those are
744 * rebased on _text, or already a section relative address.
745 */
746static int
747post_process_offline_probe_trace_events(struct probe_trace_event *tevs,
748 int ntevs, const char *pathname)
749{
750 struct map *map;
751 u64 stext = 0;
752 int i, ret = 0;
753
754 /* Prepare a map for offline binary */
755 map = dso__new_map(pathname);
756 if (!map || get_text_start_address(pathname, &stext, NULL) < 0) {
757 pr_warning("Failed to get ELF symbols for %s\n", pathname);
758 return -EINVAL;
759 }
760
761 for (i = 0; i < ntevs; i++) {
762 ret = post_process_probe_trace_point(&tevs[i].point,
763 map, stext);
764 if (ret < 0)
765 break;
766 }
767 map__put(map);
768
769 return ret;
770}
771
772static int add_exec_to_probe_trace_events(struct probe_trace_event *tevs,
773 int ntevs, const char *exec,
774 struct nsinfo *nsi)
775{
776 int i, ret = 0;
777 u64 stext = 0;
778
779 if (!exec)
780 return 0;
781
782 ret = get_text_start_address(exec, &stext, nsi);
783 if (ret < 0)
784 return ret;
785
786 for (i = 0; i < ntevs && ret >= 0; i++) {
787 /* point.address is the address of point.symbol + point.offset */
788 tevs[i].point.address -= stext;
789 tevs[i].point.module = strdup(exec);
790 if (!tevs[i].point.module) {
791 ret = -ENOMEM;
792 break;
793 }
794 tevs[i].uprobes = true;
795 }
796
797 return ret;
798}
799
800static int
801post_process_module_probe_trace_events(struct probe_trace_event *tevs,
802 int ntevs, const char *module,
803 struct debuginfo *dinfo)
804{
805 Dwarf_Addr text_offs = 0;
806 int i, ret = 0;
807 char *mod_name = NULL;
808 struct map *map;
809
810 if (!module)
811 return 0;
812
813 map = get_target_map(module, NULL, false);
814 if (!map || debuginfo__get_text_offset(dinfo, &text_offs, true) < 0) {
815 pr_warning("Failed to get ELF symbols for %s\n", module);
816 return -EINVAL;
817 }
818
819 mod_name = find_module_name(module);
820 for (i = 0; i < ntevs; i++) {
821 ret = post_process_probe_trace_point(&tevs[i].point,
822 map, text_offs);
823 if (ret < 0)
824 break;
825 tevs[i].point.module =
826 strdup(mod_name ? mod_name : module);
827 if (!tevs[i].point.module) {
828 ret = -ENOMEM;
829 break;
830 }
831 }
832
833 free(mod_name);
834 map__put(map);
835
836 return ret;
837}
838
839static int
840post_process_kernel_probe_trace_events(struct probe_trace_event *tevs,
841 int ntevs)
842{
843 struct ref_reloc_sym *reloc_sym;
844 struct map *map;
845 char *tmp;
846 int i, skipped = 0;
847
848 /* Skip post process if the target is an offline kernel */
849 if (symbol_conf.ignore_vmlinux_buildid)
850 return post_process_offline_probe_trace_events(tevs, ntevs,
851 symbol_conf.vmlinux_name);
852
853 reloc_sym = kernel_get_ref_reloc_sym(&map);
854 if (!reloc_sym) {
855 pr_warning("Relocated base symbol is not found! "
856 "Check /proc/sys/kernel/kptr_restrict\n"
857 "and /proc/sys/kernel/perf_event_paranoid. "
858 "Or run as privileged perf user.\n\n");
859 return -EINVAL;
860 }
861
862 for (i = 0; i < ntevs; i++) {
863 if (!tevs[i].point.address)
864 continue;
865 if (tevs[i].point.retprobe && !kretprobe_offset_is_supported())
866 continue;
867 /*
868 * If we found a wrong one, mark it by NULL symbol.
869 * Since addresses in debuginfo is same as objdump, we need
870 * to convert it to addresses on memory.
871 */
872 if (kprobe_warn_out_range(tevs[i].point.symbol,
873 map__objdump_2mem(map, tevs[i].point.address))) {
874 tmp = NULL;
875 skipped++;
876 } else {
877 tmp = strdup(reloc_sym->name);
878 if (!tmp)
879 return -ENOMEM;
880 }
881 /* If we have no realname, use symbol for it */
882 if (!tevs[i].point.realname)
883 tevs[i].point.realname = tevs[i].point.symbol;
884 else
885 free(tevs[i].point.symbol);
886 tevs[i].point.symbol = tmp;
887 tevs[i].point.offset = tevs[i].point.address -
888 (map__reloc(map) ? reloc_sym->unrelocated_addr :
889 reloc_sym->addr);
890 }
891 return skipped;
892}
893
894void __weak
895arch__post_process_probe_trace_events(struct perf_probe_event *pev __maybe_unused,
896 int ntevs __maybe_unused)
897{
898}
899
900/* Post processing the probe events */
901static int post_process_probe_trace_events(struct perf_probe_event *pev,
902 struct probe_trace_event *tevs,
903 int ntevs, const char *module,
904 bool uprobe, struct debuginfo *dinfo)
905{
906 int ret;
907
908 if (uprobe)
909 ret = add_exec_to_probe_trace_events(tevs, ntevs, module,
910 pev->nsi);
911 else if (module)
912 /* Currently ref_reloc_sym based probe is not for drivers */
913 ret = post_process_module_probe_trace_events(tevs, ntevs,
914 module, dinfo);
915 else
916 ret = post_process_kernel_probe_trace_events(tevs, ntevs);
917
918 if (ret >= 0)
919 arch__post_process_probe_trace_events(pev, ntevs);
920
921 return ret;
922}
923
924/* Try to find perf_probe_event with debuginfo */
925static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
926 struct probe_trace_event **tevs)
927{
928 bool need_dwarf = perf_probe_event_need_dwarf(pev);
929 struct perf_probe_point tmp;
930 struct debuginfo *dinfo;
931 int ntevs, ret = 0;
932
933 /* Workaround for gcc #98776 issue.
934 * Perf failed to add kretprobe event with debuginfo of vmlinux which is
935 * compiled by gcc with -fpatchable-function-entry option enabled. The
936 * same issue with kernel module. The retprobe doesn`t need debuginfo.
937 * This workaround solution use map to query the probe function address
938 * for retprobe event.
939 */
940 if (pev->point.retprobe)
941 return 0;
942
943 dinfo = open_debuginfo(pev->target, pev->nsi, !need_dwarf);
944 if (!dinfo) {
945 if (need_dwarf)
946 return -ENODATA;
947 pr_debug("Could not open debuginfo. Try to use symbols.\n");
948 return 0;
949 }
950
951 pr_debug("Try to find probe point from debuginfo.\n");
952 /* Searching trace events corresponding to a probe event */
953 ntevs = debuginfo__find_trace_events(dinfo, pev, tevs);
954
955 if (ntevs == 0) { /* Not found, retry with an alternative */
956 ret = get_alternative_probe_event(dinfo, pev, &tmp);
957 if (!ret) {
958 ntevs = debuginfo__find_trace_events(dinfo, pev, tevs);
959 /*
960 * Write back to the original probe_event for
961 * setting appropriate (user given) event name
962 */
963 clear_perf_probe_point(&pev->point);
964 memcpy(&pev->point, &tmp, sizeof(tmp));
965 }
966 }
967
968 if (ntevs > 0) { /* Succeeded to find trace events */
969 pr_debug("Found %d probe_trace_events.\n", ntevs);
970 ret = post_process_probe_trace_events(pev, *tevs, ntevs,
971 pev->target, pev->uprobes, dinfo);
972 if (ret < 0 || ret == ntevs) {
973 pr_debug("Post processing failed or all events are skipped. (%d)\n", ret);
974 clear_probe_trace_events(*tevs, ntevs);
975 zfree(tevs);
976 ntevs = 0;
977 }
978 }
979
980 debuginfo__delete(dinfo);
981
982 if (ntevs == 0) { /* No error but failed to find probe point. */
983 char *probe_point = synthesize_perf_probe_point(&pev->point);
984 pr_warning("Probe point '%s' not found.\n", probe_point);
985 free(probe_point);
986 return -ENODEV;
987 } else if (ntevs < 0) {
988 /* Error path : ntevs < 0 */
989 pr_debug("An error occurred in debuginfo analysis (%d).\n", ntevs);
990 if (ntevs == -EBADF)
991 pr_warning("Warning: No dwarf info found in the vmlinux - "
992 "please rebuild kernel with CONFIG_DEBUG_INFO=y.\n");
993 if (!need_dwarf) {
994 pr_debug("Trying to use symbols.\n");
995 return 0;
996 }
997 }
998 return ntevs;
999}
1000
1001#define LINEBUF_SIZE 256
1002#define NR_ADDITIONAL_LINES 2
1003
1004static int __show_one_line(FILE *fp, int l, bool skip, bool show_num)
1005{
1006 char buf[LINEBUF_SIZE], sbuf[STRERR_BUFSIZE];
1007 const char *color = show_num ? "" : PERF_COLOR_BLUE;
1008 const char *prefix = NULL;
1009
1010 do {
1011 if (fgets(buf, LINEBUF_SIZE, fp) == NULL)
1012 goto error;
1013 if (skip)
1014 continue;
1015 if (!prefix) {
1016 prefix = show_num ? "%7d " : " ";
1017 color_fprintf(stdout, color, prefix, l);
1018 }
1019 color_fprintf(stdout, color, "%s", buf);
1020
1021 } while (strchr(buf, '\n') == NULL);
1022
1023 return 1;
1024error:
1025 if (ferror(fp)) {
1026 pr_warning("File read error: %s\n",
1027 str_error_r(errno, sbuf, sizeof(sbuf)));
1028 return -1;
1029 }
1030 return 0;
1031}
1032
1033static int _show_one_line(FILE *fp, int l, bool skip, bool show_num)
1034{
1035 int rv = __show_one_line(fp, l, skip, show_num);
1036 if (rv == 0) {
1037 pr_warning("Source file is shorter than expected.\n");
1038 rv = -1;
1039 }
1040 return rv;
1041}
1042
1043static int sprint_line_description(char *sbuf, size_t size, struct line_range *lr)
1044{
1045 if (!lr->function)
1046 return snprintf(sbuf, size, "file: %s, line: %d", lr->file, lr->start);
1047
1048 if (lr->file)
1049 return snprintf(sbuf, size, "function: %s, file:%s, line: %d", lr->function, lr->file, lr->start);
1050
1051 return snprintf(sbuf, size, "function: %s, line:%d", lr->function, lr->start);
1052}
1053
1054#define show_one_line_with_num(f,l) _show_one_line(f,l,false,true)
1055#define show_one_line(f,l) _show_one_line(f,l,false,false)
1056#define skip_one_line(f,l) _show_one_line(f,l,true,false)
1057#define show_one_line_or_eof(f,l) __show_one_line(f,l,false,false)
1058
1059/*
1060 * Show line-range always requires debuginfo to find source file and
1061 * line number.
1062 */
1063static int __show_line_range(struct line_range *lr, const char *module,
1064 bool user)
1065{
1066 struct build_id bid;
1067 int l = 1;
1068 struct int_node *ln;
1069 struct debuginfo *dinfo;
1070 FILE *fp;
1071 int ret;
1072 char *tmp;
1073 char sbuf[STRERR_BUFSIZE];
1074 char sbuild_id[SBUILD_ID_SIZE] = "";
1075
1076 /* Search a line range */
1077 dinfo = open_debuginfo(module, NULL, false);
1078 if (!dinfo)
1079 return -ENOENT;
1080
1081 ret = debuginfo__find_line_range(dinfo, lr);
1082 if (!ret) { /* Not found, retry with an alternative */
1083 pr_debug2("Failed to find line range in debuginfo. Fallback to alternative\n");
1084 ret = get_alternative_line_range(dinfo, lr, module, user);
1085 if (!ret)
1086 ret = debuginfo__find_line_range(dinfo, lr);
1087 else /* Ignore error, we just failed to find it. */
1088 ret = -ENOENT;
1089 }
1090 if (dinfo->build_id) {
1091 build_id__init(&bid, dinfo->build_id, BUILD_ID_SIZE);
1092 build_id__sprintf(&bid, sbuild_id);
1093 }
1094 debuginfo__delete(dinfo);
1095 if (ret == 0 || ret == -ENOENT) {
1096 sprint_line_description(sbuf, sizeof(sbuf), lr);
1097 pr_warning("Specified source line(%s) is not found.\n", sbuf);
1098 return -ENOENT;
1099 } else if (ret < 0) {
1100 pr_warning("Debuginfo analysis failed.\n");
1101 return ret;
1102 }
1103
1104 /* Convert source file path */
1105 tmp = lr->path;
1106 ret = find_source_path(tmp, sbuild_id, lr->comp_dir, &lr->path);
1107
1108 /* Free old path when new path is assigned */
1109 if (tmp != lr->path)
1110 free(tmp);
1111
1112 if (ret < 0) {
1113 pr_warning("Failed to find source file path.\n");
1114 return ret;
1115 }
1116
1117 setup_pager();
1118
1119 if (lr->function)
1120 fprintf(stdout, "<%s@%s:%d>\n", lr->function, lr->path,
1121 lr->start - lr->offset);
1122 else
1123 fprintf(stdout, "<%s:%d>\n", lr->path, lr->start);
1124
1125 fp = fopen(lr->path, "r");
1126 if (fp == NULL) {
1127 pr_warning("Failed to open %s: %s\n", lr->path,
1128 str_error_r(errno, sbuf, sizeof(sbuf)));
1129 return -errno;
1130 }
1131 /* Skip to starting line number */
1132 while (l < lr->start) {
1133 ret = skip_one_line(fp, l++);
1134 if (ret < 0)
1135 goto end;
1136 }
1137
1138 intlist__for_each_entry(ln, lr->line_list) {
1139 for (; ln->i > (unsigned long)l; l++) {
1140 ret = show_one_line(fp, l - lr->offset);
1141 if (ret < 0)
1142 goto end;
1143 }
1144 ret = show_one_line_with_num(fp, l++ - lr->offset);
1145 if (ret < 0)
1146 goto end;
1147 }
1148
1149 if (lr->end == INT_MAX)
1150 lr->end = l + NR_ADDITIONAL_LINES;
1151 while (l <= lr->end) {
1152 ret = show_one_line_or_eof(fp, l++ - lr->offset);
1153 if (ret <= 0)
1154 break;
1155 }
1156end:
1157 fclose(fp);
1158 return ret;
1159}
1160
1161int show_line_range(struct line_range *lr, const char *module,
1162 struct nsinfo *nsi, bool user)
1163{
1164 int ret;
1165 struct nscookie nsc;
1166
1167 ret = init_probe_symbol_maps(user);
1168 if (ret < 0)
1169 return ret;
1170 nsinfo__mountns_enter(nsi, &nsc);
1171 ret = __show_line_range(lr, module, user);
1172 nsinfo__mountns_exit(&nsc);
1173 exit_probe_symbol_maps();
1174
1175 return ret;
1176}
1177
1178static int show_available_vars_at(struct debuginfo *dinfo,
1179 struct perf_probe_event *pev,
1180 struct strfilter *_filter)
1181{
1182 char *buf;
1183 int ret, i, nvars;
1184 struct str_node *node;
1185 struct variable_list *vls = NULL, *vl;
1186 struct perf_probe_point tmp;
1187 const char *var;
1188
1189 buf = synthesize_perf_probe_point(&pev->point);
1190 if (!buf)
1191 return -EINVAL;
1192 pr_debug("Searching variables at %s\n", buf);
1193
1194 ret = debuginfo__find_available_vars_at(dinfo, pev, &vls);
1195 if (!ret) { /* Not found, retry with an alternative */
1196 ret = get_alternative_probe_event(dinfo, pev, &tmp);
1197 if (!ret) {
1198 ret = debuginfo__find_available_vars_at(dinfo, pev,
1199 &vls);
1200 /* Release the old probe_point */
1201 clear_perf_probe_point(&tmp);
1202 }
1203 }
1204 if (ret <= 0) {
1205 if (ret == 0 || ret == -ENOENT) {
1206 pr_err("Failed to find the address of %s\n", buf);
1207 ret = -ENOENT;
1208 } else
1209 pr_warning("Debuginfo analysis failed.\n");
1210 goto end;
1211 }
1212
1213 /* Some variables are found */
1214 fprintf(stdout, "Available variables at %s\n", buf);
1215 for (i = 0; i < ret; i++) {
1216 vl = &vls[i];
1217 /*
1218 * A probe point might be converted to
1219 * several trace points.
1220 */
1221 fprintf(stdout, "\t@<%s+%lu>\n", vl->point.symbol,
1222 vl->point.offset);
1223 zfree(&vl->point.symbol);
1224 nvars = 0;
1225 if (vl->vars) {
1226 strlist__for_each_entry(node, vl->vars) {
1227 var = strchr(node->s, '\t') + 1;
1228 if (strfilter__compare(_filter, var)) {
1229 fprintf(stdout, "\t\t%s\n", node->s);
1230 nvars++;
1231 }
1232 }
1233 strlist__delete(vl->vars);
1234 }
1235 if (nvars == 0)
1236 fprintf(stdout, "\t\t(No matched variables)\n");
1237 }
1238 free(vls);
1239end:
1240 free(buf);
1241 return ret;
1242}
1243
1244/* Show available variables on given probe point */
1245int show_available_vars(struct perf_probe_event *pevs, int npevs,
1246 struct strfilter *_filter)
1247{
1248 int i, ret = 0;
1249 struct debuginfo *dinfo;
1250
1251 ret = init_probe_symbol_maps(pevs->uprobes);
1252 if (ret < 0)
1253 return ret;
1254
1255 dinfo = open_debuginfo(pevs->target, pevs->nsi, false);
1256 if (!dinfo) {
1257 ret = -ENOENT;
1258 goto out;
1259 }
1260
1261 setup_pager();
1262
1263 for (i = 0; i < npevs && ret >= 0; i++)
1264 ret = show_available_vars_at(dinfo, &pevs[i], _filter);
1265
1266 debuginfo__delete(dinfo);
1267out:
1268 exit_probe_symbol_maps();
1269 return ret;
1270}
1271
1272#else /* !HAVE_LIBDW_SUPPORT */
1273
1274static void debuginfo_cache__exit(void)
1275{
1276}
1277
1278static int
1279find_perf_probe_point_from_dwarf(struct probe_trace_point *tp __maybe_unused,
1280 struct perf_probe_point *pp __maybe_unused,
1281 bool is_kprobe __maybe_unused)
1282{
1283 return -ENOSYS;
1284}
1285
1286static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
1287 struct probe_trace_event **tevs __maybe_unused)
1288{
1289 if (perf_probe_event_need_dwarf(pev)) {
1290 pr_warning("Debuginfo-analysis is not supported.\n");
1291 return -ENOSYS;
1292 }
1293
1294 return 0;
1295}
1296
1297int show_line_range(struct line_range *lr __maybe_unused,
1298 const char *module __maybe_unused,
1299 struct nsinfo *nsi __maybe_unused,
1300 bool user __maybe_unused)
1301{
1302 pr_warning("Debuginfo-analysis is not supported.\n");
1303 return -ENOSYS;
1304}
1305
1306int show_available_vars(struct perf_probe_event *pevs __maybe_unused,
1307 int npevs __maybe_unused,
1308 struct strfilter *filter __maybe_unused)
1309{
1310 pr_warning("Debuginfo-analysis is not supported.\n");
1311 return -ENOSYS;
1312}
1313#endif
1314
1315void line_range__clear(struct line_range *lr)
1316{
1317 zfree(&lr->function);
1318 zfree(&lr->file);
1319 zfree(&lr->path);
1320 zfree(&lr->comp_dir);
1321 intlist__delete(lr->line_list);
1322}
1323
1324int line_range__init(struct line_range *lr)
1325{
1326 memset(lr, 0, sizeof(*lr));
1327 lr->line_list = intlist__new(NULL);
1328 if (!lr->line_list)
1329 return -ENOMEM;
1330 else
1331 return 0;
1332}
1333
1334static int parse_line_num(char **ptr, int *val, const char *what)
1335{
1336 const char *start = *ptr;
1337
1338 errno = 0;
1339 *val = strtol(*ptr, ptr, 0);
1340 if (errno || *ptr == start) {
1341 semantic_error("'%s' is not a valid number.\n", what);
1342 return -EINVAL;
1343 }
1344 return 0;
1345}
1346
1347/* Check the name is good for event, group or function */
1348static bool is_c_func_name(const char *name)
1349{
1350 if (!isalpha(*name) && *name != '_')
1351 return false;
1352 while (*++name != '\0') {
1353 if (!isalpha(*name) && !isdigit(*name) && *name != '_')
1354 return false;
1355 }
1356 return true;
1357}
1358
1359/*
1360 * Stuff 'lr' according to the line range described by 'arg'.
1361 * The line range syntax is described by:
1362 *
1363 * SRC[:SLN[+NUM|-ELN]]
1364 * FNC[@SRC][:SLN[+NUM|-ELN]]
1365 *
1366 * FNC@SRC accepts `FNC@*` which forcibly specify FNC as function name.
1367 * SRC and FUNC can be quoted by double/single quotes.
1368 */
1369int parse_line_range_desc(const char *arg, struct line_range *lr)
1370{
1371 char *buf = strdup(arg);
1372 char *p;
1373 int err = 0;
1374
1375 if (!buf)
1376 return -ENOMEM;
1377
1378 lr->start = 0;
1379 lr->end = INT_MAX;
1380
1381 p = strpbrk_esq(buf, ":");
1382 if (p) {
1383 if (p == buf) {
1384 semantic_error("No file/function name in '%s'.\n", p);
1385 err = -EINVAL;
1386 goto err;
1387 }
1388 *(p++) = '\0';
1389
1390 err = parse_line_num(&p, &lr->start, "start line");
1391 if (err)
1392 goto err;
1393
1394 if (*p == '+' || *p == '-') {
1395 const char c = *(p++);
1396
1397 err = parse_line_num(&p, &lr->end, "end line");
1398 if (err)
1399 goto err;
1400
1401 if (c == '+') {
1402 lr->end += lr->start;
1403 /*
1404 * Adjust the number of lines here.
1405 * If the number of lines == 1, the
1406 * end of line should be equal to
1407 * the start of line.
1408 */
1409 lr->end--;
1410 }
1411 }
1412
1413 pr_debug("Line range is %d to %d\n", lr->start, lr->end);
1414
1415 err = -EINVAL;
1416 if (lr->start > lr->end) {
1417 semantic_error("Start line must be smaller"
1418 " than end line.\n");
1419 goto err;
1420 }
1421 if (*p != '\0') {
1422 semantic_error("Tailing with invalid str '%s'.\n", p);
1423 goto err;
1424 }
1425 }
1426
1427 p = strpbrk_esq(buf, "@");
1428 if (p) {
1429 *p++ = '\0';
1430 if (strcmp(p, "*")) {
1431 lr->file = strdup_esq(p);
1432 if (lr->file == NULL) {
1433 err = -ENOMEM;
1434 goto err;
1435 }
1436 }
1437 if (*buf != '\0')
1438 lr->function = strdup_esq(buf);
1439 if (!lr->function && !lr->file) {
1440 semantic_error("Only '@*' is not allowed.\n");
1441 err = -EINVAL;
1442 goto err;
1443 }
1444 } else if (strpbrk_esq(buf, "/."))
1445 lr->file = strdup_esq(buf);
1446 else if (is_c_func_name(buf))/* We reuse it for checking funcname */
1447 lr->function = strdup_esq(buf);
1448 else { /* Invalid name */
1449 semantic_error("'%s' is not a valid function name.\n", buf);
1450 err = -EINVAL;
1451 goto err;
1452 }
1453
1454err:
1455 free(buf);
1456 return err;
1457}
1458
1459static int parse_perf_probe_event_name(char **arg, struct perf_probe_event *pev)
1460{
1461 char *ptr;
1462
1463 ptr = strpbrk_esq(*arg, ":");
1464 if (ptr) {
1465 *ptr = '\0';
1466 if (!pev->sdt && !is_c_func_name(*arg))
1467 goto ng_name;
1468 pev->group = strdup_esq(*arg);
1469 if (!pev->group)
1470 return -ENOMEM;
1471 *arg = ptr + 1;
1472 } else
1473 pev->group = NULL;
1474
1475 pev->event = strdup_esq(*arg);
1476 if (pev->event == NULL)
1477 return -ENOMEM;
1478
1479 if (!pev->sdt && !is_c_func_name(pev->event)) {
1480 zfree(&pev->event);
1481ng_name:
1482 zfree(&pev->group);
1483 semantic_error("%s is bad for event name -it must "
1484 "follow C symbol-naming rule.\n", *arg);
1485 return -EINVAL;
1486 }
1487 return 0;
1488}
1489
1490/* Parse probepoint definition. */
1491static int parse_perf_probe_point(char *arg, struct perf_probe_event *pev)
1492{
1493 struct perf_probe_point *pp = &pev->point;
1494 char *ptr, *tmp;
1495 char c, nc = 0;
1496 bool file_spec = false;
1497 int ret;
1498
1499 /*
1500 * <Syntax>
1501 * perf probe [GRP:][EVENT=]SRC[:LN|;PTN]
1502 * perf probe [GRP:][EVENT=]FUNC[@SRC][+OFFS|%return|:LN|;PAT]
1503 * perf probe %[GRP:]SDT_EVENT
1504 */
1505 if (!arg)
1506 return -EINVAL;
1507
1508 if (is_sdt_event(arg)) {
1509 pev->sdt = true;
1510 if (arg[0] == '%')
1511 arg++;
1512 }
1513
1514 ptr = strpbrk_esq(arg, ";=@+%");
1515 if (pev->sdt) {
1516 if (ptr) {
1517 if (*ptr != '@') {
1518 semantic_error("%s must be an SDT name.\n",
1519 arg);
1520 return -EINVAL;
1521 }
1522 /* This must be a target file name or build id */
1523 tmp = build_id_cache__complement(ptr + 1);
1524 if (tmp) {
1525 pev->target = build_id_cache__origname(tmp);
1526 free(tmp);
1527 } else
1528 pev->target = strdup_esq(ptr + 1);
1529 if (!pev->target)
1530 return -ENOMEM;
1531 *ptr = '\0';
1532 }
1533 ret = parse_perf_probe_event_name(&arg, pev);
1534 if (ret == 0) {
1535 if (asprintf(&pev->point.function, "%%%s", pev->event) < 0)
1536 ret = -errno;
1537 }
1538 return ret;
1539 }
1540
1541 if (ptr && *ptr == '=') { /* Event name */
1542 *ptr = '\0';
1543 tmp = ptr + 1;
1544 ret = parse_perf_probe_event_name(&arg, pev);
1545 if (ret < 0)
1546 return ret;
1547
1548 arg = tmp;
1549 }
1550
1551 /*
1552 * Check arg is function or file name and copy it.
1553 *
1554 * We consider arg to be a file spec if and only if it satisfies
1555 * all of the below criteria::
1556 * - it does not include any of "+@%",
1557 * - it includes one of ":;", and
1558 * - it has a period '.' in the name.
1559 *
1560 * Otherwise, we consider arg to be a function specification.
1561 */
1562 if (!strpbrk_esc(arg, "+@%")) {
1563 ptr = strpbrk_esc(arg, ";:");
1564 /* This is a file spec if it includes a '.' before ; or : */
1565 if (ptr && memchr(arg, '.', ptr - arg))
1566 file_spec = true;
1567 }
1568
1569 ptr = strpbrk_esq(arg, ";:+@%");
1570 if (ptr) {
1571 nc = *ptr;
1572 *ptr++ = '\0';
1573 }
1574
1575 if (arg[0] == '\0')
1576 tmp = NULL;
1577 else {
1578 tmp = strdup_esq(arg);
1579 if (tmp == NULL)
1580 return -ENOMEM;
1581 }
1582
1583 if (file_spec)
1584 pp->file = tmp;
1585 else {
1586 pp->function = tmp;
1587
1588 /*
1589 * Keep pp->function even if this is absolute address,
1590 * so it can mark whether abs_address is valid.
1591 * Which make 'perf probe lib.bin 0x0' possible.
1592 *
1593 * Note that checking length of tmp is not needed
1594 * because when we access tmp[1] we know tmp[0] is '0',
1595 * so tmp[1] should always valid (but could be '\0').
1596 */
1597 if (tmp && !strncmp(tmp, "0x", 2)) {
1598 pp->abs_address = strtoull(pp->function, &tmp, 0);
1599 if (*tmp != '\0') {
1600 semantic_error("Invalid absolute address.\n");
1601 return -EINVAL;
1602 }
1603 }
1604 }
1605
1606 /* Parse other options */
1607 while (ptr) {
1608 arg = ptr;
1609 c = nc;
1610 if (c == ';') { /* Lazy pattern must be the last part */
1611 pp->lazy_line = strdup(arg); /* let leave escapes */
1612 if (pp->lazy_line == NULL)
1613 return -ENOMEM;
1614 break;
1615 }
1616 ptr = strpbrk_esq(arg, ";:+@%");
1617 if (ptr) {
1618 nc = *ptr;
1619 *ptr++ = '\0';
1620 }
1621 switch (c) {
1622 case ':': /* Line number */
1623 pp->line = strtoul(arg, &tmp, 0);
1624 if (*tmp != '\0') {
1625 semantic_error("There is non-digit char"
1626 " in line number.\n");
1627 return -EINVAL;
1628 }
1629 break;
1630 case '+': /* Byte offset from a symbol */
1631 pp->offset = strtoul(arg, &tmp, 0);
1632 if (*tmp != '\0') {
1633 semantic_error("There is non-digit character"
1634 " in offset.\n");
1635 return -EINVAL;
1636 }
1637 break;
1638 case '@': /* File name */
1639 if (pp->file) {
1640 semantic_error("SRC@SRC is not allowed.\n");
1641 return -EINVAL;
1642 }
1643 if (!strcmp(arg, "*"))
1644 break;
1645 pp->file = strdup_esq(arg);
1646 if (pp->file == NULL)
1647 return -ENOMEM;
1648 break;
1649 case '%': /* Probe places */
1650 if (strcmp(arg, "return") == 0) {
1651 pp->retprobe = 1;
1652 } else { /* Others not supported yet */
1653 semantic_error("%%%s is not supported.\n", arg);
1654 return -ENOTSUP;
1655 }
1656 break;
1657 default: /* Buggy case */
1658 pr_err("This program has a bug at %s:%d.\n",
1659 __FILE__, __LINE__);
1660 return -ENOTSUP;
1661 break;
1662 }
1663 }
1664
1665 /* Exclusion check */
1666 if (pp->lazy_line && pp->line) {
1667 semantic_error("Lazy pattern can't be used with"
1668 " line number.\n");
1669 return -EINVAL;
1670 }
1671
1672 if (pp->lazy_line && pp->offset) {
1673 semantic_error("Lazy pattern can't be used with offset.\n");
1674 return -EINVAL;
1675 }
1676
1677 if (pp->line && pp->offset) {
1678 semantic_error("Offset can't be used with line number.\n");
1679 return -EINVAL;
1680 }
1681
1682 if (!pp->line && !pp->lazy_line && pp->file && !pp->function) {
1683 semantic_error("File always requires line number or "
1684 "lazy pattern.\n");
1685 return -EINVAL;
1686 }
1687
1688 if (pp->offset && !pp->function) {
1689 semantic_error("Offset requires an entry function.\n");
1690 return -EINVAL;
1691 }
1692
1693 if ((pp->offset || pp->line || pp->lazy_line) && pp->retprobe) {
1694 semantic_error("Offset/Line/Lazy pattern can't be used with "
1695 "return probe.\n");
1696 return -EINVAL;
1697 }
1698
1699 pr_debug("symbol:%s file:%s line:%d offset:%lu return:%d lazy:%s\n",
1700 pp->function, pp->file, pp->line, pp->offset, pp->retprobe,
1701 pp->lazy_line);
1702 return 0;
1703}
1704
1705/* Parse perf-probe event argument */
1706static int parse_perf_probe_arg(char *str, struct perf_probe_arg *arg)
1707{
1708 char *tmp, *goodname;
1709 struct perf_probe_arg_field **fieldp;
1710
1711 pr_debug("parsing arg: %s into ", str);
1712
1713 tmp = strchr(str, '=');
1714 if (tmp) {
1715 arg->name = strndup(str, tmp - str);
1716 if (arg->name == NULL)
1717 return -ENOMEM;
1718 pr_debug("name:%s ", arg->name);
1719 str = tmp + 1;
1720 }
1721
1722 tmp = strchr(str, '@');
1723 if (tmp && tmp != str && !strcmp(tmp + 1, "user")) { /* user attr */
1724 if (!user_access_is_supported()) {
1725 semantic_error("ftrace does not support user access\n");
1726 return -EINVAL;
1727 }
1728 *tmp = '\0';
1729 arg->user_access = true;
1730 pr_debug("user_access ");
1731 }
1732
1733 tmp = strchr(str, ':');
1734 if (tmp) { /* Type setting */
1735 *tmp = '\0';
1736 arg->type = strdup(tmp + 1);
1737 if (arg->type == NULL)
1738 return -ENOMEM;
1739 pr_debug("type:%s ", arg->type);
1740 }
1741
1742 tmp = strpbrk(str, "-.[");
1743 if (!is_c_varname(str) || !tmp) {
1744 /* A variable, register, symbol or special value */
1745 arg->var = strdup(str);
1746 if (arg->var == NULL)
1747 return -ENOMEM;
1748 pr_debug("%s\n", arg->var);
1749 return 0;
1750 }
1751
1752 /* Structure fields or array element */
1753 arg->var = strndup(str, tmp - str);
1754 if (arg->var == NULL)
1755 return -ENOMEM;
1756 goodname = arg->var;
1757 pr_debug("%s, ", arg->var);
1758 fieldp = &arg->field;
1759
1760 do {
1761 *fieldp = zalloc(sizeof(struct perf_probe_arg_field));
1762 if (*fieldp == NULL)
1763 return -ENOMEM;
1764 if (*tmp == '[') { /* Array */
1765 str = tmp;
1766 (*fieldp)->index = strtol(str + 1, &tmp, 0);
1767 (*fieldp)->ref = true;
1768 if (*tmp != ']' || tmp == str + 1) {
1769 semantic_error("Array index must be a"
1770 " number.\n");
1771 return -EINVAL;
1772 }
1773 tmp++;
1774 if (*tmp == '\0')
1775 tmp = NULL;
1776 } else { /* Structure */
1777 if (*tmp == '.') {
1778 str = tmp + 1;
1779 (*fieldp)->ref = false;
1780 } else if (tmp[1] == '>') {
1781 str = tmp + 2;
1782 (*fieldp)->ref = true;
1783 } else {
1784 semantic_error("Argument parse error: %s\n",
1785 str);
1786 return -EINVAL;
1787 }
1788 tmp = strpbrk(str, "-.[");
1789 }
1790 if (tmp) {
1791 (*fieldp)->name = strndup(str, tmp - str);
1792 if ((*fieldp)->name == NULL)
1793 return -ENOMEM;
1794 if (*str != '[')
1795 goodname = (*fieldp)->name;
1796 pr_debug("%s(%d), ", (*fieldp)->name, (*fieldp)->ref);
1797 fieldp = &(*fieldp)->next;
1798 }
1799 } while (tmp);
1800 (*fieldp)->name = strdup(str);
1801 if ((*fieldp)->name == NULL)
1802 return -ENOMEM;
1803 if (*str != '[')
1804 goodname = (*fieldp)->name;
1805 pr_debug("%s(%d)\n", (*fieldp)->name, (*fieldp)->ref);
1806
1807 /* If no name is specified, set the last field name (not array index)*/
1808 if (!arg->name) {
1809 arg->name = strdup(goodname);
1810 if (arg->name == NULL)
1811 return -ENOMEM;
1812 }
1813 return 0;
1814}
1815
1816/* Parse perf-probe event command */
1817int parse_perf_probe_command(const char *cmd, struct perf_probe_event *pev)
1818{
1819 char **argv;
1820 int argc, i, ret = 0;
1821
1822 argv = argv_split(cmd, &argc);
1823 if (!argv) {
1824 pr_debug("Failed to split arguments.\n");
1825 return -ENOMEM;
1826 }
1827 if (argc - 1 > MAX_PROBE_ARGS) {
1828 semantic_error("Too many probe arguments (%d).\n", argc - 1);
1829 ret = -ERANGE;
1830 goto out;
1831 }
1832 /* Parse probe point */
1833 ret = parse_perf_probe_point(argv[0], pev);
1834 if (ret < 0)
1835 goto out;
1836
1837 /* Generate event name if needed */
1838 if (!pev->event && pev->point.function && pev->point.line
1839 && !pev->point.lazy_line && !pev->point.offset) {
1840 if (asprintf(&pev->event, "%s_L%d", pev->point.function,
1841 pev->point.line) < 0) {
1842 ret = -ENOMEM;
1843 goto out;
1844 }
1845 }
1846
1847 /* Copy arguments and ensure return probe has no C argument */
1848 pev->nargs = argc - 1;
1849 pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
1850 if (pev->args == NULL) {
1851 ret = -ENOMEM;
1852 goto out;
1853 }
1854 for (i = 0; i < pev->nargs && ret >= 0; i++) {
1855 ret = parse_perf_probe_arg(argv[i + 1], &pev->args[i]);
1856 if (ret >= 0 &&
1857 is_c_varname(pev->args[i].var) && pev->point.retprobe) {
1858 semantic_error("You can't specify local variable for"
1859 " kretprobe.\n");
1860 ret = -EINVAL;
1861 }
1862 }
1863out:
1864 argv_free(argv);
1865
1866 return ret;
1867}
1868
1869/* Returns true if *any* ARG is either C variable, $params or $vars. */
1870bool perf_probe_with_var(struct perf_probe_event *pev)
1871{
1872 int i = 0;
1873
1874 for (i = 0; i < pev->nargs; i++)
1875 if (is_c_varname(pev->args[i].var) ||
1876 !strcmp(pev->args[i].var, PROBE_ARG_PARAMS) ||
1877 !strcmp(pev->args[i].var, PROBE_ARG_VARS))
1878 return true;
1879 return false;
1880}
1881
1882/* Return true if this perf_probe_event requires debuginfo */
1883bool perf_probe_event_need_dwarf(struct perf_probe_event *pev)
1884{
1885 if (pev->point.file || pev->point.line || pev->point.lazy_line)
1886 return true;
1887
1888 if (perf_probe_with_var(pev))
1889 return true;
1890
1891 return false;
1892}
1893
1894/* Parse probe_events event into struct probe_point */
1895int parse_probe_trace_command(const char *cmd, struct probe_trace_event *tev)
1896{
1897 struct probe_trace_point *tp = &tev->point;
1898 char pr;
1899 char *p;
1900 char *argv0_str = NULL, *fmt, *fmt1_str, *fmt2_str, *fmt3_str;
1901 int ret, i, argc;
1902 char **argv;
1903
1904 pr_debug("Parsing probe_events: %s\n", cmd);
1905 argv = argv_split(cmd, &argc);
1906 if (!argv) {
1907 pr_debug("Failed to split arguments.\n");
1908 return -ENOMEM;
1909 }
1910 if (argc < 2) {
1911 semantic_error("Too few probe arguments.\n");
1912 ret = -ERANGE;
1913 goto out;
1914 }
1915
1916 /* Scan event and group name. */
1917 argv0_str = strdup(argv[0]);
1918 if (argv0_str == NULL) {
1919 ret = -ENOMEM;
1920 goto out;
1921 }
1922 fmt1_str = strtok_r(argv0_str, ":", &fmt);
1923 fmt2_str = strtok_r(NULL, "/", &fmt);
1924 fmt3_str = strtok_r(NULL, " \t", &fmt);
1925 if (fmt1_str == NULL || fmt2_str == NULL || fmt3_str == NULL) {
1926 semantic_error("Failed to parse event name: %s\n", argv[0]);
1927 ret = -EINVAL;
1928 goto out;
1929 }
1930 pr = fmt1_str[0];
1931 tev->group = strdup(fmt2_str);
1932 tev->event = strdup(fmt3_str);
1933 if (tev->group == NULL || tev->event == NULL) {
1934 ret = -ENOMEM;
1935 goto out;
1936 }
1937 pr_debug("Group:%s Event:%s probe:%c\n", tev->group, tev->event, pr);
1938
1939 tp->retprobe = (pr == 'r');
1940
1941 /* Scan module name(if there), function name and offset */
1942 p = strchr(argv[1], ':');
1943 if (p) {
1944 tp->module = strndup(argv[1], p - argv[1]);
1945 if (!tp->module) {
1946 ret = -ENOMEM;
1947 goto out;
1948 }
1949 tev->uprobes = (tp->module[0] == '/');
1950 p++;
1951 } else
1952 p = argv[1];
1953 fmt1_str = strtok_r(p, "+", &fmt);
1954 /* only the address started with 0x */
1955 if (fmt1_str[0] == '0') {
1956 /*
1957 * Fix a special case:
1958 * if address == 0, kernel reports something like:
1959 * p:probe_libc/abs_0 /lib/libc-2.18.so:0x (null) arg1=%ax
1960 * Newer kernel may fix that, but we want to
1961 * support old kernel also.
1962 */
1963 if (strcmp(fmt1_str, "0x") == 0) {
1964 if (!argv[2] || strcmp(argv[2], "(null)")) {
1965 ret = -EINVAL;
1966 goto out;
1967 }
1968 tp->address = 0;
1969
1970 free(argv[2]);
1971 for (i = 2; argv[i + 1] != NULL; i++)
1972 argv[i] = argv[i + 1];
1973
1974 argv[i] = NULL;
1975 argc -= 1;
1976 } else
1977 tp->address = strtoull(fmt1_str, NULL, 0);
1978 } else {
1979 /* Only the symbol-based probe has offset */
1980 tp->symbol = strdup(fmt1_str);
1981 if (tp->symbol == NULL) {
1982 ret = -ENOMEM;
1983 goto out;
1984 }
1985 fmt2_str = strtok_r(NULL, "", &fmt);
1986 if (fmt2_str == NULL)
1987 tp->offset = 0;
1988 else
1989 tp->offset = strtoul(fmt2_str, NULL, 10);
1990 }
1991
1992 if (tev->uprobes) {
1993 fmt2_str = strchr(p, '(');
1994 if (fmt2_str)
1995 tp->ref_ctr_offset = strtoul(fmt2_str + 1, NULL, 0);
1996 }
1997
1998 tev->nargs = argc - 2;
1999 tev->args = zalloc(sizeof(struct probe_trace_arg) * tev->nargs);
2000 if (tev->args == NULL) {
2001 ret = -ENOMEM;
2002 goto out;
2003 }
2004 for (i = 0; i < tev->nargs; i++) {
2005 p = strchr(argv[i + 2], '=');
2006 if (p) /* We don't need which register is assigned. */
2007 *p++ = '\0';
2008 else
2009 p = argv[i + 2];
2010 tev->args[i].name = strdup(argv[i + 2]);
2011 /* TODO: parse regs and offset */
2012 tev->args[i].value = strdup(p);
2013 if (tev->args[i].name == NULL || tev->args[i].value == NULL) {
2014 ret = -ENOMEM;
2015 goto out;
2016 }
2017 }
2018 ret = 0;
2019out:
2020 free(argv0_str);
2021 argv_free(argv);
2022 return ret;
2023}
2024
2025/* Compose only probe arg */
2026char *synthesize_perf_probe_arg(struct perf_probe_arg *pa)
2027{
2028 struct perf_probe_arg_field *field = pa->field;
2029 struct strbuf buf;
2030 char *ret = NULL;
2031 int err;
2032
2033 if (strbuf_init(&buf, 64) < 0)
2034 return NULL;
2035
2036 if (pa->name && pa->var)
2037 err = strbuf_addf(&buf, "%s=%s", pa->name, pa->var);
2038 else
2039 err = strbuf_addstr(&buf, pa->name ?: pa->var);
2040 if (err)
2041 goto out;
2042
2043 while (field) {
2044 if (field->name[0] == '[')
2045 err = strbuf_addstr(&buf, field->name);
2046 else
2047 err = strbuf_addf(&buf, "%s%s", field->ref ? "->" : ".",
2048 field->name);
2049 field = field->next;
2050 if (err)
2051 goto out;
2052 }
2053
2054 if (pa->type)
2055 if (strbuf_addf(&buf, ":%s", pa->type) < 0)
2056 goto out;
2057
2058 ret = strbuf_detach(&buf, NULL);
2059out:
2060 strbuf_release(&buf);
2061 return ret;
2062}
2063
2064/* Compose only probe point (not argument) */
2065static char *synthesize_perf_probe_point(struct perf_probe_point *pp)
2066{
2067 struct strbuf buf;
2068 char *tmp, *ret = NULL;
2069 int len, err = 0;
2070
2071 if (strbuf_init(&buf, 64) < 0)
2072 return NULL;
2073
2074 if (pp->function) {
2075 if (strbuf_addstr(&buf, pp->function) < 0)
2076 goto out;
2077 if (pp->offset)
2078 err = strbuf_addf(&buf, "+%lu", pp->offset);
2079 else if (pp->line)
2080 err = strbuf_addf(&buf, ":%d", pp->line);
2081 else if (pp->retprobe)
2082 err = strbuf_addstr(&buf, "%return");
2083 if (err)
2084 goto out;
2085 }
2086 if (pp->file) {
2087 tmp = pp->file;
2088 len = strlen(tmp);
2089 if (len > 30) {
2090 tmp = strchr(pp->file + len - 30, '/');
2091 tmp = tmp ? tmp + 1 : pp->file + len - 30;
2092 }
2093 err = strbuf_addf(&buf, "@%s", tmp);
2094 if (!err && !pp->function && pp->line)
2095 err = strbuf_addf(&buf, ":%d", pp->line);
2096 }
2097 if (!err)
2098 ret = strbuf_detach(&buf, NULL);
2099out:
2100 strbuf_release(&buf);
2101 return ret;
2102}
2103
2104char *synthesize_perf_probe_command(struct perf_probe_event *pev)
2105{
2106 struct strbuf buf;
2107 char *tmp, *ret = NULL;
2108 int i;
2109
2110 if (strbuf_init(&buf, 64))
2111 return NULL;
2112 if (pev->event)
2113 if (strbuf_addf(&buf, "%s:%s=", pev->group ?: PERFPROBE_GROUP,
2114 pev->event) < 0)
2115 goto out;
2116
2117 tmp = synthesize_perf_probe_point(&pev->point);
2118 if (!tmp || strbuf_addstr(&buf, tmp) < 0) {
2119 free(tmp);
2120 goto out;
2121 }
2122 free(tmp);
2123
2124 for (i = 0; i < pev->nargs; i++) {
2125 tmp = synthesize_perf_probe_arg(pev->args + i);
2126 if (!tmp || strbuf_addf(&buf, " %s", tmp) < 0) {
2127 free(tmp);
2128 goto out;
2129 }
2130 free(tmp);
2131 }
2132
2133 ret = strbuf_detach(&buf, NULL);
2134out:
2135 strbuf_release(&buf);
2136 return ret;
2137}
2138
2139static int __synthesize_probe_trace_arg_ref(struct probe_trace_arg_ref *ref,
2140 struct strbuf *buf, int depth)
2141{
2142 int err;
2143 if (ref->next) {
2144 depth = __synthesize_probe_trace_arg_ref(ref->next, buf,
2145 depth + 1);
2146 if (depth < 0)
2147 return depth;
2148 }
2149 if (ref->user_access)
2150 err = strbuf_addf(buf, "%s%ld(", "+u", ref->offset);
2151 else
2152 err = strbuf_addf(buf, "%+ld(", ref->offset);
2153 return (err < 0) ? err : depth;
2154}
2155
2156static int synthesize_probe_trace_arg(struct probe_trace_arg *arg,
2157 struct strbuf *buf)
2158{
2159 struct probe_trace_arg_ref *ref = arg->ref;
2160 int depth = 0, err;
2161
2162 /* Argument name or separator */
2163 if (arg->name)
2164 err = strbuf_addf(buf, " %s=", arg->name);
2165 else
2166 err = strbuf_addch(buf, ' ');
2167 if (err)
2168 return err;
2169
2170 /* Special case: @XXX */
2171 if (arg->value[0] == '@' && arg->ref)
2172 ref = ref->next;
2173
2174 /* Dereferencing arguments */
2175 if (ref) {
2176 depth = __synthesize_probe_trace_arg_ref(ref, buf, 1);
2177 if (depth < 0)
2178 return depth;
2179 }
2180
2181 /* Print argument value */
2182 if (arg->value[0] == '@' && arg->ref)
2183 err = strbuf_addf(buf, "%s%+ld", arg->value, arg->ref->offset);
2184 else
2185 err = strbuf_addstr(buf, arg->value);
2186
2187 /* Closing */
2188 while (!err && depth--)
2189 err = strbuf_addch(buf, ')');
2190
2191 /* Print argument type */
2192 if (!err && arg->type)
2193 err = strbuf_addf(buf, ":%s", arg->type);
2194
2195 return err;
2196}
2197
2198static int
2199synthesize_probe_trace_args(struct probe_trace_event *tev, struct strbuf *buf)
2200{
2201 int i, ret = 0;
2202
2203 for (i = 0; i < tev->nargs && ret >= 0; i++)
2204 ret = synthesize_probe_trace_arg(&tev->args[i], buf);
2205
2206 return ret;
2207}
2208
2209static int
2210synthesize_uprobe_trace_def(struct probe_trace_point *tp, struct strbuf *buf)
2211{
2212 int err;
2213
2214 /* Uprobes must have tp->module */
2215 if (!tp->module)
2216 return -EINVAL;
2217 /*
2218 * If tp->address == 0, then this point must be a
2219 * absolute address uprobe.
2220 * try_to_find_absolute_address() should have made
2221 * tp->symbol to "0x0".
2222 */
2223 if (!tp->address && (!tp->symbol || strcmp(tp->symbol, "0x0")))
2224 return -EINVAL;
2225
2226 /* Use the tp->address for uprobes */
2227 err = strbuf_addf(buf, "%s:0x%" PRIx64, tp->module, tp->address);
2228
2229 if (err >= 0 && tp->ref_ctr_offset) {
2230 if (!uprobe_ref_ctr_is_supported())
2231 return -EINVAL;
2232 err = strbuf_addf(buf, "(0x%lx)", tp->ref_ctr_offset);
2233 }
2234 return err >= 0 ? 0 : err;
2235}
2236
2237static int
2238synthesize_kprobe_trace_def(struct probe_trace_point *tp, struct strbuf *buf)
2239{
2240 if (!strncmp(tp->symbol, "0x", 2)) {
2241 /* Absolute address. See try_to_find_absolute_address() */
2242 return strbuf_addf(buf, "%s%s0x%" PRIx64, tp->module ?: "",
2243 tp->module ? ":" : "", tp->address);
2244 } else {
2245 return strbuf_addf(buf, "%s%s%s+%lu", tp->module ?: "",
2246 tp->module ? ":" : "", tp->symbol, tp->offset);
2247 }
2248}
2249
2250char *synthesize_probe_trace_command(struct probe_trace_event *tev)
2251{
2252 struct probe_trace_point *tp = &tev->point;
2253 struct strbuf buf;
2254 char *ret = NULL;
2255 int err;
2256
2257 if (strbuf_init(&buf, 32) < 0)
2258 return NULL;
2259
2260 if (strbuf_addf(&buf, "%c:%s/%s ", tp->retprobe ? 'r' : 'p',
2261 tev->group, tev->event) < 0)
2262 goto error;
2263
2264 if (tev->uprobes)
2265 err = synthesize_uprobe_trace_def(tp, &buf);
2266 else
2267 err = synthesize_kprobe_trace_def(tp, &buf);
2268
2269 if (err >= 0)
2270 err = synthesize_probe_trace_args(tev, &buf);
2271
2272 if (err >= 0)
2273 ret = strbuf_detach(&buf, NULL);
2274error:
2275 strbuf_release(&buf);
2276 return ret;
2277}
2278
2279static int find_perf_probe_point_from_map(struct probe_trace_point *tp,
2280 struct perf_probe_point *pp,
2281 bool is_kprobe)
2282{
2283 struct symbol *sym = NULL;
2284 struct map *map = NULL;
2285 u64 addr = tp->address;
2286 int ret = -ENOENT;
2287
2288 if (!is_kprobe) {
2289 map = dso__new_map(tp->module);
2290 if (!map)
2291 goto out;
2292 sym = map__find_symbol(map, addr);
2293 } else {
2294 if (tp->symbol && !addr) {
2295 if (kernel_get_symbol_address_by_name(tp->symbol,
2296 &addr, true, false) < 0)
2297 goto out;
2298 }
2299 if (addr) {
2300 addr += tp->offset;
2301 sym = machine__find_kernel_symbol(host_machine, addr, &map);
2302 }
2303 }
2304
2305 if (!sym)
2306 goto out;
2307
2308 pp->retprobe = tp->retprobe;
2309 pp->offset = addr - map__unmap_ip(map, sym->start);
2310 pp->function = strdup(sym->name);
2311 ret = pp->function ? 0 : -ENOMEM;
2312
2313out:
2314 map__put(map);
2315
2316 return ret;
2317}
2318
2319static int convert_to_perf_probe_point(struct probe_trace_point *tp,
2320 struct perf_probe_point *pp,
2321 bool is_kprobe)
2322{
2323 char buf[128];
2324 int ret;
2325
2326 ret = find_perf_probe_point_from_dwarf(tp, pp, is_kprobe);
2327 if (!ret)
2328 return 0;
2329 ret = find_perf_probe_point_from_map(tp, pp, is_kprobe);
2330 if (!ret)
2331 return 0;
2332
2333 pr_debug("Failed to find probe point from both of dwarf and map.\n");
2334
2335 if (tp->symbol) {
2336 pp->function = strdup(tp->symbol);
2337 pp->offset = tp->offset;
2338 } else {
2339 ret = e_snprintf(buf, 128, "0x%" PRIx64, tp->address);
2340 if (ret < 0)
2341 return ret;
2342 pp->function = strdup(buf);
2343 pp->offset = 0;
2344 }
2345 if (pp->function == NULL)
2346 return -ENOMEM;
2347
2348 pp->retprobe = tp->retprobe;
2349
2350 return 0;
2351}
2352
2353static int convert_to_perf_probe_event(struct probe_trace_event *tev,
2354 struct perf_probe_event *pev, bool is_kprobe)
2355{
2356 struct strbuf buf = STRBUF_INIT;
2357 int i, ret;
2358
2359 /* Convert event/group name */
2360 pev->event = strdup(tev->event);
2361 pev->group = strdup(tev->group);
2362 if (pev->event == NULL || pev->group == NULL)
2363 return -ENOMEM;
2364
2365 /* Convert trace_point to probe_point */
2366 ret = convert_to_perf_probe_point(&tev->point, &pev->point, is_kprobe);
2367 if (ret < 0)
2368 return ret;
2369
2370 /* Convert trace_arg to probe_arg */
2371 pev->nargs = tev->nargs;
2372 pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
2373 if (pev->args == NULL)
2374 return -ENOMEM;
2375 for (i = 0; i < tev->nargs && ret >= 0; i++) {
2376 if (tev->args[i].name)
2377 pev->args[i].name = strdup(tev->args[i].name);
2378 else {
2379 if ((ret = strbuf_init(&buf, 32)) < 0)
2380 goto error;
2381 ret = synthesize_probe_trace_arg(&tev->args[i], &buf);
2382 pev->args[i].name = strbuf_detach(&buf, NULL);
2383 }
2384 if (pev->args[i].name == NULL && ret >= 0)
2385 ret = -ENOMEM;
2386 }
2387error:
2388 if (ret < 0)
2389 clear_perf_probe_event(pev);
2390
2391 return ret;
2392}
2393
2394void clear_perf_probe_event(struct perf_probe_event *pev)
2395{
2396 struct perf_probe_arg_field *field, *next;
2397 int i;
2398
2399 zfree(&pev->event);
2400 zfree(&pev->group);
2401 zfree(&pev->target);
2402 clear_perf_probe_point(&pev->point);
2403
2404 for (i = 0; i < pev->nargs; i++) {
2405 zfree(&pev->args[i].name);
2406 zfree(&pev->args[i].var);
2407 zfree(&pev->args[i].type);
2408 field = pev->args[i].field;
2409 while (field) {
2410 next = field->next;
2411 zfree(&field->name);
2412 free(field);
2413 field = next;
2414 }
2415 }
2416 pev->nargs = 0;
2417 zfree(&pev->args);
2418}
2419
2420#define strdup_or_goto(str, label) \
2421({ char *__p = NULL; if (str && !(__p = strdup(str))) goto label; __p; })
2422
2423static int perf_probe_point__copy(struct perf_probe_point *dst,
2424 struct perf_probe_point *src)
2425{
2426 dst->file = strdup_or_goto(src->file, out_err);
2427 dst->function = strdup_or_goto(src->function, out_err);
2428 dst->lazy_line = strdup_or_goto(src->lazy_line, out_err);
2429 dst->line = src->line;
2430 dst->retprobe = src->retprobe;
2431 dst->offset = src->offset;
2432 return 0;
2433
2434out_err:
2435 clear_perf_probe_point(dst);
2436 return -ENOMEM;
2437}
2438
2439static int perf_probe_arg__copy(struct perf_probe_arg *dst,
2440 struct perf_probe_arg *src)
2441{
2442 struct perf_probe_arg_field *field, **ppfield;
2443
2444 dst->name = strdup_or_goto(src->name, out_err);
2445 dst->var = strdup_or_goto(src->var, out_err);
2446 dst->type = strdup_or_goto(src->type, out_err);
2447
2448 field = src->field;
2449 ppfield = &(dst->field);
2450 while (field) {
2451 *ppfield = zalloc(sizeof(*field));
2452 if (!*ppfield)
2453 goto out_err;
2454 (*ppfield)->name = strdup_or_goto(field->name, out_err);
2455 (*ppfield)->index = field->index;
2456 (*ppfield)->ref = field->ref;
2457 field = field->next;
2458 ppfield = &((*ppfield)->next);
2459 }
2460 return 0;
2461out_err:
2462 return -ENOMEM;
2463}
2464
2465int perf_probe_event__copy(struct perf_probe_event *dst,
2466 struct perf_probe_event *src)
2467{
2468 int i;
2469
2470 dst->event = strdup_or_goto(src->event, out_err);
2471 dst->group = strdup_or_goto(src->group, out_err);
2472 dst->target = strdup_or_goto(src->target, out_err);
2473 dst->uprobes = src->uprobes;
2474
2475 if (perf_probe_point__copy(&dst->point, &src->point) < 0)
2476 goto out_err;
2477
2478 dst->args = zalloc(sizeof(struct perf_probe_arg) * src->nargs);
2479 if (!dst->args)
2480 goto out_err;
2481 dst->nargs = src->nargs;
2482
2483 for (i = 0; i < src->nargs; i++)
2484 if (perf_probe_arg__copy(&dst->args[i], &src->args[i]) < 0)
2485 goto out_err;
2486 return 0;
2487
2488out_err:
2489 clear_perf_probe_event(dst);
2490 return -ENOMEM;
2491}
2492
2493void clear_probe_trace_event(struct probe_trace_event *tev)
2494{
2495 struct probe_trace_arg_ref *ref, *next;
2496 int i;
2497
2498 zfree(&tev->event);
2499 zfree(&tev->group);
2500 zfree(&tev->point.symbol);
2501 zfree(&tev->point.realname);
2502 zfree(&tev->point.module);
2503 for (i = 0; i < tev->nargs; i++) {
2504 zfree(&tev->args[i].name);
2505 zfree(&tev->args[i].value);
2506 zfree(&tev->args[i].type);
2507 ref = tev->args[i].ref;
2508 while (ref) {
2509 next = ref->next;
2510 free(ref);
2511 ref = next;
2512 }
2513 }
2514 zfree(&tev->args);
2515 tev->nargs = 0;
2516}
2517
2518struct kprobe_blacklist_node {
2519 struct list_head list;
2520 u64 start;
2521 u64 end;
2522 char *symbol;
2523};
2524
2525static void kprobe_blacklist__delete(struct list_head *blacklist)
2526{
2527 struct kprobe_blacklist_node *node;
2528
2529 while (!list_empty(blacklist)) {
2530 node = list_first_entry(blacklist,
2531 struct kprobe_blacklist_node, list);
2532 list_del_init(&node->list);
2533 zfree(&node->symbol);
2534 free(node);
2535 }
2536}
2537
2538static int kprobe_blacklist__load(struct list_head *blacklist)
2539{
2540 struct kprobe_blacklist_node *node;
2541 const char *__debugfs = debugfs__mountpoint();
2542 char buf[PATH_MAX], *p;
2543 FILE *fp;
2544 int ret;
2545
2546 if (__debugfs == NULL)
2547 return -ENOTSUP;
2548
2549 ret = e_snprintf(buf, PATH_MAX, "%s/kprobes/blacklist", __debugfs);
2550 if (ret < 0)
2551 return ret;
2552
2553 fp = fopen(buf, "r");
2554 if (!fp)
2555 return -errno;
2556
2557 ret = 0;
2558 while (fgets(buf, PATH_MAX, fp)) {
2559 node = zalloc(sizeof(*node));
2560 if (!node) {
2561 ret = -ENOMEM;
2562 break;
2563 }
2564 INIT_LIST_HEAD(&node->list);
2565 list_add_tail(&node->list, blacklist);
2566 if (sscanf(buf, "0x%" PRIx64 "-0x%" PRIx64, &node->start, &node->end) != 2) {
2567 ret = -EINVAL;
2568 break;
2569 }
2570 p = strchr(buf, '\t');
2571 if (p) {
2572 p++;
2573 if (p[strlen(p) - 1] == '\n')
2574 p[strlen(p) - 1] = '\0';
2575 } else
2576 p = (char *)"unknown";
2577 node->symbol = strdup(p);
2578 if (!node->symbol) {
2579 ret = -ENOMEM;
2580 break;
2581 }
2582 pr_debug2("Blacklist: 0x%" PRIx64 "-0x%" PRIx64 ", %s\n",
2583 node->start, node->end, node->symbol);
2584 ret++;
2585 }
2586 if (ret < 0)
2587 kprobe_blacklist__delete(blacklist);
2588 fclose(fp);
2589
2590 return ret;
2591}
2592
2593static struct kprobe_blacklist_node *
2594kprobe_blacklist__find_by_address(struct list_head *blacklist, u64 address)
2595{
2596 struct kprobe_blacklist_node *node;
2597
2598 list_for_each_entry(node, blacklist, list) {
2599 if (node->start <= address && address < node->end)
2600 return node;
2601 }
2602
2603 return NULL;
2604}
2605
2606static LIST_HEAD(kprobe_blacklist);
2607
2608static void kprobe_blacklist__init(void)
2609{
2610 if (!list_empty(&kprobe_blacklist))
2611 return;
2612
2613 if (kprobe_blacklist__load(&kprobe_blacklist) < 0)
2614 pr_debug("No kprobe blacklist support, ignored\n");
2615}
2616
2617static void kprobe_blacklist__release(void)
2618{
2619 kprobe_blacklist__delete(&kprobe_blacklist);
2620}
2621
2622static bool kprobe_blacklist__listed(u64 address)
2623{
2624 return !!kprobe_blacklist__find_by_address(&kprobe_blacklist, address);
2625}
2626
2627static int perf_probe_event__sprintf(const char *group, const char *event,
2628 struct perf_probe_event *pev,
2629 const char *module,
2630 struct strbuf *result)
2631{
2632 int i, ret;
2633 char *buf;
2634
2635 if (asprintf(&buf, "%s:%s", group, event) < 0)
2636 return -errno;
2637 ret = strbuf_addf(result, " %-20s (on ", buf);
2638 free(buf);
2639 if (ret)
2640 return ret;
2641
2642 /* Synthesize only event probe point */
2643 buf = synthesize_perf_probe_point(&pev->point);
2644 if (!buf)
2645 return -ENOMEM;
2646 ret = strbuf_addstr(result, buf);
2647 free(buf);
2648
2649 if (!ret && module)
2650 ret = strbuf_addf(result, " in %s", module);
2651
2652 if (!ret && pev->nargs > 0) {
2653 ret = strbuf_add(result, " with", 5);
2654 for (i = 0; !ret && i < pev->nargs; i++) {
2655 buf = synthesize_perf_probe_arg(&pev->args[i]);
2656 if (!buf)
2657 return -ENOMEM;
2658 ret = strbuf_addf(result, " %s", buf);
2659 free(buf);
2660 }
2661 }
2662 if (!ret)
2663 ret = strbuf_addch(result, ')');
2664
2665 return ret;
2666}
2667
2668/* Show an event */
2669int show_perf_probe_event(const char *group, const char *event,
2670 struct perf_probe_event *pev,
2671 const char *module, bool use_stdout)
2672{
2673 struct strbuf buf = STRBUF_INIT;
2674 int ret;
2675
2676 ret = perf_probe_event__sprintf(group, event, pev, module, &buf);
2677 if (ret >= 0) {
2678 if (use_stdout)
2679 printf("%s\n", buf.buf);
2680 else
2681 pr_info("%s\n", buf.buf);
2682 }
2683 strbuf_release(&buf);
2684
2685 return ret;
2686}
2687
2688static bool filter_probe_trace_event(struct probe_trace_event *tev,
2689 struct strfilter *filter)
2690{
2691 char tmp[128];
2692
2693 /* At first, check the event name itself */
2694 if (strfilter__compare(filter, tev->event))
2695 return true;
2696
2697 /* Next, check the combination of name and group */
2698 if (e_snprintf(tmp, 128, "%s:%s", tev->group, tev->event) < 0)
2699 return false;
2700 return strfilter__compare(filter, tmp);
2701}
2702
2703static int __show_perf_probe_events(int fd, bool is_kprobe,
2704 struct strfilter *filter)
2705{
2706 int ret = 0;
2707 struct probe_trace_event tev;
2708 struct perf_probe_event pev;
2709 struct strlist *rawlist;
2710 struct str_node *ent;
2711
2712 memset(&tev, 0, sizeof(tev));
2713 memset(&pev, 0, sizeof(pev));
2714
2715 rawlist = probe_file__get_rawlist(fd);
2716 if (!rawlist)
2717 return -ENOMEM;
2718
2719 strlist__for_each_entry(ent, rawlist) {
2720 ret = parse_probe_trace_command(ent->s, &tev);
2721 if (ret >= 0) {
2722 if (!filter_probe_trace_event(&tev, filter))
2723 goto next;
2724 ret = convert_to_perf_probe_event(&tev, &pev,
2725 is_kprobe);
2726 if (ret < 0)
2727 goto next;
2728 ret = show_perf_probe_event(pev.group, pev.event,
2729 &pev, tev.point.module,
2730 true);
2731 }
2732next:
2733 clear_perf_probe_event(&pev);
2734 clear_probe_trace_event(&tev);
2735 if (ret < 0)
2736 break;
2737 }
2738 strlist__delete(rawlist);
2739 /* Cleanup cached debuginfo if needed */
2740 debuginfo_cache__exit();
2741
2742 return ret;
2743}
2744
2745/* List up current perf-probe events */
2746int show_perf_probe_events(struct strfilter *filter)
2747{
2748 int kp_fd, up_fd, ret;
2749
2750 setup_pager();
2751
2752 if (probe_conf.cache)
2753 return probe_cache__show_all_caches(filter);
2754
2755 ret = init_probe_symbol_maps(false);
2756 if (ret < 0)
2757 return ret;
2758
2759 ret = probe_file__open_both(&kp_fd, &up_fd, 0);
2760 if (ret < 0)
2761 return ret;
2762
2763 if (kp_fd >= 0)
2764 ret = __show_perf_probe_events(kp_fd, true, filter);
2765 if (up_fd >= 0 && ret >= 0)
2766 ret = __show_perf_probe_events(up_fd, false, filter);
2767 if (kp_fd > 0)
2768 close(kp_fd);
2769 if (up_fd > 0)
2770 close(up_fd);
2771 exit_probe_symbol_maps();
2772
2773 return ret;
2774}
2775
2776static int get_new_event_name(char *buf, size_t len, const char *base,
2777 struct strlist *namelist, bool ret_event,
2778 bool allow_suffix)
2779{
2780 int i, ret;
2781 char *p, *nbase;
2782
2783 if (*base == '.')
2784 base++;
2785 nbase = strdup(base);
2786 if (!nbase)
2787 return -ENOMEM;
2788
2789 /* Cut off the dot suffixes (e.g. .const, .isra) and version suffixes */
2790 p = strpbrk(nbase, ".@");
2791 if (p && p != nbase)
2792 *p = '\0';
2793
2794 /* Try no suffix number */
2795 ret = e_snprintf(buf, len, "%s%s", nbase, ret_event ? "__return" : "");
2796 if (ret < 0) {
2797 pr_warning("snprintf() failed: %d; the event name '%s' is too long\n"
2798 " Hint: Set a shorter event with syntax \"EVENT=PROBEDEF\"\n"
2799 " EVENT: Event name (max length: %d bytes).\n",
2800 ret, nbase, MAX_EVENT_NAME_LEN);
2801 goto out;
2802 }
2803 if (!strlist__has_entry(namelist, buf))
2804 goto out;
2805
2806 if (!allow_suffix) {
2807 pr_warning("Error: event \"%s\" already exists.\n"
2808 " Hint: Remove existing event by 'perf probe -d'\n"
2809 " or force duplicates by 'perf probe -f'\n"
2810 " or set 'force=yes' in BPF source.\n",
2811 buf);
2812 ret = -EEXIST;
2813 goto out;
2814 }
2815
2816 /* Try to add suffix */
2817 for (i = 1; i < MAX_EVENT_INDEX; i++) {
2818 ret = e_snprintf(buf, len, "%s_%d", nbase, i);
2819 if (ret < 0) {
2820 pr_warning("Add suffix failed: %d; the event name '%s' is too long\n"
2821 " Hint: Set a shorter event with syntax \"EVENT=PROBEDEF\"\n"
2822 " EVENT: Event name (max length: %d bytes).\n",
2823 ret, nbase, MAX_EVENT_NAME_LEN);
2824 goto out;
2825 }
2826 if (!strlist__has_entry(namelist, buf))
2827 break;
2828 }
2829 if (i == MAX_EVENT_INDEX) {
2830 pr_warning("Too many events are on the same function.\n");
2831 ret = -ERANGE;
2832 }
2833
2834out:
2835 free(nbase);
2836
2837 /* Final validation */
2838 if (ret >= 0 && !is_c_func_name(buf)) {
2839 pr_warning("Internal error: \"%s\" is an invalid event name.\n",
2840 buf);
2841 ret = -EINVAL;
2842 }
2843
2844 return ret;
2845}
2846
2847/* Warn if the current kernel's uprobe implementation is old */
2848static void warn_uprobe_event_compat(struct probe_trace_event *tev)
2849{
2850 int i;
2851 char *buf = synthesize_probe_trace_command(tev);
2852 struct probe_trace_point *tp = &tev->point;
2853
2854 if (tp->ref_ctr_offset && !uprobe_ref_ctr_is_supported()) {
2855 pr_warning("A semaphore is associated with %s:%s and "
2856 "seems your kernel doesn't support it.\n",
2857 tev->group, tev->event);
2858 }
2859
2860 /* Old uprobe event doesn't support memory dereference */
2861 if (!tev->uprobes || tev->nargs == 0 || !buf)
2862 goto out;
2863
2864 for (i = 0; i < tev->nargs; i++) {
2865 if (strchr(tev->args[i].value, '@')) {
2866 pr_warning("%s accesses a variable by symbol name, but that is not supported for user application probe.\n",
2867 tev->args[i].value);
2868 break;
2869 }
2870 if (strglobmatch(tev->args[i].value, "[$+-]*")) {
2871 pr_warning("Please upgrade your kernel to at least 3.14 to have access to feature %s\n",
2872 tev->args[i].value);
2873 break;
2874 }
2875 }
2876out:
2877 free(buf);
2878}
2879
2880/* Set new name from original perf_probe_event and namelist */
2881static int probe_trace_event__set_name(struct probe_trace_event *tev,
2882 struct perf_probe_event *pev,
2883 struct strlist *namelist,
2884 bool allow_suffix)
2885{
2886 const char *event, *group;
2887 char buf[MAX_EVENT_NAME_LEN];
2888 int ret;
2889
2890 /* If probe_event or trace_event already have the name, reuse it */
2891 if (pev->event && !pev->sdt)
2892 event = pev->event;
2893 else if (tev->event)
2894 event = tev->event;
2895 else {
2896 /* Or generate new one from probe point */
2897 if (pev->point.function &&
2898 (strncmp(pev->point.function, "0x", 2) != 0) &&
2899 !strisglob(pev->point.function))
2900 event = pev->point.function;
2901 else
2902 event = tev->point.realname;
2903 }
2904 if (pev->group && !pev->sdt)
2905 group = pev->group;
2906 else if (tev->group)
2907 group = tev->group;
2908 else
2909 group = PERFPROBE_GROUP;
2910
2911 if (strlen(group) >= MAX_EVENT_NAME_LEN) {
2912 pr_err("Probe group string='%s' is too long (>= %d bytes)\n",
2913 group, MAX_EVENT_NAME_LEN);
2914 return -ENOMEM;
2915 }
2916
2917 /* Get an unused new event name */
2918 ret = get_new_event_name(buf, sizeof(buf), event, namelist,
2919 tev->point.retprobe, allow_suffix);
2920 if (ret < 0)
2921 return ret;
2922
2923 event = buf;
2924
2925 tev->event = strdup(event);
2926 tev->group = strdup(group);
2927 if (tev->event == NULL || tev->group == NULL)
2928 return -ENOMEM;
2929
2930 /*
2931 * Add new event name to namelist if multiprobe event is NOT
2932 * supported, since we have to use new event name for following
2933 * probes in that case.
2934 */
2935 if (!multiprobe_event_is_supported())
2936 strlist__add(namelist, event);
2937 return 0;
2938}
2939
2940static int __open_probe_file_and_namelist(bool uprobe,
2941 struct strlist **namelist)
2942{
2943 int fd;
2944
2945 fd = probe_file__open(PF_FL_RW | (uprobe ? PF_FL_UPROBE : 0));
2946 if (fd < 0)
2947 return fd;
2948
2949 /* Get current event names */
2950 *namelist = probe_file__get_namelist(fd);
2951 if (!(*namelist)) {
2952 pr_debug("Failed to get current event list.\n");
2953 close(fd);
2954 return -ENOMEM;
2955 }
2956 return fd;
2957}
2958
2959static int __add_probe_trace_events(struct perf_probe_event *pev,
2960 struct probe_trace_event *tevs,
2961 int ntevs, bool allow_suffix)
2962{
2963 int i, fd[2] = {-1, -1}, up, ret;
2964 struct probe_trace_event *tev = NULL;
2965 struct probe_cache *cache = NULL;
2966 struct strlist *namelist[2] = {NULL, NULL};
2967 struct nscookie nsc;
2968
2969 up = pev->uprobes ? 1 : 0;
2970 fd[up] = __open_probe_file_and_namelist(up, &namelist[up]);
2971 if (fd[up] < 0)
2972 return fd[up];
2973
2974 ret = 0;
2975 for (i = 0; i < ntevs; i++) {
2976 tev = &tevs[i];
2977 up = tev->uprobes ? 1 : 0;
2978 if (fd[up] == -1) { /* Open the kprobe/uprobe_events */
2979 fd[up] = __open_probe_file_and_namelist(up,
2980 &namelist[up]);
2981 if (fd[up] < 0)
2982 goto close_out;
2983 }
2984 /* Skip if the symbol is out of .text or blacklisted */
2985 if (!tev->point.symbol && !pev->uprobes)
2986 continue;
2987
2988 /* Set new name for tev (and update namelist) */
2989 ret = probe_trace_event__set_name(tev, pev, namelist[up],
2990 allow_suffix);
2991 if (ret < 0)
2992 break;
2993
2994 nsinfo__mountns_enter(pev->nsi, &nsc);
2995 ret = probe_file__add_event(fd[up], tev);
2996 nsinfo__mountns_exit(&nsc);
2997 if (ret < 0)
2998 break;
2999
3000 /*
3001 * Probes after the first probe which comes from same
3002 * user input are always allowed to add suffix, because
3003 * there might be several addresses corresponding to
3004 * one code line.
3005 */
3006 allow_suffix = true;
3007 }
3008 if (ret == -EINVAL && pev->uprobes)
3009 warn_uprobe_event_compat(tev);
3010 if (ret == 0 && probe_conf.cache) {
3011 cache = probe_cache__new(pev->target, pev->nsi);
3012 if (!cache ||
3013 probe_cache__add_entry(cache, pev, tevs, ntevs) < 0 ||
3014 probe_cache__commit(cache) < 0)
3015 pr_warning("Failed to add event to probe cache\n");
3016 probe_cache__delete(cache);
3017 }
3018
3019close_out:
3020 for (up = 0; up < 2; up++) {
3021 strlist__delete(namelist[up]);
3022 if (fd[up] >= 0)
3023 close(fd[up]);
3024 }
3025 return ret;
3026}
3027
3028static int find_probe_functions(struct map *map, char *name,
3029 struct symbol **syms)
3030{
3031 int found = 0;
3032 struct symbol *sym;
3033 struct rb_node *tmp;
3034 const char *norm, *ver;
3035 char *buf = NULL;
3036 bool cut_version = true;
3037
3038 if (map__load(map) < 0)
3039 return -EACCES; /* Possible permission error to load symbols */
3040
3041 /* If user gives a version, don't cut off the version from symbols */
3042 if (strchr(name, '@'))
3043 cut_version = false;
3044
3045 map__for_each_symbol(map, sym, tmp) {
3046 norm = arch__normalize_symbol_name(sym->name);
3047 if (!norm)
3048 continue;
3049
3050 if (cut_version) {
3051 /* We don't care about default symbol or not */
3052 ver = strchr(norm, '@');
3053 if (ver) {
3054 buf = strndup(norm, ver - norm);
3055 if (!buf)
3056 return -ENOMEM;
3057 norm = buf;
3058 }
3059 }
3060
3061 if (strglobmatch(norm, name)) {
3062 found++;
3063 if (syms && found < probe_conf.max_probes)
3064 syms[found - 1] = sym;
3065 }
3066 if (buf)
3067 zfree(&buf);
3068 }
3069
3070 return found;
3071}
3072
3073void __weak arch__fix_tev_from_maps(struct perf_probe_event *pev __maybe_unused,
3074 struct probe_trace_event *tev __maybe_unused,
3075 struct map *map __maybe_unused,
3076 struct symbol *sym __maybe_unused) { }
3077
3078
3079static void pr_kallsyms_access_error(void)
3080{
3081 pr_err("Please ensure you can read the /proc/kallsyms symbol addresses.\n"
3082 "If /proc/sys/kernel/kptr_restrict is '2', you can not read\n"
3083 "kernel symbol addresses even if you are a superuser. Please change\n"
3084 "it to '1'. If kptr_restrict is '1', the superuser can read the\n"
3085 "symbol addresses.\n"
3086 "In that case, please run this command again with sudo.\n");
3087}
3088
3089/*
3090 * Find probe function addresses from map.
3091 * Return an error or the number of found probe_trace_event
3092 */
3093static int find_probe_trace_events_from_map(struct perf_probe_event *pev,
3094 struct probe_trace_event **tevs)
3095{
3096 struct map *map = NULL;
3097 struct ref_reloc_sym *reloc_sym = NULL;
3098 struct symbol *sym;
3099 struct symbol **syms = NULL;
3100 struct probe_trace_event *tev;
3101 struct perf_probe_point *pp = &pev->point;
3102 struct probe_trace_point *tp;
3103 int num_matched_functions;
3104 int ret, i, j, skipped = 0;
3105 char *mod_name;
3106
3107 map = get_target_map(pev->target, pev->nsi, pev->uprobes);
3108 if (!map) {
3109 ret = -EINVAL;
3110 goto out;
3111 }
3112
3113 syms = malloc(sizeof(struct symbol *) * probe_conf.max_probes);
3114 if (!syms) {
3115 ret = -ENOMEM;
3116 goto out;
3117 }
3118
3119 /*
3120 * Load matched symbols: Since the different local symbols may have
3121 * same name but different addresses, this lists all the symbols.
3122 */
3123 num_matched_functions = find_probe_functions(map, pp->function, syms);
3124 if (num_matched_functions <= 0) {
3125 if (num_matched_functions == -EACCES) {
3126 pr_err("Failed to load symbols from %s\n",
3127 pev->target ?: "/proc/kallsyms");
3128 if (pev->target)
3129 pr_err("Please ensure the file is not stripped.\n");
3130 else
3131 pr_kallsyms_access_error();
3132 } else
3133 pr_err("Failed to find symbol %s in %s\n", pp->function,
3134 pev->target ? : "kernel");
3135 ret = -ENOENT;
3136 goto out;
3137 } else if (num_matched_functions > probe_conf.max_probes) {
3138 pr_err("Too many functions matched in %s\n",
3139 pev->target ? : "kernel");
3140 ret = -E2BIG;
3141 goto out;
3142 }
3143
3144 /* Note that the symbols in the kmodule are not relocated */
3145 if (!pev->uprobes && !pev->target &&
3146 (!pp->retprobe || kretprobe_offset_is_supported())) {
3147 reloc_sym = kernel_get_ref_reloc_sym(NULL);
3148 if (!reloc_sym) {
3149 pr_warning("Relocated base symbol is not found! "
3150 "Check /proc/sys/kernel/kptr_restrict\n"
3151 "and /proc/sys/kernel/perf_event_paranoid. "
3152 "Or run as privileged perf user.\n\n");
3153 ret = -EINVAL;
3154 goto out;
3155 }
3156 }
3157
3158 /* Setup result trace-probe-events */
3159 *tevs = zalloc(sizeof(*tev) * num_matched_functions);
3160 if (!*tevs) {
3161 ret = -ENOMEM;
3162 goto out;
3163 }
3164
3165 ret = 0;
3166
3167 for (j = 0; j < num_matched_functions; j++) {
3168 sym = syms[j];
3169
3170 if (sym->type != STT_FUNC)
3171 continue;
3172
3173 /* There can be duplicated symbols in the map */
3174 for (i = 0; i < j; i++)
3175 if (sym->start == syms[i]->start) {
3176 pr_debug("Found duplicated symbol %s @ %" PRIx64 "\n",
3177 sym->name, sym->start);
3178 break;
3179 }
3180 if (i != j)
3181 continue;
3182
3183 tev = (*tevs) + ret;
3184 tp = &tev->point;
3185 if (ret == num_matched_functions) {
3186 pr_warning("Too many symbols are listed. Skip it.\n");
3187 break;
3188 }
3189 ret++;
3190
3191 if (pp->offset > sym->end - sym->start) {
3192 pr_warning("Offset %ld is bigger than the size of %s\n",
3193 pp->offset, sym->name);
3194 ret = -ENOENT;
3195 goto err_out;
3196 }
3197 /* Add one probe point */
3198 tp->address = map__unmap_ip(map, sym->start) + pp->offset;
3199
3200 /* Check the kprobe (not in module) is within .text */
3201 if (!pev->uprobes && !pev->target &&
3202 kprobe_warn_out_range(sym->name, tp->address)) {
3203 tp->symbol = NULL; /* Skip it */
3204 skipped++;
3205 } else if (reloc_sym) {
3206 tp->symbol = strdup_or_goto(reloc_sym->name, nomem_out);
3207 tp->offset = tp->address - reloc_sym->addr;
3208 } else {
3209 tp->symbol = strdup_or_goto(sym->name, nomem_out);
3210 tp->offset = pp->offset;
3211 }
3212 tp->realname = strdup_or_goto(sym->name, nomem_out);
3213
3214 tp->retprobe = pp->retprobe;
3215 if (pev->target) {
3216 if (pev->uprobes) {
3217 tev->point.module = strdup_or_goto(pev->target,
3218 nomem_out);
3219 } else {
3220 mod_name = find_module_name(pev->target);
3221 tev->point.module =
3222 strdup(mod_name ? mod_name : pev->target);
3223 free(mod_name);
3224 if (!tev->point.module)
3225 goto nomem_out;
3226 }
3227 }
3228 tev->uprobes = pev->uprobes;
3229 tev->nargs = pev->nargs;
3230 if (tev->nargs) {
3231 tev->args = zalloc(sizeof(struct probe_trace_arg) *
3232 tev->nargs);
3233 if (tev->args == NULL)
3234 goto nomem_out;
3235 }
3236 for (i = 0; i < tev->nargs; i++) {
3237 if (pev->args[i].name)
3238 tev->args[i].name =
3239 strdup_or_goto(pev->args[i].name,
3240 nomem_out);
3241
3242 tev->args[i].value = strdup_or_goto(pev->args[i].var,
3243 nomem_out);
3244 if (pev->args[i].type)
3245 tev->args[i].type =
3246 strdup_or_goto(pev->args[i].type,
3247 nomem_out);
3248 }
3249 arch__fix_tev_from_maps(pev, tev, map, sym);
3250 }
3251 if (ret == skipped) {
3252 ret = -ENOENT;
3253 goto err_out;
3254 }
3255
3256out:
3257 map__put(map);
3258 free(syms);
3259 return ret;
3260
3261nomem_out:
3262 ret = -ENOMEM;
3263err_out:
3264 clear_probe_trace_events(*tevs, num_matched_functions);
3265 zfree(tevs);
3266 goto out;
3267}
3268
3269static int try_to_find_absolute_address(struct perf_probe_event *pev,
3270 struct probe_trace_event **tevs)
3271{
3272 struct perf_probe_point *pp = &pev->point;
3273 struct probe_trace_event *tev;
3274 struct probe_trace_point *tp;
3275 int i, err;
3276
3277 if (!(pev->point.function && !strncmp(pev->point.function, "0x", 2)))
3278 return -EINVAL;
3279 if (perf_probe_event_need_dwarf(pev))
3280 return -EINVAL;
3281
3282 /*
3283 * This is 'perf probe /lib/libc.so 0xabcd'. Try to probe at
3284 * absolute address.
3285 *
3286 * Only one tev can be generated by this.
3287 */
3288 *tevs = zalloc(sizeof(*tev));
3289 if (!*tevs)
3290 return -ENOMEM;
3291
3292 tev = *tevs;
3293 tp = &tev->point;
3294
3295 /*
3296 * Don't use tp->offset, use address directly, because
3297 * in synthesize_probe_trace_command() address cannot be
3298 * zero.
3299 */
3300 tp->address = pev->point.abs_address;
3301 tp->retprobe = pp->retprobe;
3302 tev->uprobes = pev->uprobes;
3303
3304 err = -ENOMEM;
3305 /*
3306 * Give it a '0x' leading symbol name.
3307 * In __add_probe_trace_events, a NULL symbol is interpreted as
3308 * invalid.
3309 */
3310 if (asprintf(&tp->symbol, "0x%" PRIx64, tp->address) < 0)
3311 goto errout;
3312
3313 /* For kprobe, check range */
3314 if ((!tev->uprobes) &&
3315 (kprobe_warn_out_range(tev->point.symbol,
3316 tev->point.address))) {
3317 err = -EACCES;
3318 goto errout;
3319 }
3320
3321 if (asprintf(&tp->realname, "abs_%" PRIx64, tp->address) < 0)
3322 goto errout;
3323
3324 if (pev->target) {
3325 tp->module = strdup(pev->target);
3326 if (!tp->module)
3327 goto errout;
3328 }
3329
3330 if (tev->group) {
3331 tev->group = strdup(pev->group);
3332 if (!tev->group)
3333 goto errout;
3334 }
3335
3336 if (pev->event) {
3337 tev->event = strdup(pev->event);
3338 if (!tev->event)
3339 goto errout;
3340 }
3341
3342 tev->nargs = pev->nargs;
3343 tev->args = zalloc(sizeof(struct probe_trace_arg) * tev->nargs);
3344 if (!tev->args)
3345 goto errout;
3346
3347 for (i = 0; i < tev->nargs; i++)
3348 copy_to_probe_trace_arg(&tev->args[i], &pev->args[i]);
3349
3350 return 1;
3351
3352errout:
3353 clear_probe_trace_events(*tevs, 1);
3354 *tevs = NULL;
3355 return err;
3356}
3357
3358/* Concatenate two arrays */
3359static void *memcat(void *a, size_t sz_a, void *b, size_t sz_b)
3360{
3361 void *ret;
3362
3363 ret = malloc(sz_a + sz_b);
3364 if (ret) {
3365 memcpy(ret, a, sz_a);
3366 memcpy(ret + sz_a, b, sz_b);
3367 }
3368 return ret;
3369}
3370
3371static int
3372concat_probe_trace_events(struct probe_trace_event **tevs, int *ntevs,
3373 struct probe_trace_event **tevs2, int ntevs2)
3374{
3375 struct probe_trace_event *new_tevs;
3376 int ret = 0;
3377
3378 if (*ntevs == 0) {
3379 *tevs = *tevs2;
3380 *ntevs = ntevs2;
3381 *tevs2 = NULL;
3382 return 0;
3383 }
3384
3385 if (*ntevs + ntevs2 > probe_conf.max_probes)
3386 ret = -E2BIG;
3387 else {
3388 /* Concatenate the array of probe_trace_event */
3389 new_tevs = memcat(*tevs, (*ntevs) * sizeof(**tevs),
3390 *tevs2, ntevs2 * sizeof(**tevs2));
3391 if (!new_tevs)
3392 ret = -ENOMEM;
3393 else {
3394 free(*tevs);
3395 *tevs = new_tevs;
3396 *ntevs += ntevs2;
3397 }
3398 }
3399 if (ret < 0)
3400 clear_probe_trace_events(*tevs2, ntevs2);
3401 zfree(tevs2);
3402
3403 return ret;
3404}
3405
3406/*
3407 * Try to find probe_trace_event from given probe caches. Return the number
3408 * of cached events found, if an error occurs return the error.
3409 */
3410static int find_cached_events(struct perf_probe_event *pev,
3411 struct probe_trace_event **tevs,
3412 const char *target)
3413{
3414 struct probe_cache *cache;
3415 struct probe_cache_entry *entry;
3416 struct probe_trace_event *tmp_tevs = NULL;
3417 int ntevs = 0;
3418 int ret = 0;
3419
3420 cache = probe_cache__new(target, pev->nsi);
3421 /* Return 0 ("not found") if the target has no probe cache. */
3422 if (!cache)
3423 return 0;
3424
3425 for_each_probe_cache_entry(entry, cache) {
3426 /* Skip the cache entry which has no name */
3427 if (!entry->pev.event || !entry->pev.group)
3428 continue;
3429 if ((!pev->group || strglobmatch(entry->pev.group, pev->group)) &&
3430 strglobmatch(entry->pev.event, pev->event)) {
3431 ret = probe_cache_entry__get_event(entry, &tmp_tevs);
3432 if (ret > 0)
3433 ret = concat_probe_trace_events(tevs, &ntevs,
3434 &tmp_tevs, ret);
3435 if (ret < 0)
3436 break;
3437 }
3438 }
3439 probe_cache__delete(cache);
3440 if (ret < 0) {
3441 clear_probe_trace_events(*tevs, ntevs);
3442 zfree(tevs);
3443 } else {
3444 ret = ntevs;
3445 if (ntevs > 0 && target && target[0] == '/')
3446 pev->uprobes = true;
3447 }
3448
3449 return ret;
3450}
3451
3452/* Try to find probe_trace_event from all probe caches */
3453static int find_cached_events_all(struct perf_probe_event *pev,
3454 struct probe_trace_event **tevs)
3455{
3456 struct probe_trace_event *tmp_tevs = NULL;
3457 struct strlist *bidlist;
3458 struct str_node *nd;
3459 char *pathname;
3460 int ntevs = 0;
3461 int ret;
3462
3463 /* Get the buildid list of all valid caches */
3464 bidlist = build_id_cache__list_all(true);
3465 if (!bidlist) {
3466 ret = -errno;
3467 pr_debug("Failed to get buildids: %d\n", ret);
3468 return ret;
3469 }
3470
3471 ret = 0;
3472 strlist__for_each_entry(nd, bidlist) {
3473 pathname = build_id_cache__origname(nd->s);
3474 ret = find_cached_events(pev, &tmp_tevs, pathname);
3475 /* In the case of cnt == 0, we just skip it */
3476 if (ret > 0)
3477 ret = concat_probe_trace_events(tevs, &ntevs,
3478 &tmp_tevs, ret);
3479 free(pathname);
3480 if (ret < 0)
3481 break;
3482 }
3483 strlist__delete(bidlist);
3484
3485 if (ret < 0) {
3486 clear_probe_trace_events(*tevs, ntevs);
3487 zfree(tevs);
3488 } else
3489 ret = ntevs;
3490
3491 return ret;
3492}
3493
3494static int find_probe_trace_events_from_cache(struct perf_probe_event *pev,
3495 struct probe_trace_event **tevs)
3496{
3497 struct probe_cache *cache;
3498 struct probe_cache_entry *entry;
3499 struct probe_trace_event *tev;
3500 struct str_node *node;
3501 int ret, i;
3502
3503 if (pev->sdt) {
3504 /* For SDT/cached events, we use special search functions */
3505 if (!pev->target)
3506 return find_cached_events_all(pev, tevs);
3507 else
3508 return find_cached_events(pev, tevs, pev->target);
3509 }
3510 cache = probe_cache__new(pev->target, pev->nsi);
3511 if (!cache)
3512 return 0;
3513
3514 entry = probe_cache__find(cache, pev);
3515 if (!entry) {
3516 /* SDT must be in the cache */
3517 ret = pev->sdt ? -ENOENT : 0;
3518 goto out;
3519 }
3520
3521 ret = strlist__nr_entries(entry->tevlist);
3522 if (ret > probe_conf.max_probes) {
3523 pr_debug("Too many entries matched in the cache of %s\n",
3524 pev->target ? : "kernel");
3525 ret = -E2BIG;
3526 goto out;
3527 }
3528
3529 *tevs = zalloc(ret * sizeof(*tev));
3530 if (!*tevs) {
3531 ret = -ENOMEM;
3532 goto out;
3533 }
3534
3535 i = 0;
3536 strlist__for_each_entry(node, entry->tevlist) {
3537 tev = &(*tevs)[i++];
3538 ret = parse_probe_trace_command(node->s, tev);
3539 if (ret < 0)
3540 goto out;
3541 /* Set the uprobes attribute as same as original */
3542 tev->uprobes = pev->uprobes;
3543 }
3544 ret = i;
3545
3546out:
3547 probe_cache__delete(cache);
3548 return ret;
3549}
3550
3551static int convert_to_probe_trace_events(struct perf_probe_event *pev,
3552 struct probe_trace_event **tevs)
3553{
3554 int ret;
3555
3556 if (!pev->group && !pev->sdt) {
3557 /* Set group name if not given */
3558 if (!pev->uprobes) {
3559 pev->group = strdup(PERFPROBE_GROUP);
3560 ret = pev->group ? 0 : -ENOMEM;
3561 } else
3562 ret = convert_exec_to_group(pev->target, &pev->group);
3563 if (ret != 0) {
3564 pr_warning("Failed to make a group name.\n");
3565 return ret;
3566 }
3567 }
3568
3569 ret = try_to_find_absolute_address(pev, tevs);
3570 if (ret > 0)
3571 return ret;
3572
3573 /* At first, we need to lookup cache entry */
3574 ret = find_probe_trace_events_from_cache(pev, tevs);
3575 if (ret > 0 || pev->sdt) /* SDT can be found only in the cache */
3576 return ret == 0 ? -ENOENT : ret; /* Found in probe cache */
3577
3578 /* Convert perf_probe_event with debuginfo */
3579 ret = try_to_find_probe_trace_events(pev, tevs);
3580 if (ret != 0)
3581 return ret; /* Found in debuginfo or got an error */
3582
3583 return find_probe_trace_events_from_map(pev, tevs);
3584}
3585
3586int convert_perf_probe_events(struct perf_probe_event *pevs, int npevs)
3587{
3588 int i, ret;
3589
3590 /* Loop 1: convert all events */
3591 for (i = 0; i < npevs; i++) {
3592 /* Init kprobe blacklist if needed */
3593 if (!pevs[i].uprobes)
3594 kprobe_blacklist__init();
3595 /* Convert with or without debuginfo */
3596 ret = convert_to_probe_trace_events(&pevs[i], &pevs[i].tevs);
3597 if (ret < 0)
3598 return ret;
3599 pevs[i].ntevs = ret;
3600 }
3601 /* This just release blacklist only if allocated */
3602 kprobe_blacklist__release();
3603
3604 return 0;
3605}
3606
3607static int show_probe_trace_event(struct probe_trace_event *tev)
3608{
3609 char *buf = synthesize_probe_trace_command(tev);
3610
3611 if (!buf) {
3612 pr_debug("Failed to synthesize probe trace event.\n");
3613 return -EINVAL;
3614 }
3615
3616 /* Showing definition always go stdout */
3617 printf("%s\n", buf);
3618 free(buf);
3619
3620 return 0;
3621}
3622
3623int show_probe_trace_events(struct perf_probe_event *pevs, int npevs)
3624{
3625 struct strlist *namelist = strlist__new(NULL, NULL);
3626 struct probe_trace_event *tev;
3627 struct perf_probe_event *pev;
3628 int i, j, ret = 0;
3629
3630 if (!namelist)
3631 return -ENOMEM;
3632
3633 for (j = 0; j < npevs && !ret; j++) {
3634 pev = &pevs[j];
3635 for (i = 0; i < pev->ntevs && !ret; i++) {
3636 tev = &pev->tevs[i];
3637 /* Skip if the symbol is out of .text or blacklisted */
3638 if (!tev->point.symbol && !pev->uprobes)
3639 continue;
3640
3641 /* Set new name for tev (and update namelist) */
3642 ret = probe_trace_event__set_name(tev, pev,
3643 namelist, true);
3644 if (!ret)
3645 ret = show_probe_trace_event(tev);
3646 }
3647 }
3648 strlist__delete(namelist);
3649
3650 return ret;
3651}
3652
3653static int show_bootconfig_event(struct probe_trace_event *tev)
3654{
3655 struct probe_trace_point *tp = &tev->point;
3656 struct strbuf buf;
3657 char *ret = NULL;
3658 int err;
3659
3660 if (strbuf_init(&buf, 32) < 0)
3661 return -ENOMEM;
3662
3663 err = synthesize_kprobe_trace_def(tp, &buf);
3664 if (err >= 0)
3665 err = synthesize_probe_trace_args(tev, &buf);
3666 if (err >= 0)
3667 ret = strbuf_detach(&buf, NULL);
3668 strbuf_release(&buf);
3669
3670 if (ret) {
3671 printf("'%s'", ret);
3672 free(ret);
3673 }
3674
3675 return err;
3676}
3677
3678int show_bootconfig_events(struct perf_probe_event *pevs, int npevs)
3679{
3680 struct strlist *namelist = strlist__new(NULL, NULL);
3681 struct probe_trace_event *tev;
3682 struct perf_probe_event *pev;
3683 char *cur_name = NULL;
3684 int i, j, ret = 0;
3685
3686 if (!namelist)
3687 return -ENOMEM;
3688
3689 for (j = 0; j < npevs && !ret; j++) {
3690 pev = &pevs[j];
3691 if (pev->group && strcmp(pev->group, "probe"))
3692 pr_warning("WARN: Group name %s is ignored\n", pev->group);
3693 if (pev->uprobes) {
3694 pr_warning("ERROR: Bootconfig doesn't support uprobes\n");
3695 ret = -EINVAL;
3696 break;
3697 }
3698 for (i = 0; i < pev->ntevs && !ret; i++) {
3699 tev = &pev->tevs[i];
3700 /* Skip if the symbol is out of .text or blacklisted */
3701 if (!tev->point.symbol && !pev->uprobes)
3702 continue;
3703
3704 /* Set new name for tev (and update namelist) */
3705 ret = probe_trace_event__set_name(tev, pev,
3706 namelist, true);
3707 if (ret)
3708 break;
3709
3710 if (!cur_name || strcmp(cur_name, tev->event)) {
3711 printf("%sftrace.event.kprobes.%s.probe = ",
3712 cur_name ? "\n" : "", tev->event);
3713 cur_name = tev->event;
3714 } else
3715 printf(", ");
3716 ret = show_bootconfig_event(tev);
3717 }
3718 }
3719 printf("\n");
3720 strlist__delete(namelist);
3721
3722 return ret;
3723}
3724
3725int apply_perf_probe_events(struct perf_probe_event *pevs, int npevs)
3726{
3727 int i, ret = 0;
3728
3729 /* Loop 2: add all events */
3730 for (i = 0; i < npevs; i++) {
3731 ret = __add_probe_trace_events(&pevs[i], pevs[i].tevs,
3732 pevs[i].ntevs,
3733 probe_conf.force_add);
3734 if (ret < 0)
3735 break;
3736 }
3737 return ret;
3738}
3739
3740void cleanup_perf_probe_events(struct perf_probe_event *pevs, int npevs)
3741{
3742 int i, j;
3743 struct perf_probe_event *pev;
3744
3745 /* Loop 3: cleanup and free trace events */
3746 for (i = 0; i < npevs; i++) {
3747 pev = &pevs[i];
3748 for (j = 0; j < pevs[i].ntevs; j++)
3749 clear_probe_trace_event(&pevs[i].tevs[j]);
3750 zfree(&pevs[i].tevs);
3751 pevs[i].ntevs = 0;
3752 nsinfo__zput(pev->nsi);
3753 clear_perf_probe_event(&pevs[i]);
3754 }
3755}
3756
3757int show_available_funcs(const char *target, struct nsinfo *nsi,
3758 struct strfilter *_filter, bool user)
3759{
3760 struct map *map;
3761 struct dso *dso;
3762 int ret;
3763
3764 ret = init_probe_symbol_maps(user);
3765 if (ret < 0)
3766 return ret;
3767
3768 /* Get a symbol map */
3769 map = get_target_map(target, nsi, user);
3770 if (!map) {
3771 pr_err("Failed to get a map for %s\n", (target) ? : "kernel");
3772 return -EINVAL;
3773 }
3774
3775 ret = map__load(map);
3776 if (ret) {
3777 if (ret == -2) {
3778 char *str = strfilter__string(_filter);
3779 pr_err("Failed to find symbols matched to \"%s\"\n",
3780 str);
3781 free(str);
3782 } else
3783 pr_err("Failed to load symbols in %s\n",
3784 (target) ? : "kernel");
3785 goto end;
3786 }
3787 dso = map__dso(map);
3788 dso__sort_by_name(dso);
3789
3790 /* Show all (filtered) symbols */
3791 setup_pager();
3792
3793 for (size_t i = 0; i < dso__symbol_names_len(dso); i++) {
3794 struct symbol *pos = dso__symbol_names(dso)[i];
3795
3796 if (strfilter__compare(_filter, pos->name))
3797 printf("%s\n", pos->name);
3798 }
3799end:
3800 map__put(map);
3801 exit_probe_symbol_maps();
3802
3803 return ret;
3804}
3805
3806int copy_to_probe_trace_arg(struct probe_trace_arg *tvar,
3807 struct perf_probe_arg *pvar)
3808{
3809 tvar->value = strdup(pvar->var);
3810 if (tvar->value == NULL)
3811 return -ENOMEM;
3812 if (pvar->type) {
3813 tvar->type = strdup(pvar->type);
3814 if (tvar->type == NULL)
3815 return -ENOMEM;
3816 }
3817 if (pvar->name) {
3818 tvar->name = strdup(pvar->name);
3819 if (tvar->name == NULL)
3820 return -ENOMEM;
3821 } else
3822 tvar->name = NULL;
3823 return 0;
3824}