annotate.c 63.4 KB
Newer Older
1 2 3 4 5 6 7 8 9
/*
 * Copyright (C) 2011, Red Hat Inc, Arnaldo Carvalho de Melo <acme@redhat.com>
 *
 * Parts came from builtin-annotate.c, see those files for further
 * copyright notes.
 *
 * Released under the GPL v2. (and only v2, not any later version)
 */

10
#include <errno.h>
11
#include <inttypes.h>
12
#include "util.h"
13 14
#include "ui/ui.h"
#include "sort.h"
15 16
#include "build-id.h"
#include "color.h"
17
#include "config.h"
18 19 20 21
#include "cache.h"
#include "symbol.h"
#include "debug.h"
#include "annotate.h"
22
#include "evsel.h"
23
#include "block-range.h"
24
#include "string2.h"
25
#include "arch/common.h"
26
#include <regex.h>
27
#include <pthread.h>
28
#include <linux/bitops.h>
29
#include <linux/kernel.h>
30

31 32 33 34 35 36 37
/* FIXME: For the HE_COLORSET */
#include "ui/browser.h"

/*
 * FIXME: Using the same values as slang.h,
 * but that header may not be available everywhere
 */
38 39 40 41
#define LARROW_CHAR	((unsigned char)',')
#define RARROW_CHAR	((unsigned char)'+')
#define DARROW_CHAR	((unsigned char)'.')
#define UARROW_CHAR	((unsigned char)'-')
42

43 44
#include "sane_ctype.h"

45 46 47 48 49
struct annotation_options annotation__default_options = {
	.use_offset     = true,
	.jump_arrows    = true,
};

50
const char 	*disassembler_style;
51
const char	*objdump_path;
52
static regex_t	 file_lineno;
53

54
static struct ins_ops *ins__find(struct arch *arch, const char *name);
55
static void ins__sort(struct arch *arch);
56
static int disasm_line__parse(char *line, const char **namep, char **rawp);
57

58 59
struct arch {
	const char	*name;
60 61
	struct ins	*instructions;
	size_t		nr_instructions;
62 63
	size_t		nr_instructions_allocated;
	struct ins_ops  *(*associate_instruction_ops)(struct arch *arch, const char *name);
64
	bool		sorted_instructions;
65 66
	bool		initialized;
	void		*priv;
67 68
	unsigned int	model;
	unsigned int	family;
69
	int		(*init)(struct arch *arch, char *cpuid);
70 71
	bool		(*ins_is_fused)(struct arch *arch, const char *ins1,
					const char *ins2);
72 73
	struct		{
		char comment_char;
74
		char skip_functions_char;
75 76 77
	} objdump;
};

78 79 80 81 82 83 84 85
static struct ins_ops call_ops;
static struct ins_ops dec_ops;
static struct ins_ops jump_ops;
static struct ins_ops mov_ops;
static struct ins_ops nop_ops;
static struct ins_ops lock_ops;
static struct ins_ops ret_ops;

86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113
static int arch__grow_instructions(struct arch *arch)
{
	struct ins *new_instructions;
	size_t new_nr_allocated;

	if (arch->nr_instructions_allocated == 0 && arch->instructions)
		goto grow_from_non_allocated_table;

	new_nr_allocated = arch->nr_instructions_allocated + 128;
	new_instructions = realloc(arch->instructions, new_nr_allocated * sizeof(struct ins));
	if (new_instructions == NULL)
		return -1;

out_update_instructions:
	arch->instructions = new_instructions;
	arch->nr_instructions_allocated = new_nr_allocated;
	return 0;

grow_from_non_allocated_table:
	new_nr_allocated = arch->nr_instructions + 128;
	new_instructions = calloc(new_nr_allocated, sizeof(struct ins));
	if (new_instructions == NULL)
		return -1;

	memcpy(new_instructions, arch->instructions, arch->nr_instructions);
	goto out_update_instructions;
}

114
static int arch__associate_ins_ops(struct arch* arch, const char *name, struct ins_ops *ops)
115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133
{
	struct ins *ins;

	if (arch->nr_instructions == arch->nr_instructions_allocated &&
	    arch__grow_instructions(arch))
		return -1;

	ins = &arch->instructions[arch->nr_instructions];
	ins->name = strdup(name);
	if (!ins->name)
		return -1;

	ins->ops  = ops;
	arch->nr_instructions++;

	ins__sort(arch);
	return 0;
}

134
#include "arch/arm/annotate/instructions.c"
K
Kim Phillips 已提交
135
#include "arch/arm64/annotate/instructions.c"
136
#include "arch/x86/annotate/instructions.c"
137
#include "arch/powerpc/annotate/instructions.c"
138
#include "arch/s390/annotate/instructions.c"
139

140 141 142
static struct arch architectures[] = {
	{
		.name = "arm",
143
		.init = arm__annotate_init,
144
	},
K
Kim Phillips 已提交
145 146 147 148
	{
		.name = "arm64",
		.init = arm64__annotate_init,
	},
149 150
	{
		.name = "x86",
151
		.init = x86__annotate_init,
152 153
		.instructions = x86__instructions,
		.nr_instructions = ARRAY_SIZE(x86__instructions),
154
		.ins_is_fused = x86__ins_is_fused,
155 156 157 158
		.objdump =  {
			.comment_char = '#',
		},
	},
159 160 161 162
	{
		.name = "powerpc",
		.init = powerpc__annotate_init,
	},
163 164
	{
		.name = "s390",
165
		.init = s390__annotate_init,
166 167 168 169
		.objdump =  {
			.comment_char = '#',
		},
	},
170 171
};

172 173
static void ins__delete(struct ins_operands *ops)
{
174 175
	if (ops == NULL)
		return;
176 177 178 179
	zfree(&ops->source.raw);
	zfree(&ops->source.name);
	zfree(&ops->target.raw);
	zfree(&ops->target.name);
180 181
}

182 183 184
static int ins__raw_scnprintf(struct ins *ins, char *bf, size_t size,
			      struct ins_operands *ops)
{
185
	return scnprintf(bf, size, "%-6s %s", ins->name, ops->raw);
186 187 188 189 190 191 192 193 194 195 196
}

int ins__scnprintf(struct ins *ins, char *bf, size_t size,
		  struct ins_operands *ops)
{
	if (ins->ops->scnprintf)
		return ins->ops->scnprintf(ins, bf, size, ops);

	return ins__raw_scnprintf(ins, bf, size, ops);
}

197 198 199 200 201 202 203 204
bool ins__is_fused(struct arch *arch, const char *ins1, const char *ins2)
{
	if (!arch || !arch->ins_is_fused)
		return false;

	return arch->ins_is_fused(arch, ins1, ins2);
}

205
static int call__parse(struct arch *arch, struct ins_operands *ops, struct map_symbol *ms)
206
{
207
	char *endptr, *tok, *name;
208
	struct map *map = ms->map;
209 210 211
	struct addr_map_symbol target = {
		.map = map,
	};
212

213
	ops->target.addr = strtoull(ops->raw, &endptr, 16);
214 215 216 217 218 219 220

	name = strchr(endptr, '<');
	if (name == NULL)
		goto indirect_call;

	name++;

221 222
	if (arch->objdump.skip_functions_char &&
	    strchr(name, arch->objdump.skip_functions_char))
R
Russell King 已提交
223 224
		return -1;

225 226 227 228 229
	tok = strchr(name, '>');
	if (tok == NULL)
		return -1;

	*tok = '\0';
230
	ops->target.name = strdup(name);
231 232
	*tok = '>';

233 234 235 236
	if (ops->target.name == NULL)
		return -1;
find_target:
	target.addr = map__objdump_2mem(map, ops->target.addr);
237

238 239 240
	if (map_groups__find_ams(&target) == 0 &&
	    map__rip_2objdump(target.map, map->map_ip(target.map, target.addr)) == ops->target.addr)
		ops->target.sym = target.sym;
241

242
	return 0;
243 244 245 246 247 248

indirect_call:
	tok = strchr(endptr, '*');
	if (tok != NULL)
		ops->target.addr = strtoull(tok + 1, NULL, 16);
	goto find_target;
249 250
}

251
static int call__scnprintf(struct ins *ins, char *bf, size_t size,
252
			   struct ins_operands *ops)
253
{
254 255
	if (ops->target.sym)
		return scnprintf(bf, size, "%-6s %s", ins->name, ops->target.sym->name);
256

257 258 259
	if (ops->target.addr == 0)
		return ins__raw_scnprintf(ins, bf, size, ops);

260 261 262
	if (ops->target.name)
		return scnprintf(bf, size, "%-6s %s", ins->name, ops->target.name);

263
	return scnprintf(bf, size, "%-6s *%" PRIx64, ins->name, ops->target.addr);
264 265
}

266
static struct ins_ops call_ops = {
267 268
	.parse	   = call__parse,
	.scnprintf = call__scnprintf,
269 270 271 272
};

bool ins__is_call(const struct ins *ins)
{
273
	return ins->ops == &call_ops || ins->ops == &s390_call_ops;
274 275
}

276
static int jump__parse(struct arch *arch __maybe_unused, struct ins_operands *ops, struct map_symbol *ms)
277
{
278 279 280 281 282
	struct map *map = ms->map;
	struct symbol *sym = ms->sym;
	struct addr_map_symbol target = {
		.map = map,
	};
283
	const char *s = strchr(ops->raw, '+');
284
	const char *c = strchr(ops->raw, ',');
285 286 287 288 289 290 291 292 293 294 295 296
	u64 start, end;
	/*
	 * Examples of lines to parse for the _cpp_lex_token@@Base
	 * function:
	 *
	 * 1159e6c: jne    115aa32 <_cpp_lex_token@@Base+0xf92>
	 * 1159e8b: jne    c469be <cpp_named_operator2name@@Base+0xa72>
	 *
	 * The first is a jump to an offset inside the same function,
	 * the second is to another function, i.e. that 0xa72 is an
	 * offset in the cpp_named_operator2name@@base function.
	 */
297 298 299 300 301
	/*
	 * skip over possible up to 2 operands to get to address, e.g.:
	 * tbnz	 w0, #26, ffff0000083cd190 <security_file_permission+0xd0>
	 */
	if (c++ != NULL) {
302
		ops->target.addr = strtoull(c, NULL, 16);
303 304 305 306 307 308
		if (!ops->target.addr) {
			c = strchr(c, ',');
			if (c++ != NULL)
				ops->target.addr = strtoull(c, NULL, 16);
		}
	} else {
309
		ops->target.addr = strtoull(ops->raw, NULL, 16);
310
	}
311

312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340
	target.addr = map__objdump_2mem(map, ops->target.addr);
	start = map->unmap_ip(map, sym->start),
	end = map->unmap_ip(map, sym->end);

	ops->target.outside = target.addr < start || target.addr > end;

	/*
	 * FIXME: things like this in _cpp_lex_token (gcc's cc1 program):

		cpp_named_operator2name@@Base+0xa72

	 * Point to a place that is after the cpp_named_operator2name
	 * boundaries, i.e.  in the ELF symbol table for cc1
	 * cpp_named_operator2name is marked as being 32-bytes long, but it in
	 * fact is much larger than that, so we seem to need a symbols__find()
	 * routine that looks for >= current->start and  < next_symbol->start,
	 * possibly just for C++ objects?
	 *
	 * For now lets just make some progress by marking jumps to outside the
	 * current function as call like.
	 *
	 * Actual navigation will come next, with further understanding of how
	 * the symbol searching and disassembly should be done.

	if (map_groups__find_ams(&target) == 0 &&
	    map__rip_2objdump(target.map, map->map_ip(target.map, target.addr)) == ops->target.addr)
		ops->target.sym = target.sym;
	 */

341
	if (s++ != NULL) {
342
		ops->target.offset = strtoull(s, NULL, 16);
343 344 345 346
		ops->target.offset_avail = true;
	} else {
		ops->target.offset_avail = false;
	}
347 348 349 350

	return 0;
}

351
static int jump__scnprintf(struct ins *ins, char *bf, size_t size,
352
			   struct ins_operands *ops)
353
{
354 355
	const char *c = strchr(ops->raw, ',');

356
	if (!ops->target.addr || ops->target.offset < 0)
357 358
		return ins__raw_scnprintf(ins, bf, size, ops);

359 360 361 362 363 364 365 366 367 368 369 370 371
	if (c != NULL) {
		const char *c2 = strchr(c + 1, ',');

		/* check for 3-op insn */
		if (c2 != NULL)
			c = c2;
		c++;

		/* mirror arch objdump's space-after-comma style */
		if (*c == ' ')
			c++;
	}

372
	return scnprintf(bf, size, "%-6s %.*s%" PRIx64,
373 374
			 ins->name, c ? c - ops->raw : 0, ops->raw,
			 ops->target.offset);
375 376
}

377
static struct ins_ops jump_ops = {
378 379
	.parse	   = jump__parse,
	.scnprintf = jump__scnprintf,
380 381 382 383 384 385 386
};

bool ins__is_jump(const struct ins *ins)
{
	return ins->ops == &jump_ops;
}

387 388 389 390 391 392 393 394
static int comment__symbol(char *raw, char *comment, u64 *addrp, char **namep)
{
	char *endptr, *name, *t;

	if (strstr(raw, "(%rip)") == NULL)
		return 0;

	*addrp = strtoull(comment, &endptr, 16);
395 396
	if (endptr == comment)
		return 0;
397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413
	name = strchr(endptr, '<');
	if (name == NULL)
		return -1;

	name++;

	t = strchr(name, '>');
	if (t == NULL)
		return 0;

	*t = '\0';
	*namep = strdup(name);
	*t = '>';

	return 0;
}

414
static int lock__parse(struct arch *arch, struct ins_operands *ops, struct map_symbol *ms)
415 416 417 418 419
{
	ops->locked.ops = zalloc(sizeof(*ops->locked.ops));
	if (ops->locked.ops == NULL)
		return 0;

420
	if (disasm_line__parse(ops->raw, &ops->locked.ins.name, &ops->locked.ops->raw) < 0)
421 422
		goto out_free_ops;

423
	ops->locked.ins.ops = ins__find(arch, ops->locked.ins.name);
424

425
	if (ops->locked.ins.ops == NULL)
N
Namhyung Kim 已提交
426
		goto out_free_ops;
427

428
	if (ops->locked.ins.ops->parse &&
429
	    ops->locked.ins.ops->parse(arch, ops->locked.ops, ms) < 0)
430
		goto out_free_ops;
431 432 433 434

	return 0;

out_free_ops:
435
	zfree(&ops->locked.ops);
436 437 438 439 440 441 442 443
	return 0;
}

static int lock__scnprintf(struct ins *ins, char *bf, size_t size,
			   struct ins_operands *ops)
{
	int printed;

444
	if (ops->locked.ins.ops == NULL)
445 446
		return ins__raw_scnprintf(ins, bf, size, ops);

447
	printed = scnprintf(bf, size, "%-6s ", ins->name);
448
	return printed + ins__scnprintf(&ops->locked.ins, bf + printed,
449 450 451
					size - printed, ops->locked.ops);
}

452 453
static void lock__delete(struct ins_operands *ops)
{
454
	struct ins *ins = &ops->locked.ins;
455

456
	if (ins->ops && ins->ops->free)
457 458 459 460
		ins->ops->free(ops->locked.ops);
	else
		ins__delete(ops->locked.ops);

461 462 463
	zfree(&ops->locked.ops);
	zfree(&ops->target.raw);
	zfree(&ops->target.name);
464 465
}

466
static struct ins_ops lock_ops = {
467
	.free	   = lock__delete,
468 469 470 471
	.parse	   = lock__parse,
	.scnprintf = lock__scnprintf,
};

472
static int mov__parse(struct arch *arch, struct ins_operands *ops, struct map_symbol *ms __maybe_unused)
473 474 475 476 477 478 479 480 481
{
	char *s = strchr(ops->raw, ','), *target, *comment, prev;

	if (s == NULL)
		return -1;

	*s = '\0';
	ops->source.raw = strdup(ops->raw);
	*s = ',';
482

483 484 485 486
	if (ops->source.raw == NULL)
		return -1;

	target = ++s;
487
	comment = strchr(s, arch->objdump.comment_char);
488 489 490 491 492

	if (comment != NULL)
		s = comment - 1;
	else
		s = strchr(s, '\0') - 1;
493

494 495 496
	while (s > target && isspace(s[0]))
		--s;
	s++;
497 498 499 500 501 502 503 504 505 506 507 508
	prev = *s;
	*s = '\0';

	ops->target.raw = strdup(target);
	*s = prev;

	if (ops->target.raw == NULL)
		goto out_free_source;

	if (comment == NULL)
		return 0;

509
	comment = ltrim(comment);
510 511
	comment__symbol(ops->source.raw, comment + 1, &ops->source.addr, &ops->source.name);
	comment__symbol(ops->target.raw, comment + 1, &ops->target.addr, &ops->target.name);
512 513 514 515

	return 0;

out_free_source:
516
	zfree(&ops->source.raw);
517 518 519 520 521 522
	return -1;
}

static int mov__scnprintf(struct ins *ins, char *bf, size_t size,
			   struct ins_operands *ops)
{
523
	return scnprintf(bf, size, "%-6s %s,%s", ins->name,
524 525 526 527 528 529 530 531 532
			 ops->source.name ?: ops->source.raw,
			 ops->target.name ?: ops->target.raw);
}

static struct ins_ops mov_ops = {
	.parse	   = mov__parse,
	.scnprintf = mov__scnprintf,
};

533
static int dec__parse(struct arch *arch __maybe_unused, struct ins_operands *ops, struct map_symbol *ms __maybe_unused)
534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549
{
	char *target, *comment, *s, prev;

	target = s = ops->raw;

	while (s[0] != '\0' && !isspace(s[0]))
		++s;
	prev = *s;
	*s = '\0';

	ops->target.raw = strdup(target);
	*s = prev;

	if (ops->target.raw == NULL)
		return -1;

550
	comment = strchr(s, arch->objdump.comment_char);
551 552 553
	if (comment == NULL)
		return 0;

554
	comment = ltrim(comment);
555
	comment__symbol(ops->target.raw, comment + 1, &ops->target.addr, &ops->target.name);
556 557 558 559 560 561 562

	return 0;
}

static int dec__scnprintf(struct ins *ins, char *bf, size_t size,
			   struct ins_operands *ops)
{
563
	return scnprintf(bf, size, "%-6s %s", ins->name,
564 565 566 567 568 569 570 571
			 ops->target.name ?: ops->target.raw);
}

static struct ins_ops dec_ops = {
	.parse	   = dec__parse,
	.scnprintf = dec__scnprintf,
};

572 573
static int nop__scnprintf(struct ins *ins __maybe_unused, char *bf, size_t size,
			  struct ins_operands *ops __maybe_unused)
574
{
575
	return scnprintf(bf, size, "%-6s", "nop");
576 577 578 579 580 581
}

static struct ins_ops nop_ops = {
	.scnprintf = nop__scnprintf,
};

582 583 584 585 586 587 588 589 590
static struct ins_ops ret_ops = {
	.scnprintf = ins__raw_scnprintf,
};

bool ins__is_ret(const struct ins *ins)
{
	return ins->ops == &ret_ops;
}

591 592 593 594 595
bool ins__is_lock(const struct ins *ins)
{
	return ins->ops == &lock_ops;
}

596
static int ins__key_cmp(const void *name, const void *insp)
597 598 599 600 601 602
{
	const struct ins *ins = insp;

	return strcmp(name, ins->name);
}

603 604 605 606 607 608 609 610
static int ins__cmp(const void *a, const void *b)
{
	const struct ins *ia = a;
	const struct ins *ib = b;

	return strcmp(ia->name, ib->name);
}

611
static void ins__sort(struct arch *arch)
612
{
613
	const int nmemb = arch->nr_instructions;
614

615
	qsort(arch->instructions, nmemb, sizeof(struct ins), ins__cmp);
616 617
}

618
static struct ins_ops *__ins__find(struct arch *arch, const char *name)
619
{
620
	struct ins *ins;
621
	const int nmemb = arch->nr_instructions;
622

623 624 625
	if (!arch->sorted_instructions) {
		ins__sort(arch);
		arch->sorted_instructions = true;
626
	}
627

628 629
	ins = bsearch(name, arch->instructions, nmemb, sizeof(struct ins), ins__key_cmp);
	return ins ? ins->ops : NULL;
630 631
}

632 633 634 635 636 637 638 639 640 641
static struct ins_ops *ins__find(struct arch *arch, const char *name)
{
	struct ins_ops *ops = __ins__find(arch, name);

	if (!ops && arch->associate_instruction_ops)
		ops = arch->associate_instruction_ops(arch, name);

	return ops;
}

642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676
static int arch__key_cmp(const void *name, const void *archp)
{
	const struct arch *arch = archp;

	return strcmp(name, arch->name);
}

static int arch__cmp(const void *a, const void *b)
{
	const struct arch *aa = a;
	const struct arch *ab = b;

	return strcmp(aa->name, ab->name);
}

static void arch__sort(void)
{
	const int nmemb = ARRAY_SIZE(architectures);

	qsort(architectures, nmemb, sizeof(struct arch), arch__cmp);
}

static struct arch *arch__find(const char *name)
{
	const int nmemb = ARRAY_SIZE(architectures);
	static bool sorted;

	if (!sorted) {
		arch__sort();
		sorted = true;
	}

	return bsearch(name, architectures, nmemb, sizeof(struct arch), arch__key_cmp);
}

677
int symbol__alloc_hist(struct symbol *sym)
678 679
{
	struct annotation *notes = symbol__annotation(sym);
680
	size_t size = symbol__size(sym);
681 682
	size_t sizeof_sym_hist;

683 684 685 686 687 688 689 690 691 692
	/*
	 * Add buffer of one element for zero length symbol.
	 * When sample is taken from first instruction of
	 * zero length symbol, perf still resolves it and
	 * shows symbol name in perf report and allows to
	 * annotate it.
	 */
	if (size == 0)
		size = 1;

693
	/* Check for overflow when calculating sizeof_sym_hist */
694
	if (size > (SIZE_MAX - sizeof(struct sym_hist)) / sizeof(struct sym_hist_entry))
695 696
		return -1;

697
	sizeof_sym_hist = (sizeof(struct sym_hist) + size * sizeof(struct sym_hist_entry));
698 699 700 701 702

	/* Check for overflow in zalloc argument */
	if (sizeof_sym_hist > (SIZE_MAX - sizeof(*notes->src))
				/ symbol_conf.nr_events)
		return -1;
703

704
	notes->src = zalloc(sizeof(*notes->src) + symbol_conf.nr_events * sizeof_sym_hist);
705 706 707
	if (notes->src == NULL)
		return -1;
	notes->src->sizeof_sym_hist = sizeof_sym_hist;
708
	notes->src->nr_histograms   = symbol_conf.nr_events;
709 710
	INIT_LIST_HEAD(&notes->src->source);
	return 0;
711 712
}

713 714 715 716 717 718 719 720 721 722 723 724
/* The cycles histogram is lazily allocated. */
static int symbol__alloc_hist_cycles(struct symbol *sym)
{
	struct annotation *notes = symbol__annotation(sym);
	const size_t size = symbol__size(sym);

	notes->src->cycles_hist = calloc(size, sizeof(struct cyc_hist));
	if (notes->src->cycles_hist == NULL)
		return -1;
	return 0;
}

725 726 727 728
void symbol__annotate_zero_histograms(struct symbol *sym)
{
	struct annotation *notes = symbol__annotation(sym);

729
	pthread_mutex_lock(&notes->lock);
730
	if (notes->src != NULL) {
731 732
		memset(notes->src->histograms, 0,
		       notes->src->nr_histograms * notes->src->sizeof_sym_hist);
733 734 735 736
		if (notes->src->cycles_hist)
			memset(notes->src->cycles_hist, 0,
				symbol__size(sym) * sizeof(struct cyc_hist));
	}
737
	pthread_mutex_unlock(&notes->lock);
738 739
}

740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779
static int __symbol__account_cycles(struct annotation *notes,
				    u64 start,
				    unsigned offset, unsigned cycles,
				    unsigned have_start)
{
	struct cyc_hist *ch;

	ch = notes->src->cycles_hist;
	/*
	 * For now we can only account one basic block per
	 * final jump. But multiple could be overlapping.
	 * Always account the longest one. So when
	 * a shorter one has been already seen throw it away.
	 *
	 * We separately always account the full cycles.
	 */
	ch[offset].num_aggr++;
	ch[offset].cycles_aggr += cycles;

	if (!have_start && ch[offset].have_start)
		return 0;
	if (ch[offset].num) {
		if (have_start && (!ch[offset].have_start ||
				   ch[offset].start > start)) {
			ch[offset].have_start = 0;
			ch[offset].cycles = 0;
			ch[offset].num = 0;
			if (ch[offset].reset < 0xffff)
				ch[offset].reset++;
		} else if (have_start &&
			   ch[offset].start < start)
			return 0;
	}
	ch[offset].have_start = have_start;
	ch[offset].start = start;
	ch[offset].cycles += cycles;
	ch[offset].num++;
	return 0;
}

780
static int __symbol__inc_addr_samples(struct symbol *sym, struct map *map,
781
				      struct annotation *notes, int evidx, u64 addr,
782
				      struct perf_sample *sample)
783
{
784
	unsigned offset;
785 786 787 788
	struct sym_hist *h;

	pr_debug3("%s: addr=%#" PRIx64 "\n", __func__, map->unmap_ip(map, addr));

789 790
	if ((addr < sym->start || addr >= sym->end) &&
	    (addr != sym->end || sym->start != sym->end)) {
791 792
		pr_debug("%s(%d): ERANGE! sym->name=%s, start=%#" PRIx64 ", addr=%#" PRIx64 ", end=%#" PRIx64 "\n",
		       __func__, __LINE__, sym->name, sym->start, addr, sym->end);
793
		return -ERANGE;
794
	}
795

796 797
	offset = addr - sym->start;
	h = annotation__histogram(notes, evidx);
798
	h->nr_samples++;
799
	h->addr[offset].nr_samples++;
800 801
	h->period += sample->period;
	h->addr[offset].period += sample->period;
802 803

	pr_debug3("%#" PRIx64 " %s: period++ [addr: %#" PRIx64 ", %#" PRIx64
804 805 806
		  ", evidx=%d] => nr_samples: %" PRIu64 ", period: %" PRIu64 "\n",
		  sym->start, sym->name, addr, addr - sym->start, evidx,
		  h->addr[offset].nr_samples, h->addr[offset].period);
807 808 809
	return 0;
}

810
static struct annotation *symbol__get_annotation(struct symbol *sym, bool cycles)
811 812 813 814 815 816 817
{
	struct annotation *notes = symbol__annotation(sym);

	if (notes->src == NULL) {
		if (symbol__alloc_hist(sym) < 0)
			return NULL;
	}
818 819 820 821
	if (!notes->src->cycles_hist && cycles) {
		if (symbol__alloc_hist_cycles(sym) < 0)
			return NULL;
	}
822 823 824
	return notes;
}

825
static int symbol__inc_addr_samples(struct symbol *sym, struct map *map,
826 827
				    int evidx, u64 addr,
				    struct perf_sample *sample)
828 829 830
{
	struct annotation *notes;

831
	if (sym == NULL)
832
		return 0;
833
	notes = symbol__get_annotation(sym, false);
834 835
	if (notes == NULL)
		return -ENOMEM;
836
	return __symbol__inc_addr_samples(sym, map, notes, evidx, addr, sample);
837 838
}

839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869
static int symbol__account_cycles(u64 addr, u64 start,
				  struct symbol *sym, unsigned cycles)
{
	struct annotation *notes;
	unsigned offset;

	if (sym == NULL)
		return 0;
	notes = symbol__get_annotation(sym, true);
	if (notes == NULL)
		return -ENOMEM;
	if (addr < sym->start || addr >= sym->end)
		return -ERANGE;

	if (start) {
		if (start < sym->start || start >= sym->end)
			return -ERANGE;
		if (start >= addr)
			start = 0;
	}
	offset = addr - sym->start;
	return __symbol__account_cycles(notes,
					start ? start - sym->start : 0,
					offset, cycles,
					!!start);
}

int addr_map_symbol__account_cycles(struct addr_map_symbol *ams,
				    struct addr_map_symbol *start,
				    unsigned cycles)
{
870
	u64 saddr = 0;
871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888
	int err;

	if (!cycles)
		return 0;

	/*
	 * Only set start when IPC can be computed. We can only
	 * compute it when the basic block is completely in a single
	 * function.
	 * Special case the case when the jump is elsewhere, but
	 * it starts on the function start.
	 */
	if (start &&
		(start->sym == ams->sym ||
		 (ams->sym &&
		   start->addr == ams->sym->start + ams->map->start)))
		saddr = start->al_addr;
	if (saddr == 0)
889
		pr_debug2("BB with bad start: addr %"PRIx64" start %"PRIx64" sym %"PRIx64" saddr %"PRIx64"\n",
890 891 892 893 894 895 896 897 898 899
			ams->addr,
			start ? start->addr : 0,
			ams->sym ? ams->sym->start + ams->map->start : 0,
			saddr);
	err = symbol__account_cycles(ams->al_addr, saddr, ams->sym, cycles);
	if (err)
		pr_debug2("account_cycles failed %d\n", err);
	return err;
}

900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959
static unsigned annotation__count_insn(struct annotation *notes, u64 start, u64 end)
{
	unsigned n_insn = 0;
	u64 offset;

	for (offset = start; offset <= end; offset++) {
		if (notes->offsets[offset])
			n_insn++;
	}
	return n_insn;
}

static void annotation__count_and_fill(struct annotation *notes, u64 start, u64 end, struct cyc_hist *ch)
{
	unsigned n_insn;
	u64 offset;

	n_insn = annotation__count_insn(notes, start, end);
	if (n_insn && ch->num && ch->cycles) {
		float ipc = n_insn / ((double)ch->cycles / (double)ch->num);

		/* Hide data when there are too many overlaps. */
		if (ch->reset >= 0x7fff || ch->reset >= ch->num / 2)
			return;

		for (offset = start; offset <= end; offset++) {
			struct annotation_line *al = notes->offsets[offset];

			if (al)
				al->ipc = ipc;
		}
	}
}

void annotation__compute_ipc(struct annotation *notes, size_t size)
{
	u64 offset;

	if (!notes->src || !notes->src->cycles_hist)
		return;

	pthread_mutex_lock(&notes->lock);
	for (offset = 0; offset < size; ++offset) {
		struct cyc_hist *ch;

		ch = &notes->src->cycles_hist[offset];
		if (ch && ch->cycles) {
			struct annotation_line *al;

			if (ch->have_start)
				annotation__count_and_fill(notes, ch->start, offset, ch);
			al = notes->offsets[offset];
			if (al && ch->num_aggr)
				al->cycles = ch->cycles_aggr / ch->num_aggr;
			notes->have_cycles = true;
		}
	}
	pthread_mutex_unlock(&notes->lock);
}

960 961
int addr_map_symbol__inc_samples(struct addr_map_symbol *ams, struct perf_sample *sample,
				 int evidx)
962
{
963
	return symbol__inc_addr_samples(ams->sym, ams->map, evidx, ams->al_addr, sample);
964 965
}

966 967
int hist_entry__inc_addr_samples(struct hist_entry *he, struct perf_sample *sample,
				 int evidx, u64 ip)
968
{
969
	return symbol__inc_addr_samples(he->ms.sym, he->ms.map, evidx, ip, sample);
970 971
}

972
static void disasm_line__init_ins(struct disasm_line *dl, struct arch *arch, struct map_symbol *ms)
973
{
974
	dl->ins.ops = ins__find(arch, dl->ins.name);
975

976
	if (!dl->ins.ops)
977 978
		return;

979
	if (dl->ins.ops->parse && dl->ins.ops->parse(arch, &dl->ops, ms) < 0)
980
		dl->ins.ops = NULL;
981 982
}

983
static int disasm_line__parse(char *line, const char **namep, char **rawp)
984
{
985
	char tmp, *name = ltrim(line);
986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002

	if (name[0] == '\0')
		return -1;

	*rawp = name + 1;

	while ((*rawp)[0] != '\0' && !isspace((*rawp)[0]))
		++*rawp;

	tmp = (*rawp)[0];
	(*rawp)[0] = '\0';
	*namep = strdup(name);

	if (*namep == NULL)
		goto out_free_name;

	(*rawp)[0] = tmp;
1003
	*rawp = ltrim(*rawp);
1004 1005 1006 1007

	return 0;

out_free_name:
1008 1009
	free((void *)namep);
	*namep = NULL;
1010 1011 1012
	return -1;
}

1013 1014
struct annotate_args {
	size_t			 privsize;
1015
	struct arch		*arch;
1016
	struct map_symbol	 ms;
1017
	struct perf_evsel	*evsel;
1018 1019 1020
	s64			 offset;
	char			*line;
	int			 line_nr;
1021 1022
};

1023 1024 1025 1026
static void annotation_line__delete(struct annotation_line *al)
{
	void *ptr = (void *) al - al->privsize;

1027
	free_srcline(al->path);
1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046
	zfree(&al->line);
	free(ptr);
}

/*
 * Allocating the annotation line data with following
 * structure:
 *
 *    --------------------------------------
 *    private space | struct annotation_line
 *    --------------------------------------
 *
 * Size of the private space is stored in 'struct annotation_line'.
 *
 */
static struct annotation_line *
annotation_line__new(struct annotate_args *args, size_t privsize)
{
	struct annotation_line *al;
1047
	struct perf_evsel *evsel = args->evsel;
1048
	size_t size = privsize + sizeof(*al);
1049 1050 1051 1052 1053 1054
	int nr = 1;

	if (perf_evsel__is_group_event(evsel))
		nr = evsel->nr_members;

	size += sizeof(al->samples[0]) * nr;
1055 1056 1057 1058 1059 1060 1061 1062

	al = zalloc(size);
	if (al) {
		al = (void *) al + privsize;
		al->privsize   = privsize;
		al->offset     = args->offset;
		al->line       = strdup(args->line);
		al->line_nr    = args->line_nr;
1063
		al->samples_nr = nr;
1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080
	}

	return al;
}

/*
 * Allocating the disasm annotation line data with
 * following structure:
 *
 *    ------------------------------------------------------------
 *    privsize space | struct disasm_line | struct annotation_line
 *    ------------------------------------------------------------
 *
 * We have 'struct annotation_line' member as last member
 * of 'struct disasm_line' to have an easy access.
 *
 */
1081
static struct disasm_line *disasm_line__new(struct annotate_args *args)
1082
{
1083 1084 1085
	struct disasm_line *dl = NULL;
	struct annotation_line *al;
	size_t privsize = args->privsize + offsetof(struct disasm_line, al);
1086

1087 1088 1089
	al = annotation_line__new(args, privsize);
	if (al != NULL) {
		dl = disasm_line(al);
1090 1091

		if (dl->al.line == NULL)
1092
			goto out_delete;
1093

1094
		if (args->offset != -1) {
1095
			if (disasm_line__parse(dl->al.line, &dl->ins.name, &dl->ops.raw) < 0)
1096 1097
				goto out_free_line;

1098
			disasm_line__init_ins(dl, args->arch, &args->ms);
1099
		}
1100 1101
	}

1102
	return dl;
1103 1104

out_free_line:
1105
	zfree(&dl->al.line);
1106
out_delete:
1107
	free(dl);
1108
	return NULL;
1109 1110
}

1111
void disasm_line__free(struct disasm_line *dl)
1112
{
1113 1114
	if (dl->ins.ops && dl->ins.ops->free)
		dl->ins.ops->free(&dl->ops);
1115 1116
	else
		ins__delete(&dl->ops);
1117 1118
	free((void *)dl->ins.name);
	dl->ins.name = NULL;
1119
	annotation_line__delete(&dl->al);
1120 1121
}

1122 1123
int disasm_line__scnprintf(struct disasm_line *dl, char *bf, size_t size, bool raw)
{
1124
	if (raw || !dl->ins.ops)
1125
		return scnprintf(bf, size, "%-6s %s", dl->ins.name, dl->ops.raw);
1126

1127
	return ins__scnprintf(&dl->ins, bf, size, &dl->ops);
1128 1129
}

1130
static void annotation_line__add(struct annotation_line *al, struct list_head *head)
1131
{
1132
	list_add_tail(&al->node, head);
1133 1134
}

1135 1136
struct annotation_line *
annotation_line__next(struct annotation_line *pos, struct list_head *head)
1137
{
1138 1139
	list_for_each_entry_continue(pos, head, node)
		if (pos->offset >= 0)
1140 1141 1142 1143 1144
			return pos;

	return NULL;
}

1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226
static const char *annotate__address_color(struct block_range *br)
{
	double cov = block_range__coverage(br);

	if (cov >= 0) {
		/* mark red for >75% coverage */
		if (cov > 0.75)
			return PERF_COLOR_RED;

		/* mark dull for <1% coverage */
		if (cov < 0.01)
			return PERF_COLOR_NORMAL;
	}

	return PERF_COLOR_MAGENTA;
}

static const char *annotate__asm_color(struct block_range *br)
{
	double cov = block_range__coverage(br);

	if (cov >= 0) {
		/* mark dull for <1% coverage */
		if (cov < 0.01)
			return PERF_COLOR_NORMAL;
	}

	return PERF_COLOR_BLUE;
}

static void annotate__branch_printf(struct block_range *br, u64 addr)
{
	bool emit_comment = true;

	if (!br)
		return;

#if 1
	if (br->is_target && br->start == addr) {
		struct block_range *branch = br;
		double p;

		/*
		 * Find matching branch to our target.
		 */
		while (!branch->is_branch)
			branch = block_range__next(branch);

		p = 100 *(double)br->entry / branch->coverage;

		if (p > 0.1) {
			if (emit_comment) {
				emit_comment = false;
				printf("\t#");
			}

			/*
			 * The percentage of coverage joined at this target in relation
			 * to the next branch.
			 */
			printf(" +%.2f%%", p);
		}
	}
#endif
	if (br->is_branch && br->end == addr) {
		double p = 100*(double)br->taken / br->coverage;

		if (p > 0.1) {
			if (emit_comment) {
				emit_comment = false;
				printf("\t#");
			}

			/*
			 * The percentage of coverage leaving at this branch, and
			 * its prediction ratio.
			 */
			printf(" -%.2f%% (p:%.2f%%)", p, 100*(double)br->pred  / br->taken);
		}
	}
}

1227
static int disasm_line__print(struct disasm_line *dl, u64 start, int addr_fmt_width)
1228
{
1229 1230 1231 1232 1233
	s64 offset = dl->al.offset;
	const u64 addr = start + offset;
	struct block_range *br;

	br = block_range__find(addr);
1234
	color_fprintf(stdout, annotate__address_color(br), "  %*" PRIx64 ":", addr_fmt_width, addr);
1235 1236 1237 1238 1239 1240 1241 1242
	color_fprintf(stdout, annotate__asm_color(br), "%s", dl->al.line);
	annotate__branch_printf(br, addr);
	return 0;
}

static int
annotation_line__print(struct annotation_line *al, struct symbol *sym, u64 start,
		       struct perf_evsel *evsel, u64 len, int min_pcnt, int printed,
1243
		       int max_lines, struct annotation_line *queue, int addr_fmt_width)
1244 1245
{
	struct disasm_line *dl = container_of(al, struct disasm_line, al);
1246 1247 1248
	static const char *prev_line;
	static const char *prev_color;

1249
	if (al->offset != -1) {
1250
		double max_percent = 0.0;
1251
		int i, nr_percent = 1;
1252 1253
		const char *color;
		struct annotation *notes = symbol__annotation(sym);
1254

1255 1256
		for (i = 0; i < al->samples_nr; i++) {
			struct annotation_data *sample = &al->samples[i];
1257

1258 1259
			if (sample->percent > max_percent)
				max_percent = sample->percent;
1260 1261 1262
		}

		if (max_percent < min_pcnt)
1263 1264
			return -1;

1265
		if (max_lines && printed >= max_lines)
1266
			return 1;
1267

1268
		if (queue != NULL) {
1269 1270
			list_for_each_entry_from(queue, &notes->src->source, node) {
				if (queue == al)
1271
					break;
1272
				annotation_line__print(queue, sym, start, evsel, len,
1273
						       0, 0, 1, NULL, addr_fmt_width);
1274 1275 1276
			}
		}

1277
		color = get_percent_color(max_percent);
1278 1279 1280 1281 1282 1283

		/*
		 * Also color the filename and line if needed, with
		 * the same color than the percentage. Don't print it
		 * twice for close colored addr with the same filename:line
		 */
1284 1285
		if (al->path) {
			if (!prev_line || strcmp(prev_line, al->path)
1286
				       || color != prev_color) {
1287 1288
				color_fprintf(stdout, color, " %s", al->path);
				prev_line = al->path;
1289 1290 1291 1292
				prev_color = color;
			}
		}

1293
		for (i = 0; i < nr_percent; i++) {
1294
			struct annotation_data *sample = &al->samples[i];
1295 1296

			color = get_percent_color(sample->percent);
1297 1298

			if (symbol_conf.show_total_period)
1299
				color_fprintf(stdout, color, " %11" PRIu64,
1300
					      sample->he.period);
1301 1302
			else if (symbol_conf.show_nr_samples)
				color_fprintf(stdout, color, " %7" PRIu64,
1303
					      sample->he.nr_samples);
1304
			else
1305
				color_fprintf(stdout, color, " %7.2f", sample->percent);
1306 1307
		}

1308
		printf(" : ");
1309

1310
		disasm_line__print(dl, start, addr_fmt_width);
1311
		printf("\n");
1312
	} else if (max_lines && printed >= max_lines)
1313 1314
		return 1;
	else {
1315
		int width = symbol_conf.show_total_period ? 12 : 8;
1316

1317 1318 1319
		if (queue)
			return -1;

1320
		if (perf_evsel__is_group_event(evsel))
1321 1322
			width *= evsel->nr_members;

1323
		if (!*al->line)
1324
			printf(" %*s:\n", width, " ");
1325
		else
1326
			printf(" %*s:     %*s %s\n", width, " ", addr_fmt_width, " ", al->line);
1327
	}
1328 1329

	return 0;
1330 1331
}

1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351
/*
 * symbol__parse_objdump_line() parses objdump output (with -d --no-show-raw)
 * which looks like following
 *
 *  0000000000415500 <_init>:
 *    415500:       sub    $0x8,%rsp
 *    415504:       mov    0x2f5ad5(%rip),%rax        # 70afe0 <_DYNAMIC+0x2f8>
 *    41550b:       test   %rax,%rax
 *    41550e:       je     415515 <_init+0x15>
 *    415510:       callq  416e70 <__gmon_start__@plt>
 *    415515:       add    $0x8,%rsp
 *    415519:       retq
 *
 * it will be parsed and saved into struct disasm_line as
 *  <offset>       <name>  <ops.raw>
 *
 * The offset will be a relative offset from the start of the symbol and -1
 * means that it's not a disassembly line so should be treated differently.
 * The ops.raw part will be parsed further according to type of the instruction.
 */
1352
static int symbol__parse_objdump_line(struct symbol *sym, FILE *file,
1353
				      struct annotate_args *args,
1354
				      int *line_nr)
1355
{
1356
	struct map *map = args->ms.map;
1357
	struct annotation *notes = symbol__annotation(sym);
1358
	struct disasm_line *dl;
1359
	char *line = NULL, *parsed_line, *tmp, *tmp2;
1360 1361
	size_t line_len;
	s64 line_ip, offset = -1;
1362
	regmatch_t match[2];
1363 1364 1365 1366 1367 1368 1369 1370

	if (getline(&line, &line_len, file) < 0)
		return -1;

	if (!line)
		return -1;

	line_ip = -1;
1371
	parsed_line = rtrim(line);
1372

1373
	/* /filename:linenr ? Save line number and ignore. */
1374 1375
	if (regexec(&file_lineno, parsed_line, 2, match, 0) == 0) {
		*line_nr = atoi(parsed_line + match[1].rm_so);
1376 1377 1378
		return 0;
	}

1379
	tmp = ltrim(parsed_line);
1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393
	if (*tmp) {
		/*
		 * Parse hexa addresses followed by ':'
		 */
		line_ip = strtoull(tmp, &tmp2, 16);
		if (*tmp2 != ':' || tmp == tmp2 || tmp2[1] == '\0')
			line_ip = -1;
	}

	if (line_ip != -1) {
		u64 start = map__rip_2objdump(map, sym->start),
		    end = map__rip_2objdump(map, sym->end);

		offset = line_ip - start;
1394
		if ((u64)line_ip < start || (u64)line_ip >= end)
1395
			offset = -1;
1396 1397
		else
			parsed_line = tmp2 + 1;
N
Namhyung Kim 已提交
1398
	}
1399

1400 1401 1402
	args->offset  = offset;
	args->line    = parsed_line;
	args->line_nr = *line_nr;
1403
	args->ms.sym  = sym;
1404 1405

	dl = disasm_line__new(args);
1406
	free(line);
1407
	(*line_nr)++;
1408

1409
	if (dl == NULL)
1410
		return -1;
1411

1412
	if (!disasm_line__has_offset(dl)) {
1413 1414
		dl->ops.target.offset = dl->ops.target.addr -
					map__rip_2objdump(map, sym->start);
1415 1416
		dl->ops.target.offset_avail = true;
	}
1417

1418 1419
	/* kcore has no symbols, so add the call target symbol */
	if (dl->ins.ops && ins__is_call(&dl->ins) && !dl->ops.target.sym) {
1420 1421 1422 1423 1424
		struct addr_map_symbol target = {
			.map = map,
			.addr = dl->ops.target.addr,
		};

1425
		if (!map_groups__find_ams(&target) &&
1426
		    target.sym->start == target.al_addr)
1427
			dl->ops.target.sym = target.sym;
1428 1429
	}

1430
	annotation_line__add(&dl->al, &notes->src->source);
1431 1432 1433 1434

	return 0;
}

1435 1436 1437 1438 1439
static __attribute__((constructor)) void symbol__init_regexpr(void)
{
	regcomp(&file_lineno, "^/[^:]+:([0-9]+)", REG_EXTENDED);
}

1440 1441 1442 1443 1444 1445 1446
static void delete_last_nop(struct symbol *sym)
{
	struct annotation *notes = symbol__annotation(sym);
	struct list_head *list = &notes->src->source;
	struct disasm_line *dl;

	while (!list_empty(list)) {
1447
		dl = list_entry(list->prev, struct disasm_line, al.node);
1448

1449 1450
		if (dl->ins.ops) {
			if (dl->ins.ops != &nop_ops)
1451 1452
				return;
		} else {
1453 1454 1455
			if (!strstr(dl->al.line, " nop ") &&
			    !strstr(dl->al.line, " nopl ") &&
			    !strstr(dl->al.line, " nopw "))
1456 1457 1458
				return;
		}

1459
		list_del(&dl->al.node);
1460 1461 1462 1463
		disasm_line__free(dl);
	}
}

1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502
int symbol__strerror_disassemble(struct symbol *sym __maybe_unused, struct map *map,
			      int errnum, char *buf, size_t buflen)
{
	struct dso *dso = map->dso;

	BUG_ON(buflen == 0);

	if (errnum >= 0) {
		str_error_r(errnum, buf, buflen);
		return 0;
	}

	switch (errnum) {
	case SYMBOL_ANNOTATE_ERRNO__NO_VMLINUX: {
		char bf[SBUILD_ID_SIZE + 15] = " with build id ";
		char *build_id_msg = NULL;

		if (dso->has_build_id) {
			build_id__sprintf(dso->build_id,
					  sizeof(dso->build_id), bf + 15);
			build_id_msg = bf;
		}
		scnprintf(buf, buflen,
			  "No vmlinux file%s\nwas found in the path.\n\n"
			  "Note that annotation using /proc/kcore requires CAP_SYS_RAWIO capability.\n\n"
			  "Please use:\n\n"
			  "  perf buildid-cache -vu vmlinux\n\n"
			  "or:\n\n"
			  "  --vmlinux vmlinux\n", build_id_msg ?: "");
	}
		break;
	default:
		scnprintf(buf, buflen, "Internal error: Invalid %d error code\n", errnum);
		break;
	}

	return 0;
}

1503
static int dso__disassemble_filename(struct dso *dso, char *filename, size_t filename_size)
1504
{
1505 1506
	char linkname[PATH_MAX];
	char *build_id_filename;
1507
	char *build_id_path = NULL;
1508
	char *pos;
1509

1510 1511
	if (dso->symtab_type == DSO_BINARY_TYPE__KALLSYMS &&
	    !dso__is_kcore(dso))
1512
		return SYMBOL_ANNOTATE_ERRNO__NO_VMLINUX;
1513

1514
	build_id_filename = dso__build_id_filename(dso, NULL, 0, false);
1515 1516 1517
	if (build_id_filename) {
		__symbol__join_symfs(filename, filename_size, build_id_filename);
		free(build_id_filename);
1518
	} else {
1519 1520
		if (dso->has_build_id)
			return ENOMEM;
1521
		goto fallback;
1522 1523
	}

1524 1525 1526 1527
	build_id_path = strdup(filename);
	if (!build_id_path)
		return -1;

1528 1529 1530 1531 1532 1533 1534 1535
	/*
	 * old style build-id cache has name of XX/XXXXXXX.. while
	 * new style has XX/XXXXXXX../{elf,kallsyms,vdso}.
	 * extract the build-id part of dirname in the new style only.
	 */
	pos = strrchr(build_id_path, '/');
	if (pos && strlen(pos) < SBUILD_ID_SIZE - 2)
		dirname(build_id_path);
1536

1537
	if (dso__is_kcore(dso) ||
1538
	    readlink(build_id_path, linkname, sizeof(linkname)) < 0 ||
1539 1540
	    strstr(linkname, DSO__NAME_KALLSYMS) ||
	    access(filename, R_OK)) {
1541 1542 1543 1544 1545 1546
fallback:
		/*
		 * If we don't have build-ids or the build-id file isn't in the
		 * cache, or is just a kallsyms file, well, lets hope that this
		 * DSO is the same as when 'perf record' ran.
		 */
1547
		__symbol__join_symfs(filename, filename_size, dso->long_name);
1548 1549
	}

1550
	free(build_id_path);
1551 1552 1553
	return 0;
}

1554
static int symbol__disassemble(struct symbol *sym, struct annotate_args *args)
1555
{
1556
	struct map *map = args->ms.map;
1557
	struct dso *dso = map->dso;
1558
	char *command;
1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571
	FILE *file;
	char symfs_filename[PATH_MAX];
	struct kcore_extract kce;
	bool delete_extract = false;
	int stdout_fd[2];
	int lineno = 0;
	int nline;
	pid_t pid;
	int err = dso__disassemble_filename(dso, symfs_filename, sizeof(symfs_filename));

	if (err)
		return err;

1572
	pr_debug("%s: filename=%s, sym=%s, start=%#" PRIx64 ", end=%#" PRIx64 "\n", __func__,
1573
		 symfs_filename, sym->name, map->unmap_ip(map, sym->start),
1574 1575 1576 1577 1578
		 map->unmap_ip(map, sym->end));

	pr_debug("annotating [%p] %30s : [%p] %30s\n",
		 dso, dso->long_name, sym, sym->name);

1579 1580 1581 1582
	if (dso__is_kcore(dso)) {
		kce.kcore_filename = symfs_filename;
		kce.addr = map__rip_2objdump(map, sym->start);
		kce.offs = sym->start;
1583
		kce.len = sym->end - sym->start;
1584 1585 1586 1587 1588
		if (!kcore_extract__create(&kce)) {
			delete_extract = true;
			strlcpy(symfs_filename, kce.extract_filename,
				sizeof(symfs_filename));
		}
1589
	} else if (dso__needs_decompress(dso)) {
1590
		char tmp[KMOD_DECOMP_LEN];
1591

1592 1593
		if (dso__decompress_kmodule_path(dso, symfs_filename,
						 tmp, sizeof(tmp)) < 0)
1594
			goto out;
1595 1596

		strcpy(symfs_filename, tmp);
1597 1598
	}

1599
	err = asprintf(&command,
1600
		 "%s %s%s --start-address=0x%016" PRIx64
1601
		 " --stop-address=0x%016" PRIx64
1602
		 " -l -d %s %s -C \"%s\" 2>/dev/null|grep -v \"%s:\"|expand",
1603
		 objdump_path ? objdump_path : "objdump",
1604 1605
		 disassembler_style ? "-M " : "",
		 disassembler_style ? disassembler_style : "",
1606
		 map__rip_2objdump(map, sym->start),
1607
		 map__rip_2objdump(map, sym->end),
1608 1609
		 symbol_conf.annotate_asm_raw ? "" : "--no-show-raw",
		 symbol_conf.annotate_src ? "-S" : "",
1610
		 symfs_filename, symfs_filename);
1611

1612 1613 1614 1615 1616
	if (err < 0) {
		pr_err("Failure allocating memory for the command to run\n");
		goto out_remove_tmp;
	}

1617 1618
	pr_debug("Executing: %s\n", command);

1619 1620 1621
	err = -1;
	if (pipe(stdout_fd) < 0) {
		pr_err("Failure creating the pipe to run %s\n", command);
1622
		goto out_free_command;
1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642
	}

	pid = fork();
	if (pid < 0) {
		pr_err("Failure forking to run %s\n", command);
		goto out_close_stdout;
	}

	if (pid == 0) {
		close(stdout_fd[0]);
		dup2(stdout_fd[1], 1);
		close(stdout_fd[1]);
		execl("/bin/sh", "sh", "-c", command, NULL);
		perror(command);
		exit(-1);
	}

	close(stdout_fd[1]);

	file = fdopen(stdout_fd[0], "r");
1643
	if (!file) {
1644
		pr_err("Failure creating FILE stream for %s\n", command);
1645 1646 1647 1648
		/*
		 * If we were using debug info should retry with
		 * original binary.
		 */
1649
		goto out_free_command;
1650
	}
1651

1652 1653
	nline = 0;
	while (!feof(file)) {
1654 1655 1656 1657 1658 1659
		/*
		 * The source code line number (lineno) needs to be kept in
		 * accross calls to symbol__parse_objdump_line(), so that it
		 * can associate it with the instructions till the next one.
		 * See disasm_line__new() and struct disasm_line::line_nr.
		 */
1660
		if (symbol__parse_objdump_line(sym, file, args, &lineno) < 0)
1661
			break;
1662 1663 1664 1665 1666
		nline++;
	}

	if (nline == 0)
		pr_err("No output from %s\n", command);
1667

1668 1669 1670 1671 1672 1673 1674
	/*
	 * kallsyms does not have symbol sizes so there may a nop at the end.
	 * Remove it.
	 */
	if (dso__is_kcore(dso))
		delete_last_nop(sym);

1675 1676
	fclose(file);
	err = 0;
1677 1678
out_free_command:
	free(command);
1679
out_remove_tmp:
1680 1681
	close(stdout_fd[0]);

1682 1683
	if (dso__needs_decompress(dso))
		unlink(symfs_filename);
1684

1685 1686
	if (delete_extract)
		kcore_extract__delete(&kce);
1687
out:
1688
	return err;
1689 1690 1691

out_close_stdout:
	close(stdout_fd[1]);
1692
	goto out_free_command;
1693 1694
}

1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714
static void calc_percent(struct sym_hist *hist,
			 struct annotation_data *sample,
			 s64 offset, s64 end)
{
	unsigned int hits = 0;
	u64 period = 0;

	while (offset < end) {
		hits   += hist->addr[offset].nr_samples;
		period += hist->addr[offset].period;
		++offset;
	}

	if (hist->nr_samples) {
		sample->he.period     = period;
		sample->he.nr_samples = hits;
		sample->percent = 100.0 * hits / hist->nr_samples;
	}
}

1715 1716
static void annotation__calc_percent(struct annotation *notes,
				     struct perf_evsel *evsel, s64 len)
1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741
{
	struct annotation_line *al, *next;

	list_for_each_entry(al, &notes->src->source, node) {
		s64 end;
		int i;

		if (al->offset == -1)
			continue;

		next = annotation_line__next(al, &notes->src->source);
		end  = next ? next->offset : len;

		for (i = 0; i < al->samples_nr; i++) {
			struct annotation_data *sample;
			struct sym_hist *hist;

			hist   = annotation__histogram(notes, evsel->idx + i);
			sample = &al->samples[i];

			calc_percent(hist, sample, al->offset, end);
		}
	}
}

1742
void symbol__calc_percent(struct symbol *sym, struct perf_evsel *evsel)
1743 1744 1745
{
	struct annotation *notes = symbol__annotation(sym);

1746
	annotation__calc_percent(notes, evsel, symbol__size(sym));
1747 1748
}

1749
int symbol__annotate(struct symbol *sym, struct map *map,
1750
		     struct perf_evsel *evsel, size_t privsize,
1751
		     struct arch **parch)
1752
{
1753 1754
	struct annotate_args args = {
		.privsize	= privsize,
1755
		.evsel		= evsel,
1756
	};
1757
	struct perf_env *env = perf_evsel__env(evsel);
1758
	const char *arch_name = perf_env__arch(env);
1759 1760 1761 1762 1763 1764
	struct arch *arch;
	int err;

	if (!arch_name)
		return -1;

1765
	args.arch = arch = arch__find(arch_name);
1766 1767 1768 1769 1770 1771 1772
	if (arch == NULL)
		return -ENOTSUP;

	if (parch)
		*parch = arch;

	if (arch->init) {
1773
		err = arch->init(arch, env ? env->cpuid : NULL);
1774 1775 1776 1777 1778 1779
		if (err) {
			pr_err("%s: failed to initialize %s arch priv area\n", __func__, arch->name);
			return err;
		}
	}

1780 1781 1782
	args.ms.map = map;
	args.ms.sym = sym;

1783
	return symbol__disassemble(sym, &args);
1784 1785
}

1786
static void insert_source_line(struct rb_root *root, struct annotation_line *al)
1787
{
1788
	struct annotation_line *iter;
1789 1790
	struct rb_node **p = &root->rb_node;
	struct rb_node *parent = NULL;
1791
	int i, ret;
1792 1793 1794

	while (*p != NULL) {
		parent = *p;
1795
		iter = rb_entry(parent, struct annotation_line, rb_node);
1796

1797
		ret = strcmp(iter->path, al->path);
1798
		if (ret == 0) {
1799 1800
			for (i = 0; i < al->samples_nr; i++)
				iter->samples[i].percent_sum += al->samples[i].percent;
1801 1802 1803 1804 1805 1806 1807 1808 1809
			return;
		}

		if (ret < 0)
			p = &(*p)->rb_left;
		else
			p = &(*p)->rb_right;
	}

1810 1811
	for (i = 0; i < al->samples_nr; i++)
		al->samples[i].percent_sum = al->samples[i].percent;
1812

1813 1814
	rb_link_node(&al->rb_node, parent, p);
	rb_insert_color(&al->rb_node, root);
1815 1816
}

1817
static int cmp_source_line(struct annotation_line *a, struct annotation_line *b)
1818 1819 1820
{
	int i;

1821
	for (i = 0; i < a->samples_nr; i++) {
1822
		if (a->samples[i].percent_sum == b->samples[i].percent_sum)
1823
			continue;
1824
		return a->samples[i].percent_sum > b->samples[i].percent_sum;
1825 1826 1827 1828 1829
	}

	return 0;
}

1830
static void __resort_source_line(struct rb_root *root, struct annotation_line *al)
1831
{
1832
	struct annotation_line *iter;
1833 1834 1835 1836 1837
	struct rb_node **p = &root->rb_node;
	struct rb_node *parent = NULL;

	while (*p != NULL) {
		parent = *p;
1838
		iter = rb_entry(parent, struct annotation_line, rb_node);
1839

1840
		if (cmp_source_line(al, iter))
1841 1842 1843 1844 1845
			p = &(*p)->rb_left;
		else
			p = &(*p)->rb_right;
	}

1846 1847
	rb_link_node(&al->rb_node, parent, p);
	rb_insert_color(&al->rb_node, root);
1848 1849
}

1850 1851
static void resort_source_line(struct rb_root *dest_root, struct rb_root *src_root)
{
1852
	struct annotation_line *al;
1853 1854 1855 1856 1857 1858
	struct rb_node *node;

	node = rb_first(src_root);
	while (node) {
		struct rb_node *next;

1859
		al = rb_entry(node, struct annotation_line, rb_node);
1860 1861 1862
		next = rb_next(node);
		rb_erase(node, src_root);

1863
		__resort_source_line(dest_root, al);
1864 1865 1866 1867
		node = next;
	}
}

1868 1869
static void print_summary(struct rb_root *root, const char *filename)
{
1870
	struct annotation_line *al;
1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882
	struct rb_node *node;

	printf("\nSorted summary for file %s\n", filename);
	printf("----------------------------------------------\n\n");

	if (RB_EMPTY_ROOT(root)) {
		printf(" Nothing higher than %1.1f%%\n", MIN_GREEN);
		return;
	}

	node = rb_first(root);
	while (node) {
1883
		double percent, percent_max = 0.0;
1884 1885
		const char *color;
		char *path;
1886
		int i;
1887

1888 1889 1890
		al = rb_entry(node, struct annotation_line, rb_node);
		for (i = 0; i < al->samples_nr; i++) {
			percent = al->samples[i].percent_sum;
1891 1892 1893 1894 1895 1896 1897
			color = get_percent_color(percent);
			color_fprintf(stdout, color, " %7.2f", percent);

			if (percent > percent_max)
				percent_max = percent;
		}

1898
		path = al->path;
1899
		color = get_percent_color(percent_max);
1900
		color_fprintf(stdout, color, " %s\n", path);
1901 1902 1903 1904 1905

		node = rb_next(node);
	}
}

1906
static void symbol__annotate_hits(struct symbol *sym, struct perf_evsel *evsel)
1907 1908
{
	struct annotation *notes = symbol__annotation(sym);
1909
	struct sym_hist *h = annotation__histogram(notes, evsel->idx);
1910
	u64 len = symbol__size(sym), offset;
1911 1912

	for (offset = 0; offset < len; ++offset)
1913
		if (h->addr[offset].nr_samples != 0)
1914
			printf("%*" PRIx64 ": %" PRIu64 "\n", BITS_PER_LONG / 2,
1915
			       sym->start + offset, h->addr[offset].nr_samples);
1916
	printf("%*s: %" PRIu64 "\n", BITS_PER_LONG / 2, "h->nr_samples", h->nr_samples);
1917 1918
}

1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931
static int annotated_source__addr_fmt_width(struct list_head *lines, u64 start)
{
	char bf[32];
	struct annotation_line *line;

	list_for_each_entry_reverse(line, lines, node) {
		if (line->offset != -1)
			return scnprintf(bf, sizeof(bf), "%" PRIx64, start + line->offset);
	}

	return 0;
}

1932 1933 1934
int symbol__annotate_printf(struct symbol *sym, struct map *map,
			    struct perf_evsel *evsel, bool full_paths,
			    int min_pcnt, int max_lines, int context)
1935 1936
{
	struct dso *dso = map->dso;
1937 1938
	char *filename;
	const char *d_filename;
1939
	const char *evsel_name = perf_evsel__name(evsel);
1940
	struct annotation *notes = symbol__annotation(sym);
1941
	struct sym_hist *h = annotation__histogram(notes, evsel->idx);
1942
	struct annotation_line *pos, *queue = NULL;
1943
	u64 start = map__rip_2objdump(map, sym->start);
1944
	int printed = 2, queue_len = 0, addr_fmt_width;
1945
	int more = 0;
1946
	u64 len;
1947
	int width = symbol_conf.show_total_period ? 12 : 8;
1948
	int graph_dotted_len;
1949

1950 1951 1952 1953
	filename = strdup(dso->long_name);
	if (!filename)
		return -ENOMEM;

1954 1955 1956 1957 1958
	if (full_paths)
		d_filename = filename;
	else
		d_filename = basename(filename);

1959
	len = symbol__size(sym);
1960

1961
	if (perf_evsel__is_group_event(evsel))
1962
		width *= evsel->nr_members;
1963

1964
	graph_dotted_len = printf(" %-*.*s|	Source code & Disassembly of %s for %s (%" PRIu64 " samples)\n",
1965 1966
				  width, width, symbol_conf.show_total_period ? "Period" :
				  symbol_conf.show_nr_samples ? "Samples" : "Percent",
1967
				  d_filename, evsel_name, h->nr_samples);
1968

1969
	printf("%-*.*s----\n",
1970
	       graph_dotted_len, graph_dotted_len, graph_dotted_line);
1971

1972
	if (verbose > 0)
1973
		symbol__annotate_hits(sym, evsel);
1974

1975 1976
	addr_fmt_width = annotated_source__addr_fmt_width(&notes->src->source, start);

1977 1978 1979
	list_for_each_entry(pos, &notes->src->source, node) {
		int err;

1980 1981 1982 1983 1984
		if (context && queue == NULL) {
			queue = pos;
			queue_len = 0;
		}

1985 1986
		err = annotation_line__print(pos, sym, start, evsel, len,
					     min_pcnt, printed, max_lines,
1987
					     queue, addr_fmt_width);
1988 1989

		switch (err) {
1990 1991
		case 0:
			++printed;
1992 1993 1994 1995 1996
			if (context) {
				printed += queue_len;
				queue = NULL;
				queue_len = 0;
			}
1997 1998 1999 2000
			break;
		case 1:
			/* filtered by max_lines */
			++more;
2001
			break;
2002 2003
		case -1:
		default:
2004 2005 2006 2007 2008 2009 2010
			/*
			 * Filtered by min_pcnt or non IP lines when
			 * context != 0
			 */
			if (!context)
				break;
			if (queue_len == context)
2011
				queue = list_entry(queue->node.next, typeof(*queue), node);
2012 2013
			else
				++queue_len;
2014 2015 2016 2017
			break;
		}
	}

2018 2019
	free(filename);

2020 2021
	return more;
}
2022

2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088
static void FILE__set_percent_color(void *fp __maybe_unused,
				    double percent __maybe_unused,
				    bool current __maybe_unused)
{
}

static int FILE__set_jumps_percent_color(void *fp __maybe_unused,
					 int nr __maybe_unused, bool current __maybe_unused)
{
	return 0;
}

static int FILE__set_color(void *fp __maybe_unused, int color __maybe_unused)
{
	return 0;
}

static void FILE__printf(void *fp, const char *fmt, ...)
{
	va_list args;

	va_start(args, fmt);
	vfprintf(fp, fmt, args);
	va_end(args);
}

static void FILE__write_graph(void *fp, int graph)
{
	const char *s;
	switch (graph) {

	case DARROW_CHAR: s = "↓"; break;
	case UARROW_CHAR: s = "↑"; break;
	case LARROW_CHAR: s = "←"; break;
	case RARROW_CHAR: s = "→"; break;
	default:		s = "?"; break;
	}

	fputs(s, fp);
}

int symbol__annotate_fprintf2(struct symbol *sym, FILE *fp)
{
	struct annotation *notes = symbol__annotation(sym);
	struct annotation_write_ops ops = {
		.first_line		 = true,
		.obj			 = fp,
		.set_color		 = FILE__set_color,
		.set_percent_color	 = FILE__set_percent_color,
		.set_jumps_percent_color = FILE__set_jumps_percent_color,
		.printf			 = FILE__printf,
		.write_graph		 = FILE__write_graph,
	};
	struct annotation_line *al;

	list_for_each_entry(al, &notes->src->source, node) {
		if (annotation_line__filter(al, notes))
			continue;
		annotation_line__write(al, notes, &ops);
		fputc('\n', fp);
		ops.first_line = false;
	}

	return 0;
}

2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119
int map_symbol__annotation_dump(struct map_symbol *ms, struct perf_evsel *evsel)
{
	const char *ev_name = perf_evsel__name(evsel);
	char buf[1024];
	char *filename;
	int err = -1;
	FILE *fp;

	if (asprintf(&filename, "%s.annotation", ms->sym->name) < 0)
		return -1;

	fp = fopen(filename, "w");
	if (fp == NULL)
		goto out_free_filename;

	if (perf_evsel__is_group_event(evsel)) {
		perf_evsel__group_desc(evsel, buf, sizeof(buf));
		ev_name = buf;
	}

	fprintf(fp, "%s() %s\nEvent: %s\n\n",
		ms->sym->name, ms->map->dso->long_name, ev_name);
	symbol__annotate_fprintf2(ms->sym, fp);

	fclose(fp);
	err = 0;
out_free_filename:
	free(filename);
	return err;
}

2120 2121 2122 2123 2124
void symbol__annotate_zero_histogram(struct symbol *sym, int evidx)
{
	struct annotation *notes = symbol__annotation(sym);
	struct sym_hist *h = annotation__histogram(notes, evidx);

2125
	memset(h, 0, notes->src->sizeof_sym_hist);
2126 2127
}

2128
void symbol__annotate_decay_histogram(struct symbol *sym, int evidx)
2129 2130 2131
{
	struct annotation *notes = symbol__annotation(sym);
	struct sym_hist *h = annotation__histogram(notes, evidx);
2132
	int len = symbol__size(sym), offset;
2133

2134
	h->nr_samples = 0;
2135
	for (offset = 0; offset < len; ++offset) {
2136
		h->addr[offset].nr_samples = h->addr[offset].nr_samples * 7 / 8;
2137
		h->nr_samples += h->addr[offset].nr_samples;
2138 2139 2140
	}
}

2141
void annotated_source__purge(struct annotated_source *as)
2142
{
2143
	struct annotation_line *al, *n;
2144

2145 2146 2147
	list_for_each_entry_safe(al, n, &as->source, node) {
		list_del(&al->node);
		disasm_line__free(disasm_line(al));
2148 2149 2150
	}
}

2151 2152 2153 2154
static size_t disasm_line__fprintf(struct disasm_line *dl, FILE *fp)
{
	size_t printed;

2155 2156
	if (dl->al.offset == -1)
		return fprintf(fp, "%s\n", dl->al.line);
2157

2158
	printed = fprintf(fp, "%#" PRIx64 " %s", dl->al.offset, dl->ins.name);
2159

2160
	if (dl->ops.raw[0] != '\0') {
2161
		printed += fprintf(fp, "%.*s %s\n", 6 - (int)printed, " ",
2162
				   dl->ops.raw);
2163 2164 2165 2166 2167 2168 2169 2170 2171 2172
	}

	return printed + fprintf(fp, "\n");
}

size_t disasm__fprintf(struct list_head *head, FILE *fp)
{
	struct disasm_line *pos;
	size_t printed = 0;

2173
	list_for_each_entry(pos, head, al.node)
2174 2175 2176 2177 2178
		printed += disasm_line__fprintf(pos, fp);

	return printed;
}

2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222

bool disasm_line__is_valid_jump(struct disasm_line *dl, struct symbol *sym)
{
	if (!dl || !dl->ins.ops || !ins__is_jump(&dl->ins) ||
	    !disasm_line__has_offset(dl) || dl->ops.target.offset < 0 ||
	    dl->ops.target.offset >= (s64)symbol__size(sym))
		return false;

	return true;
}

void annotation__mark_jump_targets(struct annotation *notes, struct symbol *sym)
{
	u64 offset, size = symbol__size(sym);

	/* PLT symbols contain external offsets */
	if (strstr(sym->name, "@plt"))
		return;

	for (offset = 0; offset < size; ++offset) {
		struct annotation_line *al = notes->offsets[offset];
		struct disasm_line *dl;

		dl = disasm_line(al);

		if (!disasm_line__is_valid_jump(dl, sym))
			continue;

		al = notes->offsets[dl->ops.target.offset];

		/*
		 * FIXME: Oops, no jump target? Buggy disassembler? Or do we
		 * have to adjust to the previous offset?
		 */
		if (al == NULL)
			continue;

		if (++al->jump_sources > notes->max_jump_sources)
			notes->max_jump_sources = al->jump_sources;

		++notes->nr_jumps;
	}
}

2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250
void annotation__set_offsets(struct annotation *notes, s64 size)
{
	struct annotation_line *al;

	notes->max_line_len = 0;

	list_for_each_entry(al, &notes->src->source, node) {
		size_t line_len = strlen(al->line);

		if (notes->max_line_len < line_len)
			notes->max_line_len = line_len;
		al->idx = notes->nr_entries++;
		if (al->offset != -1) {
			al->idx_asm = notes->nr_asm_entries++;
			/*
			 * FIXME: short term bandaid to cope with assembly
			 * routines that comes with labels in the same column
			 * as the address in objdump, sigh.
			 *
			 * E.g. copy_user_generic_unrolled
 			 */
			if (al->offset < size)
				notes->offsets[al->offset] = al;
		} else
			al->idx_asm = -1;
	}
}

2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267
static inline int width_jumps(int n)
{
	if (n >= 100)
		return 5;
	if (n / 10)
		return 2;
	return 1;
}

void annotation__init_column_widths(struct annotation *notes, struct symbol *sym)
{
	notes->widths.addr = notes->widths.target =
		notes->widths.min_addr = hex_width(symbol__size(sym));
	notes->widths.max_addr = hex_width(sym->end);
	notes->widths.jumps = width_jumps(notes->max_jump_sources);
}

2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280
void annotation__update_column_widths(struct annotation *notes)
{
	if (notes->options->use_offset)
		notes->widths.target = notes->widths.min_addr;
	else
		notes->widths.target = notes->widths.max_addr;

	notes->widths.addr = notes->widths.target;

	if (notes->options->show_nr_jumps)
		notes->widths.addr += notes->widths.jumps + 1;
}

2281
static void annotation__calc_lines(struct annotation *notes, struct map *map,
2282
				  struct rb_root *root)
2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302
{
	struct annotation_line *al;
	struct rb_root tmp_root = RB_ROOT;

	list_for_each_entry(al, &notes->src->source, node) {
		double percent_max = 0.0;
		int i;

		for (i = 0; i < al->samples_nr; i++) {
			struct annotation_data *sample;

			sample = &al->samples[i];

			if (sample->percent > percent_max)
				percent_max = sample->percent;
		}

		if (percent_max <= 0.5)
			continue;

2303 2304
		al->path = get_srcline(map->dso, notes->start + al->offset, NULL,
				       false, true, notes->start + al->offset);
2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315
		insert_source_line(&tmp_root, al);
	}

	resort_source_line(root, &tmp_root);
}

static void symbol__calc_lines(struct symbol *sym, struct map *map,
			      struct rb_root *root)
{
	struct annotation *notes = symbol__annotation(sym);

2316
	annotation__calc_lines(notes, map, root);
2317 2318
}

2319 2320 2321 2322 2323 2324
int symbol__tty_annotate2(struct symbol *sym, struct map *map,
			  struct perf_evsel *evsel, bool print_lines,
			  bool full_paths)
{
	struct dso *dso = map->dso;
	struct rb_root source_line = RB_ROOT;
2325
	struct annotation_options opts = annotation__default_options;
2326 2327
	const char *ev_name = perf_evsel__name(evsel);
	char buf[1024];
2328 2329 2330 2331 2332 2333 2334 2335 2336 2337

	if (symbol__annotate2(sym, map, evsel, &opts, NULL) < 0)
		return -1;

	if (print_lines) {
		srcline_full_filename = full_paths;
		symbol__calc_lines(sym, map, &source_line);
		print_summary(&source_line, dso->long_name);
	}

2338 2339 2340 2341 2342 2343
	if (perf_evsel__is_group_event(evsel)) {
		perf_evsel__group_desc(evsel, buf, sizeof(buf));
		ev_name = buf;
	}

	fprintf(stdout, "%s() %s\nEvent: %s\n\n", sym->name, dso->long_name, ev_name);
2344 2345 2346 2347 2348 2349 2350
	symbol__annotate_fprintf2(sym, stdout);

	annotated_source__purge(symbol__annotation(sym)->src);

	return 0;
}

2351 2352 2353
int symbol__tty_annotate(struct symbol *sym, struct map *map,
			 struct perf_evsel *evsel, bool print_lines,
			 bool full_paths, int min_pcnt, int max_lines)
2354 2355 2356 2357
{
	struct dso *dso = map->dso;
	struct rb_root source_line = RB_ROOT;

2358
	if (symbol__annotate(sym, map, evsel, 0, NULL) < 0)
2359 2360
		return -1;

2361 2362
	symbol__calc_percent(sym, evsel);

2363
	if (print_lines) {
2364
		srcline_full_filename = full_paths;
2365
		symbol__calc_lines(sym, map, &source_line);
2366
		print_summary(&source_line, dso->long_name);
2367 2368
	}

2369
	symbol__annotate_printf(sym, map, evsel, full_paths,
2370
				min_pcnt, max_lines, 0);
2371

2372
	annotated_source__purge(symbol__annotation(sym)->src);
2373

2374 2375
	return 0;
}
2376

2377 2378
bool ui__has_annotation(void)
{
2379
	return use_browser == 1 && perf_hpp_list.sym;
2380
}
2381

2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395

double annotation_line__max_percent(struct annotation_line *al, struct annotation *notes)
{
	double percent_max = 0.0;
	int i;

	for (i = 0; i < notes->nr_events; i++) {
		if (al->samples[i].percent > percent_max)
			percent_max = al->samples[i].percent;
	}

	return percent_max;
}

2396 2397 2398 2399 2400 2401 2402
static void disasm_line__write(struct disasm_line *dl, struct annotation *notes,
			       void *obj, char *bf, size_t size,
			       void (*obj__printf)(void *obj, const char *fmt, ...),
			       void (*obj__write_graph)(void *obj, int graph))
{
	if (dl->ins.ops && dl->ins.ops->scnprintf) {
		if (ins__is_jump(&dl->ins)) {
2403
			bool fwd;
2404

2405 2406 2407
			if (dl->ops.target.outside)
				goto call_like;
			fwd = dl->ops.target.offset > dl->al.offset;
2408 2409 2410
			obj__write_graph(obj, fwd ? DARROW_CHAR : UARROW_CHAR);
			obj__printf(obj, " ");
		} else if (ins__is_call(&dl->ins)) {
2411
call_like:
2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426
			obj__write_graph(obj, RARROW_CHAR);
			obj__printf(obj, " ");
		} else if (ins__is_ret(&dl->ins)) {
			obj__write_graph(obj, LARROW_CHAR);
			obj__printf(obj, " ");
		} else {
			obj__printf(obj, "  ");
		}
	} else {
		obj__printf(obj, "  ");
	}

	disasm_line__scnprintf(dl, bf, size, !notes->options->use_offset);
}

2427 2428 2429 2430 2431 2432 2433 2434 2435
static void __annotation_line__write(struct annotation_line *al, struct annotation *notes,
				     bool first_line, bool current_entry, bool change_color, int width,
				     void *obj,
				     int  (*obj__set_color)(void *obj, int color),
				     void (*obj__set_percent_color)(void *obj, double percent, bool current),
				     int  (*obj__set_jumps_percent_color)(void *obj, int nr, bool current),
				     void (*obj__printf)(void *obj, const char *fmt, ...),
				     void (*obj__write_graph)(void *obj, int graph))

2436 2437
{
	double percent_max = annotation_line__max_percent(al, notes);
2438 2439
	int pcnt_width = annotation__pcnt_width(notes),
	    cycles_width = annotation__cycles_width(notes);
2440
	bool show_title = false;
2441 2442
	char bf[256];
	int printed;
2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470

	if (first_line && (al->offset == -1 || percent_max == 0.0)) {
		if (notes->have_cycles) {
			if (al->ipc == 0.0 && al->cycles == 0)
				show_title = true;
		} else
			show_title = true;
	}

	if (al->offset != -1 && percent_max != 0.0) {
		int i;

		for (i = 0; i < notes->nr_events; i++) {
			obj__set_percent_color(obj, al->samples[i].percent, current_entry);
			if (notes->options->show_total_period) {
				obj__printf(obj, "%11" PRIu64 " ", al->samples[i].he.period);
			} else if (notes->options->show_nr_samples) {
				obj__printf(obj, "%6" PRIu64 " ",
						   al->samples[i].he.nr_samples);
			} else {
				obj__printf(obj, "%6.2f ",
						   al->samples[i].percent);
			}
		}
	} else {
		obj__set_percent_color(obj, 0, current_entry);

		if (!show_title)
2471
			obj__printf(obj, "%-*s", pcnt_width, " ");
2472
		else {
2473
			obj__printf(obj, "%-*s", pcnt_width,
2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496
					   notes->options->show_total_period ? "Period" :
					   notes->options->show_nr_samples ? "Samples" : "Percent");
		}
	}

	if (notes->have_cycles) {
		if (al->ipc)
			obj__printf(obj, "%*.2f ", ANNOTATION__IPC_WIDTH - 1, al->ipc);
		else if (!show_title)
			obj__printf(obj, "%*s", ANNOTATION__IPC_WIDTH, " ");
		else
			obj__printf(obj, "%*s ", ANNOTATION__IPC_WIDTH - 1, "IPC");

		if (al->cycles)
			obj__printf(obj, "%*" PRIu64 " ",
					   ANNOTATION__CYCLES_WIDTH - 1, al->cycles);
		else if (!show_title)
			obj__printf(obj, "%*s", ANNOTATION__CYCLES_WIDTH, " ");
		else
			obj__printf(obj, "%*s ", ANNOTATION__CYCLES_WIDTH - 1, "Cycle");
	}

	obj__printf(obj, " ");
2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547

	if (!*al->line)
		obj__printf(obj, "%-*s", width - pcnt_width - cycles_width, " ");
	else if (al->offset == -1) {
		if (al->line_nr && notes->options->show_linenr)
			printed = scnprintf(bf, sizeof(bf), "%-*d ", notes->widths.addr + 1, al->line_nr);
		else
			printed = scnprintf(bf, sizeof(bf), "%-*s  ", notes->widths.addr, " ");
		obj__printf(obj, bf);
		obj__printf(obj, "%-*s", width - printed - pcnt_width - cycles_width + 1, al->line);
	} else {
		u64 addr = al->offset;
		int color = -1;

		if (!notes->options->use_offset)
			addr += notes->start;

		if (!notes->options->use_offset) {
			printed = scnprintf(bf, sizeof(bf), "%" PRIx64 ": ", addr);
		} else {
			if (al->jump_sources) {
				if (notes->options->show_nr_jumps) {
					int prev;
					printed = scnprintf(bf, sizeof(bf), "%*d ",
							    notes->widths.jumps,
							    al->jump_sources);
					prev = obj__set_jumps_percent_color(obj, al->jump_sources,
									    current_entry);
					obj__printf(obj, bf);
					obj__set_color(obj, prev);
				}

				printed = scnprintf(bf, sizeof(bf), "%*" PRIx64 ": ",
						    notes->widths.target, addr);
			} else {
				printed = scnprintf(bf, sizeof(bf), "%-*s  ",
						    notes->widths.addr, " ");
			}
		}

		if (change_color)
			color = obj__set_color(obj, HE_COLORSET_ADDR);
		obj__printf(obj, bf);
		if (change_color)
			obj__set_color(obj, color);

		disasm_line__write(disasm_line(al), notes, obj, bf, sizeof(bf), obj__printf, obj__write_graph);

		obj__printf(obj, "%-*s", width - pcnt_width - cycles_width - 3 - printed, bf);
	}

2548 2549
}

2550 2551 2552 2553 2554 2555 2556 2557 2558 2559
void annotation_line__write(struct annotation_line *al, struct annotation *notes,
			    struct annotation_write_ops *ops)
{
	__annotation_line__write(al, notes, ops->first_line, ops->current_entry,
				 ops->change_color, ops->width, ops->obj,
				 ops->set_color, ops->set_percent_color,
				 ops->set_jumps_percent_color, ops->printf,
				 ops->write_graph);
}

2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597
int symbol__annotate2(struct symbol *sym, struct map *map, struct perf_evsel *evsel,
		      struct annotation_options *options, struct arch **parch)
{
	struct annotation *notes = symbol__annotation(sym);
	size_t size = symbol__size(sym);
	int nr_pcnt = 1, err;

	notes->offsets = zalloc(size * sizeof(struct annotation_line *));
	if (notes->offsets == NULL)
		return -1;

	if (perf_evsel__is_group_event(evsel))
		nr_pcnt = evsel->nr_members;

	err = symbol__annotate(sym, map, evsel, 0, parch);
	if (err)
		goto out_free_offsets;

	notes->options = options;

	symbol__calc_percent(sym, evsel);

	notes->start = map__rip_2objdump(map, sym->start);

	annotation__set_offsets(notes, size);
	annotation__mark_jump_targets(notes, sym);
	annotation__compute_ipc(notes, size);
	annotation__init_column_widths(notes, sym);
	notes->nr_events = nr_pcnt;

	annotation__update_column_widths(notes);

	return 0;

out_free_offsets:
	zfree(&notes->offsets);
	return -1;
}
2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653

#define ANNOTATION__CFG(n) \
	{ .name = #n, .value = &annotation__default_options.n, }

/*
 * Keep the entries sorted, they are bsearch'ed
 */
static struct annotation_config {
	const char *name;
	bool *value;
} annotation__configs[] = {
	ANNOTATION__CFG(hide_src_code),
	ANNOTATION__CFG(jump_arrows),
	ANNOTATION__CFG(show_linenr),
	ANNOTATION__CFG(show_nr_jumps),
	ANNOTATION__CFG(show_nr_samples),
	ANNOTATION__CFG(show_total_period),
	ANNOTATION__CFG(use_offset),
};

#undef ANNOTATION__CFG

static int annotation_config__cmp(const void *name, const void *cfgp)
{
	const struct annotation_config *cfg = cfgp;

	return strcmp(name, cfg->name);
}

static int annotation__config(const char *var, const char *value,
			    void *data __maybe_unused)
{
	struct annotation_config *cfg;
	const char *name;

	if (!strstarts(var, "annotate."))
		return 0;

	name = var + 9;
	cfg = bsearch(name, annotation__configs, ARRAY_SIZE(annotation__configs),
		      sizeof(struct annotation_config), annotation_config__cmp);

	if (cfg == NULL)
		pr_debug("%s variable unknown, ignoring...", var);
	else
		*cfg->value = perf_config_bool(name, value);
	return 0;
}

void annotation_config__init(void)
{
	perf_config(annotation__config, NULL);

	annotation__default_options.show_total_period = symbol_conf.show_total_period;
	annotation__default_options.show_nr_samples   = symbol_conf.show_nr_samples;
}