6 #include <sys/utsname.h>
7 #ifdef HAVE_BACKTRACE_SUPPORT
16 #include <linux/kernel.h>
18 #include "callchain.h"
20 struct callchain_param callchain_param
= {
21 .mode
= CHAIN_GRAPH_ABS
,
23 .order
= ORDER_CALLEE
,
28 * XXX We need to find a better place for these things...
30 unsigned int page_size
;
33 bool test_attr__enabled
;
35 bool perf_host
= true;
36 bool perf_guest
= false;
38 void event_attr_init(struct perf_event_attr
*attr
)
41 attr
->exclude_host
= 1;
43 attr
->exclude_guest
= 1;
44 /* to capture ABI version */
45 attr
->size
= sizeof(*attr
);
48 int mkdir_p(char *path
, mode_t mode
)
57 if (stat(path
, &st
) == 0)
62 while ((d
= strchr(d
, '/'))) {
64 err
= stat(path
, &st
) && mkdir(path
, mode
);
71 return (stat(path
, &st
) && mkdir(path
, mode
)) ? -1 : 0;
79 char namebuf
[PATH_MAX
];
85 while ((d
= readdir(dir
)) != NULL
&& !ret
) {
88 if (!strcmp(d
->d_name
, ".") || !strcmp(d
->d_name
, ".."))
91 scnprintf(namebuf
, sizeof(namebuf
), "%s/%s",
94 ret
= stat(namebuf
, &statbuf
);
96 pr_debug("stat failed: %s\n", namebuf
);
100 if (S_ISREG(statbuf
.st_mode
))
101 ret
= unlink(namebuf
);
102 else if (S_ISDIR(statbuf
.st_mode
))
103 ret
= rm_rf(namebuf
);
105 pr_debug("unknown file: %s\n", namebuf
);
117 static int slow_copyfile(const char *from
, const char *to
)
122 FILE *from_fp
= fopen(from
, "r"), *to_fp
;
127 to_fp
= fopen(to
, "w");
129 goto out_fclose_from
;
131 while (getline(&line
, &n
, from_fp
) > 0)
132 if (fputs(line
, to_fp
) == EOF
)
144 int copyfile_offset(int ifd
, loff_t off_in
, int ofd
, loff_t off_out
, u64 size
)
149 pgoff
= off_in
& ~(page_size
- 1);
152 ptr
= mmap(NULL
, off_in
+ size
, PROT_READ
, MAP_PRIVATE
, ifd
, pgoff
);
153 if (ptr
== MAP_FAILED
)
157 ssize_t ret
= pwrite(ofd
, ptr
+ off_in
, size
, off_out
);
158 if (ret
< 0 && errno
== EINTR
)
167 munmap(ptr
, off_in
+ size
);
169 return size
? -1 : 0;
172 int copyfile_mode(const char *from
, const char *to
, mode_t mode
)
177 char *tmp
= NULL
, *ptr
= NULL
;
182 /* extra 'x' at the end is to reserve space for '.' */
183 if (asprintf(&tmp
, "%s.XXXXXXx", to
) < 0) {
187 ptr
= strrchr(tmp
, '/');
190 ptr
= memmove(ptr
+ 1, ptr
, strlen(ptr
) - 1);
197 if (fchmod(tofd
, mode
))
200 if (st
.st_size
== 0) { /* /proc? do it slowly... */
201 err
= slow_copyfile(from
, tmp
);
205 fromfd
= open(from
, O_RDONLY
);
209 err
= copyfile_offset(fromfd
, 0, tofd
, 0, st
.st_size
);
222 int copyfile(const char *from
, const char *to
)
224 return copyfile_mode(from
, to
, 0755);
227 unsigned long convert_unit(unsigned long value
, char *unit
)
249 static ssize_t
ion(bool is_read
, int fd
, void *buf
, size_t n
)
251 void *buf_start
= buf
;
255 ssize_t ret
= is_read
? read(fd
, buf
, left
) :
256 write(fd
, buf
, left
);
258 if (ret
< 0 && errno
== EINTR
)
267 BUG_ON((size_t)(buf
- buf_start
) != n
);
272 * Read exactly 'n' bytes or return an error.
274 ssize_t
readn(int fd
, void *buf
, size_t n
)
276 return ion(true, fd
, buf
, n
);
280 * Write exactly 'n' bytes or return an error.
282 ssize_t
writen(int fd
, void *buf
, size_t n
)
284 return ion(false, fd
, buf
, n
);
287 size_t hex_width(u64 v
)
297 static int hex(char ch
)
299 if ((ch
>= '0') && (ch
<= '9'))
301 if ((ch
>= 'a') && (ch
<= 'f'))
302 return ch
- 'a' + 10;
303 if ((ch
>= 'A') && (ch
<= 'F'))
304 return ch
- 'A' + 10;
309 * While we find nice hex chars, build a long_val.
310 * Return number of chars processed.
312 int hex2u64(const char *ptr
, u64
*long_val
)
318 const int hex_val
= hex(*p
);
323 *long_val
= (*long_val
<< 4) | hex_val
;
330 /* Obtain a backtrace and print it to stdout. */
331 #ifdef HAVE_BACKTRACE_SUPPORT
332 void dump_stack(void)
335 size_t size
= backtrace(array
, ARRAY_SIZE(array
));
336 char **strings
= backtrace_symbols(array
, size
);
339 printf("Obtained %zd stack frames.\n", size
);
341 for (i
= 0; i
< size
; i
++)
342 printf("%s\n", strings
[i
]);
347 void dump_stack(void) {}
350 void sighandler_dump_stack(int sig
)
352 psignal(sig
, "perf");
357 void get_term_dimensions(struct winsize
*ws
)
359 char *s
= getenv("LINES");
362 ws
->ws_row
= atoi(s
);
363 s
= getenv("COLUMNS");
365 ws
->ws_col
= atoi(s
);
366 if (ws
->ws_row
&& ws
->ws_col
)
371 if (ioctl(1, TIOCGWINSZ
, ws
) == 0 &&
372 ws
->ws_row
&& ws
->ws_col
)
379 void set_term_quiet_input(struct termios
*old
)
385 tc
.c_lflag
&= ~(ICANON
| ECHO
);
388 tcsetattr(0, TCSANOW
, &tc
);
391 int parse_nsec_time(const char *str
, u64
*ptime
)
393 u64 time_sec
, time_nsec
;
396 time_sec
= strtoul(str
, &end
, 10);
397 if (*end
!= '.' && *end
!= '\0')
404 if (strlen(++end
) > 9)
407 strncpy(nsec_buf
, end
, 9);
410 /* make it nsec precision */
411 for (i
= strlen(nsec_buf
); i
< 9; i
++)
414 time_nsec
= strtoul(nsec_buf
, &end
, 10);
420 *ptime
= time_sec
* NSEC_PER_SEC
+ time_nsec
;
424 unsigned long parse_tag_value(const char *str
, struct parse_tag
*tags
)
426 struct parse_tag
*i
= tags
;
431 s
= strchr(str
, i
->tag
);
433 unsigned long int value
;
436 value
= strtoul(str
, &endptr
, 10);
440 if (value
> ULONG_MAX
/ i
->mult
)
448 return (unsigned long) -1;
451 int get_stack_size(const char *str
, unsigned long *_size
)
455 unsigned long max_size
= round_down(USHRT_MAX
, sizeof(u64
));
457 size
= strtoul(str
, &endptr
, 0);
463 size
= round_up(size
, sizeof(u64
));
464 if (!size
|| size
> max_size
)
472 pr_err("callchain: Incorrect stack dump size (max %ld): %s\n",
477 int parse_callchain_record(const char *arg
, struct callchain_param
*param
)
479 char *tok
, *name
, *saveptr
= NULL
;
483 /* We need buffer that we know we can write to. */
484 buf
= malloc(strlen(arg
) + 1);
490 tok
= strtok_r((char *)buf
, ",", &saveptr
);
491 name
= tok
? : (char *)buf
;
494 /* Framepointer style */
495 if (!strncmp(name
, "fp", sizeof("fp"))) {
496 if (!strtok_r(NULL
, ",", &saveptr
)) {
497 param
->record_mode
= CALLCHAIN_FP
;
500 pr_err("callchain: No more arguments "
501 "needed for --call-graph fp\n");
504 #ifdef HAVE_DWARF_UNWIND_SUPPORT
506 } else if (!strncmp(name
, "dwarf", sizeof("dwarf"))) {
507 const unsigned long default_stack_dump_size
= 8192;
510 param
->record_mode
= CALLCHAIN_DWARF
;
511 param
->dump_size
= default_stack_dump_size
;
513 tok
= strtok_r(NULL
, ",", &saveptr
);
515 unsigned long size
= 0;
517 ret
= get_stack_size(tok
, &size
);
518 param
->dump_size
= size
;
520 #endif /* HAVE_DWARF_UNWIND_SUPPORT */
521 } else if (!strncmp(name
, "lbr", sizeof("lbr"))) {
522 if (!strtok_r(NULL
, ",", &saveptr
)) {
523 param
->record_mode
= CALLCHAIN_LBR
;
526 pr_err("callchain: No more arguments "
527 "needed for --call-graph lbr\n");
530 pr_err("callchain: Unknown --call-graph option "
541 int filename__read_str(const char *filename
, char **buf
, size_t *sizep
)
543 size_t size
= 0, alloc_size
= 0;
544 void *bf
= NULL
, *nbf
;
546 char sbuf
[STRERR_BUFSIZE
];
548 fd
= open(filename
, O_RDONLY
);
553 if (size
== alloc_size
) {
554 alloc_size
+= BUFSIZ
;
555 nbf
= realloc(bf
, alloc_size
);
564 n
= read(fd
, bf
+ size
, alloc_size
- size
);
567 pr_warning("read failed %d: %s\n", errno
,
568 strerror_r(errno
, sbuf
, sizeof(sbuf
)));
589 const char *get_filename_for_perf_kvm(void)
591 const char *filename
;
593 if (perf_host
&& !perf_guest
)
594 filename
= strdup("perf.data.host");
595 else if (!perf_host
&& perf_guest
)
596 filename
= strdup("perf.data.guest");
598 filename
= strdup("perf.data.kvm");
603 int perf_event_paranoid(void)
607 if (sysctl__read_int("kernel/perf_event_paranoid", &value
))
613 void mem_bswap_32(void *src
, int byte_size
)
616 while (byte_size
> 0) {
618 byte_size
-= sizeof(u32
);
623 void mem_bswap_64(void *src
, int byte_size
)
627 while (byte_size
> 0) {
629 byte_size
-= sizeof(u64
);
634 bool find_process(const char *name
)
636 size_t len
= strlen(name
);
641 dir
= opendir(procfs__mountpoint());
645 /* Walk through the directory. */
646 while (ret
&& (d
= readdir(dir
)) != NULL
) {
651 if ((d
->d_type
!= DT_DIR
) ||
652 !strcmp(".", d
->d_name
) ||
653 !strcmp("..", d
->d_name
))
656 scnprintf(path
, sizeof(path
), "%s/%s/comm",
657 procfs__mountpoint(), d
->d_name
);
659 if (filename__read_str(path
, &data
, &size
))
662 ret
= strncmp(name
, data
, len
);
667 return ret
? false : true;
671 fetch_kernel_version(unsigned int *puint
, char *str
,
674 struct utsname utsname
;
675 int version
, patchlevel
, sublevel
, err
;
680 if (str
&& str_size
) {
681 strncpy(str
, utsname
.release
, str_size
);
682 str
[str_size
- 1] = '\0';
685 err
= sscanf(utsname
.release
, "%d.%d.%d",
686 &version
, &patchlevel
, &sublevel
);
689 pr_debug("Unablt to get kernel version from uname '%s'\n",
695 *puint
= (version
<< 16) + (patchlevel
<< 8) + sublevel
;