1 #include <linux/types.h>
8 #include "parse-events.h"
11 #include "thread_map.h"
27 static unsigned int hex(char c
)
29 if (c
>= '0' && c
<= '9')
31 if (c
>= 'a' && c
<= 'f')
36 static void read_objdump_line(const char *line
, size_t line_len
, void **buf
,
43 p
= strchr(line
, ':');
53 for (; i
< line_len
; i
++) {
54 if (!isspace(line
[i
]))
57 /* Get 2 hex digits */
58 if (i
>= line_len
|| !isxdigit(line
[i
]))
61 if (i
>= line_len
|| !isxdigit(line
[i
]))
64 /* Followed by a space */
65 if (i
< line_len
&& line
[i
] && !isspace(line
[i
]))
68 *(unsigned char *)*buf
= (hex(c1
) << 4) | hex(c2
);
74 static int read_objdump_output(FILE *f
, void **buf
, size_t *len
)
82 ret
= getline(&line
, &line_len
, f
);
86 pr_debug("getline failed\n");
90 read_objdump_line(line
, ret
, buf
, len
);
98 static int read_via_objdump(const char *filename
, u64 addr
, void *buf
,
101 char cmd
[PATH_MAX
* 2];
106 fmt
= "%s -d --start-address=0x%"PRIx64
" --stop-address=0x%"PRIx64
" %s";
107 ret
= snprintf(cmd
, sizeof(cmd
), fmt
, "objdump", addr
, addr
+ len
,
109 if (ret
<= 0 || (size_t)ret
>= sizeof(cmd
))
112 pr_debug("Objdump command is: %s\n", cmd
);
114 /* Ignore objdump errors */
115 strcat(cmd
, " 2>/dev/null");
119 pr_debug("popen failed\n");
123 ret
= read_objdump_output(f
, &buf
, &len
);
125 pr_debug("objdump read too few bytes\n");
135 static int read_object_code(u64 addr
, size_t len
, u8 cpumode
,
136 struct thread
*thread
, struct machine
*machine
,
139 struct addr_location al
;
140 unsigned char buf1
[BUFSZ
];
141 unsigned char buf2
[BUFSZ
];
146 pr_debug("Reading object code for memory address: %#"PRIx64
"\n", addr
);
148 thread__find_addr_map(thread
, cpumode
, MAP__FUNCTION
, addr
, &al
);
149 if (!al
.map
|| !al
.map
->dso
) {
150 pr_debug("thread__find_addr_map failed\n");
154 pr_debug("File is: %s\n", al
.map
->dso
->long_name
);
156 if (al
.map
->dso
->symtab_type
== DSO_BINARY_TYPE__KALLSYMS
&&
157 !dso__is_kcore(al
.map
->dso
)) {
158 pr_debug("Unexpected kernel address - skipping\n");
162 pr_debug("On file address is: %#"PRIx64
"\n", al
.addr
);
167 /* Do not go off the map */
168 if (addr
+ len
> al
.map
->end
)
169 len
= al
.map
->end
- addr
;
171 /* Read the object code using perf */
172 ret_len
= dso__data_read_offset(al
.map
->dso
, machine
, al
.addr
, buf1
,
174 if (ret_len
!= len
) {
175 pr_debug("dso__data_read_offset failed\n");
180 * Converting addresses for use by objdump requires more information.
181 * map__load() does that. See map__rip_2objdump() for details.
183 if (map__load(al
.map
, NULL
))
186 /* objdump struggles with kcore - try each map only once */
187 if (dso__is_kcore(al
.map
->dso
)) {
190 for (d
= 0; d
< state
->done_cnt
; d
++) {
191 if (state
->done
[d
] == al
.map
->start
) {
192 pr_debug("kcore map tested already");
193 pr_debug(" - skipping\n");
197 if (state
->done_cnt
>= ARRAY_SIZE(state
->done
)) {
198 pr_debug("Too many kcore maps - skipping\n");
201 state
->done
[state
->done_cnt
++] = al
.map
->start
;
204 /* Read the object code using objdump */
205 objdump_addr
= map__rip_2objdump(al
.map
, al
.addr
);
206 ret
= read_via_objdump(al
.map
->dso
->long_name
, objdump_addr
, buf2
, len
);
209 * The kernel maps are inaccurate - assume objdump is right in
212 if (cpumode
== PERF_RECORD_MISC_KERNEL
||
213 cpumode
== PERF_RECORD_MISC_GUEST_KERNEL
) {
216 pr_debug("Reducing len to %zu\n", len
);
217 } else if (dso__is_kcore(al
.map
->dso
)) {
219 * objdump cannot handle very large segments
220 * that may be found in kcore.
222 pr_debug("objdump failed for kcore");
223 pr_debug(" - skipping\n");
231 pr_debug("read_via_objdump failed\n");
235 /* The results should be identical */
236 if (memcmp(buf1
, buf2
, len
)) {
237 pr_debug("Bytes read differ from those read by objdump\n");
240 pr_debug("Bytes read match those read by objdump\n");
245 static int process_sample_event(struct machine
*machine
,
246 struct perf_evlist
*evlist
,
247 union perf_event
*event
, struct state
*state
)
249 struct perf_sample sample
;
250 struct thread
*thread
;
253 if (perf_evlist__parse_sample(evlist
, event
, &sample
)) {
254 pr_debug("perf_evlist__parse_sample failed\n");
258 thread
= machine__findnew_thread(machine
, sample
.pid
, sample
.tid
);
260 pr_debug("machine__findnew_thread failed\n");
264 cpumode
= event
->header
.misc
& PERF_RECORD_MISC_CPUMODE_MASK
;
266 return read_object_code(sample
.ip
, READLEN
, cpumode
, thread
, machine
,
270 static int process_event(struct machine
*machine
, struct perf_evlist
*evlist
,
271 union perf_event
*event
, struct state
*state
)
273 if (event
->header
.type
== PERF_RECORD_SAMPLE
)
274 return process_sample_event(machine
, evlist
, event
, state
);
276 if (event
->header
.type
== PERF_RECORD_THROTTLE
||
277 event
->header
.type
== PERF_RECORD_UNTHROTTLE
)
280 if (event
->header
.type
< PERF_RECORD_MAX
) {
283 ret
= machine__process_event(machine
, event
, NULL
);
285 pr_debug("machine__process_event failed, event type %u\n",
293 static int process_events(struct machine
*machine
, struct perf_evlist
*evlist
,
296 union perf_event
*event
;
299 for (i
= 0; i
< evlist
->nr_mmaps
; i
++) {
300 while ((event
= perf_evlist__mmap_read(evlist
, i
)) != NULL
) {
301 ret
= process_event(machine
, evlist
, event
, state
);
302 perf_evlist__mmap_consume(evlist
, i
);
310 static int comp(const void *a
, const void *b
)
312 return *(int *)a
- *(int *)b
;
315 static void do_sort_something(void)
319 for (i
= 0; i
< (int)ARRAY_SIZE(buf
); i
++)
320 buf
[i
] = ARRAY_SIZE(buf
) - i
- 1;
322 qsort(buf
, ARRAY_SIZE(buf
), sizeof(int), comp
);
324 for (i
= 0; i
< (int)ARRAY_SIZE(buf
); i
++) {
326 pr_debug("qsort failed\n");
332 static void sort_something(void)
336 for (i
= 0; i
< 10; i
++)
340 static void syscall_something(void)
345 for (i
= 0; i
< 1000; i
++) {
346 if (pipe(pipefd
) < 0) {
347 pr_debug("pipe failed\n");
355 static void fs_something(void)
357 const char *test_file_name
= "temp-perf-code-reading-test-file--";
361 for (i
= 0; i
< 1000; i
++) {
362 f
= fopen(test_file_name
, "w+");
365 unlink(test_file_name
);
370 static void do_something(void)
380 TEST_CODE_READING_OK
,
381 TEST_CODE_READING_NO_VMLINUX
,
382 TEST_CODE_READING_NO_KCORE
,
383 TEST_CODE_READING_NO_ACCESS
,
384 TEST_CODE_READING_NO_KERNEL_OBJ
,
387 static int do_test_code_reading(bool try_kcore
)
389 struct machines machines
;
390 struct machine
*machine
;
391 struct thread
*thread
;
392 struct record_opts opts
= {
393 .mmap_pages
= UINT_MAX
,
394 .user_freq
= UINT_MAX
,
395 .user_interval
= ULLONG_MAX
,
401 struct state state
= {
404 struct thread_map
*threads
= NULL
;
405 struct cpu_map
*cpus
= NULL
;
406 struct perf_evlist
*evlist
= NULL
;
407 struct perf_evsel
*evsel
= NULL
;
411 bool have_vmlinux
, have_kcore
, excl_kernel
= false;
415 machines__init(&machines
);
416 machine
= &machines
.host
;
418 ret
= machine__create_kernel_maps(machine
);
420 pr_debug("machine__create_kernel_maps failed\n");
424 /* Force the use of kallsyms instead of vmlinux to try kcore */
426 symbol_conf
.kallsyms_name
= "/proc/kallsyms";
428 /* Load kernel map */
429 map
= machine
->vmlinux_maps
[MAP__FUNCTION
];
430 ret
= map__load(map
, NULL
);
432 pr_debug("map__load failed\n");
435 have_vmlinux
= dso__is_vmlinux(map
->dso
);
436 have_kcore
= dso__is_kcore(map
->dso
);
438 /* 2nd time through we just try kcore */
439 if (try_kcore
&& !have_kcore
)
440 return TEST_CODE_READING_NO_KCORE
;
442 /* No point getting kernel events if there is no kernel object */
443 if (!have_vmlinux
&& !have_kcore
)
446 threads
= thread_map__new_by_tid(pid
);
448 pr_debug("thread_map__new_by_tid failed\n");
452 ret
= perf_event__synthesize_thread_map(NULL
, threads
,
453 perf_event__process
, machine
, false);
455 pr_debug("perf_event__synthesize_thread_map failed\n");
459 thread
= machine__findnew_thread(machine
, pid
, pid
);
461 pr_debug("machine__findnew_thread failed\n");
465 cpus
= cpu_map__new(NULL
);
467 pr_debug("cpu_map__new failed\n");
474 evlist
= perf_evlist__new();
476 pr_debug("perf_evlist__new failed\n");
480 perf_evlist__set_maps(evlist
, cpus
, threads
);
486 pr_debug("Parsing event '%s'\n", str
);
487 ret
= parse_events(evlist
, str
);
489 pr_debug("parse_events failed\n");
493 perf_evlist__config(evlist
, &opts
);
495 evsel
= perf_evlist__first(evlist
);
497 evsel
->attr
.comm
= 1;
498 evsel
->attr
.disabled
= 1;
499 evsel
->attr
.enable_on_exec
= 0;
501 ret
= perf_evlist__open(evlist
);
505 perf_evlist__set_maps(evlist
, NULL
, NULL
);
506 perf_evlist__delete(evlist
);
510 pr_debug("perf_evlist__open failed\n");
516 ret
= perf_evlist__mmap(evlist
, UINT_MAX
, false);
518 pr_debug("perf_evlist__mmap failed\n");
522 perf_evlist__enable(evlist
);
526 perf_evlist__disable(evlist
);
528 ret
= process_events(machine
, evlist
, &state
);
532 if (!have_vmlinux
&& !have_kcore
&& !try_kcore
)
533 err
= TEST_CODE_READING_NO_KERNEL_OBJ
;
534 else if (!have_vmlinux
&& !try_kcore
)
535 err
= TEST_CODE_READING_NO_VMLINUX
;
536 else if (excl_kernel
)
537 err
= TEST_CODE_READING_NO_ACCESS
;
539 err
= TEST_CODE_READING_OK
;
542 perf_evlist__delete(evlist
);
544 cpu_map__delete(cpus
);
545 thread_map__delete(threads
);
547 machines__destroy_kernel_maps(&machines
);
548 machine__delete_threads(machine
);
549 machines__exit(&machines
);
554 int test__code_reading(void)
558 ret
= do_test_code_reading(false);
560 ret
= do_test_code_reading(true);
563 case TEST_CODE_READING_OK
:
565 case TEST_CODE_READING_NO_VMLINUX
:
566 fprintf(stderr
, " (no vmlinux)");
568 case TEST_CODE_READING_NO_KCORE
:
569 fprintf(stderr
, " (no kcore)");
571 case TEST_CODE_READING_NO_ACCESS
:
572 fprintf(stderr
, " (no access)");
574 case TEST_CODE_READING_NO_KERNEL_OBJ
:
575 fprintf(stderr
, " (no kernel obj)");