builtin-kvm.c 39.3 KB
Newer Older
1 2 3
#include "builtin.h"
#include "perf.h"

X
Xiao Guangrong 已提交
4
#include "util/evsel.h"
D
David Ahern 已提交
5
#include "util/evlist.h"
6 7 8 9 10 11
#include "util/util.h"
#include "util/cache.h"
#include "util/symbol.h"
#include "util/thread.h"
#include "util/header.h"
#include "util/session.h"
12
#include "util/intlist.h"
13 14 15
#include "util/parse-options.h"
#include "util/trace-event.h"
#include "util/debug.h"
16
#include <lk/debugfs.h>
X
Xiao Guangrong 已提交
17 18
#include "util/tool.h"
#include "util/stat.h"
D
David Ahern 已提交
19
#include "util/top.h"
20
#include "util/data.h"
21 22

#include <sys/prctl.h>
23
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
24
#include <sys/timerfd.h>
25
#endif
26

D
David Ahern 已提交
27
#include <termios.h>
28 29 30 31
#include <semaphore.h>
#include <pthread.h>
#include <math.h>

32
#if defined(__i386__) || defined(__x86_64__)
33 34 35
#include <asm/svm.h>
#include <asm/vmx.h>
#include <asm/kvm.h>
X
Xiao Guangrong 已提交
36 37 38 39 40 41 42

struct event_key {
	#define INVALID_KEY     (~0ULL)
	u64 key;
	int info;
};

43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
struct kvm_event_stats {
	u64 time;
	struct stats stats;
};

struct kvm_event {
	struct list_head hash_entry;
	struct rb_node rb;

	struct event_key key;

	struct kvm_event_stats total;

	#define DEFAULT_VCPU_NUM 8
	int max_vcpu;
	struct kvm_event_stats *vcpu;
};

typedef int (*key_cmp_fun)(struct kvm_event*, struct kvm_event*, int);

struct kvm_event_key {
	const char *name;
	key_cmp_fun key;
};


69
struct perf_kvm_stat;
70

X
Xiao Guangrong 已提交
71
struct kvm_events_ops {
72 73 74 75 76
	bool (*is_begin_event)(struct perf_evsel *evsel,
			       struct perf_sample *sample,
			       struct event_key *key);
	bool (*is_end_event)(struct perf_evsel *evsel,
			     struct perf_sample *sample, struct event_key *key);
77
	void (*decode_key)(struct perf_kvm_stat *kvm, struct event_key *key,
78
			   char decode[20]);
X
Xiao Guangrong 已提交
79 80 81
	const char *name;
};

82 83 84 85 86 87 88 89
struct exit_reasons_table {
	unsigned long exit_code;
	const char *reason;
};

#define EVENTS_BITS		12
#define EVENTS_CACHE_SIZE	(1UL << EVENTS_BITS)

90
struct perf_kvm_stat {
91
	struct perf_tool    tool;
D
David Ahern 已提交
92 93
	struct perf_record_opts opts;
	struct perf_evlist  *evlist;
94 95 96 97 98 99 100 101 102 103 104 105 106 107
	struct perf_session *session;

	const char *file_name;
	const char *report_event;
	const char *sort_key;
	int trace_vcpu;

	struct exit_reasons_table *exit_reasons;
	int exit_reasons_size;
	const char *exit_reasons_isa;

	struct kvm_events_ops *events_ops;
	key_cmp_fun compare;
	struct list_head kvm_events_cache[EVENTS_CACHE_SIZE];
D
David Ahern 已提交
108

109 110
	u64 total_time;
	u64 total_count;
D
David Ahern 已提交
111
	u64 lost_events;
112
	u64 duration;
113

114 115 116
	const char *pid_str;
	struct intlist *pid_list;

117
	struct rb_root result;
D
David Ahern 已提交
118 119 120 121

	int timerfd;
	unsigned int display_time;
	bool live;
122 123 124
};


125 126 127
static void exit_event_get_key(struct perf_evsel *evsel,
			       struct perf_sample *sample,
			       struct event_key *key)
X
Xiao Guangrong 已提交
128 129
{
	key->info = 0;
130
	key->key = perf_evsel__intval(evsel, sample, "exit_reason");
X
Xiao Guangrong 已提交
131 132
}

133
static bool kvm_exit_event(struct perf_evsel *evsel)
X
Xiao Guangrong 已提交
134
{
135
	return !strcmp(evsel->name, "kvm:kvm_exit");
X
Xiao Guangrong 已提交
136 137
}

138 139
static bool exit_event_begin(struct perf_evsel *evsel,
			     struct perf_sample *sample, struct event_key *key)
X
Xiao Guangrong 已提交
140
{
141 142
	if (kvm_exit_event(evsel)) {
		exit_event_get_key(evsel, sample, key);
X
Xiao Guangrong 已提交
143 144 145 146 147 148
		return true;
	}

	return false;
}

149
static bool kvm_entry_event(struct perf_evsel *evsel)
X
Xiao Guangrong 已提交
150
{
151
	return !strcmp(evsel->name, "kvm:kvm_entry");
X
Xiao Guangrong 已提交
152 153
}

154 155 156
static bool exit_event_end(struct perf_evsel *evsel,
			   struct perf_sample *sample __maybe_unused,
			   struct event_key *key __maybe_unused)
X
Xiao Guangrong 已提交
157
{
158
	return kvm_entry_event(evsel);
X
Xiao Guangrong 已提交
159 160
}

161
static struct exit_reasons_table vmx_exit_reasons[] = {
X
Xiao Guangrong 已提交
162 163 164
	VMX_EXIT_REASONS
};

165
static struct exit_reasons_table svm_exit_reasons[] = {
X
Xiao Guangrong 已提交
166 167 168
	SVM_EXIT_REASONS
};

169
static const char *get_exit_reason(struct perf_kvm_stat *kvm, u64 exit_code)
X
Xiao Guangrong 已提交
170
{
171 172
	int i = kvm->exit_reasons_size;
	struct exit_reasons_table *tbl = kvm->exit_reasons;
X
Xiao Guangrong 已提交
173

174 175 176 177
	while (i--) {
		if (tbl->exit_code == exit_code)
			return tbl->reason;
		tbl++;
X
Xiao Guangrong 已提交
178 179 180
	}

	pr_err("unknown kvm exit code:%lld on %s\n",
181
		(unsigned long long)exit_code, kvm->exit_reasons_isa);
X
Xiao Guangrong 已提交
182 183 184
	return "UNKNOWN";
}

185
static void exit_event_decode_key(struct perf_kvm_stat *kvm,
186 187
				  struct event_key *key,
				  char decode[20])
X
Xiao Guangrong 已提交
188
{
189
	const char *exit_reason = get_exit_reason(kvm, key->key);
X
Xiao Guangrong 已提交
190 191 192 193 194 195 196 197 198 199 200

	scnprintf(decode, 20, "%s", exit_reason);
}

static struct kvm_events_ops exit_events = {
	.is_begin_event = exit_event_begin,
	.is_end_event = exit_event_end,
	.decode_key = exit_event_decode_key,
	.name = "VM-EXIT"
};

201 202 203 204 205
/*
 * For the mmio events, we treat:
 * the time of MMIO write: kvm_mmio(KVM_TRACE_MMIO_WRITE...) -> kvm_entry
 * the time of MMIO read: kvm_exit -> kvm_mmio(KVM_TRACE_MMIO_READ...).
 */
206 207
static void mmio_event_get_key(struct perf_evsel *evsel, struct perf_sample *sample,
			       struct event_key *key)
X
Xiao Guangrong 已提交
208
{
209 210
	key->key  = perf_evsel__intval(evsel, sample, "gpa");
	key->info = perf_evsel__intval(evsel, sample, "type");
X
Xiao Guangrong 已提交
211 212 213 214 215 216
}

#define KVM_TRACE_MMIO_READ_UNSATISFIED 0
#define KVM_TRACE_MMIO_READ 1
#define KVM_TRACE_MMIO_WRITE 2

217 218
static bool mmio_event_begin(struct perf_evsel *evsel,
			     struct perf_sample *sample, struct event_key *key)
X
Xiao Guangrong 已提交
219 220
{
	/* MMIO read begin event in kernel. */
221
	if (kvm_exit_event(evsel))
X
Xiao Guangrong 已提交
222 223 224
		return true;

	/* MMIO write begin event in kernel. */
225 226 227
	if (!strcmp(evsel->name, "kvm:kvm_mmio") &&
	    perf_evsel__intval(evsel, sample, "type") == KVM_TRACE_MMIO_WRITE) {
		mmio_event_get_key(evsel, sample, key);
X
Xiao Guangrong 已提交
228 229 230 231 232 233
		return true;
	}

	return false;
}

234 235
static bool mmio_event_end(struct perf_evsel *evsel, struct perf_sample *sample,
			   struct event_key *key)
X
Xiao Guangrong 已提交
236 237
{
	/* MMIO write end event in kernel. */
238
	if (kvm_entry_event(evsel))
X
Xiao Guangrong 已提交
239 240 241
		return true;

	/* MMIO read end event in kernel.*/
242 243 244
	if (!strcmp(evsel->name, "kvm:kvm_mmio") &&
	    perf_evsel__intval(evsel, sample, "type") == KVM_TRACE_MMIO_READ) {
		mmio_event_get_key(evsel, sample, key);
X
Xiao Guangrong 已提交
245 246 247 248 249 250
		return true;
	}

	return false;
}

251
static void mmio_event_decode_key(struct perf_kvm_stat *kvm __maybe_unused,
252 253
				  struct event_key *key,
				  char decode[20])
X
Xiao Guangrong 已提交
254 255 256 257 258 259 260 261 262 263 264 265 266
{
	scnprintf(decode, 20, "%#lx:%s", (unsigned long)key->key,
				key->info == KVM_TRACE_MMIO_WRITE ? "W" : "R");
}

static struct kvm_events_ops mmio_events = {
	.is_begin_event = mmio_event_begin,
	.is_end_event = mmio_event_end,
	.decode_key = mmio_event_decode_key,
	.name = "MMIO Access"
};

 /* The time of emulation pio access is from kvm_pio to kvm_entry. */
267 268 269
static void ioport_event_get_key(struct perf_evsel *evsel,
				 struct perf_sample *sample,
				 struct event_key *key)
X
Xiao Guangrong 已提交
270
{
271 272
	key->key  = perf_evsel__intval(evsel, sample, "port");
	key->info = perf_evsel__intval(evsel, sample, "rw");
X
Xiao Guangrong 已提交
273 274
}

275 276 277
static bool ioport_event_begin(struct perf_evsel *evsel,
			       struct perf_sample *sample,
			       struct event_key *key)
X
Xiao Guangrong 已提交
278
{
279 280
	if (!strcmp(evsel->name, "kvm:kvm_pio")) {
		ioport_event_get_key(evsel, sample, key);
X
Xiao Guangrong 已提交
281 282 283 284 285 286
		return true;
	}

	return false;
}

287 288
static bool ioport_event_end(struct perf_evsel *evsel,
			     struct perf_sample *sample __maybe_unused,
X
Xiao Guangrong 已提交
289 290
			     struct event_key *key __maybe_unused)
{
291
	return kvm_entry_event(evsel);
X
Xiao Guangrong 已提交
292 293
}

294
static void ioport_event_decode_key(struct perf_kvm_stat *kvm __maybe_unused,
295 296
				    struct event_key *key,
				    char decode[20])
X
Xiao Guangrong 已提交
297 298 299 300 301 302 303 304 305 306 307 308
{
	scnprintf(decode, 20, "%#llx:%s", (unsigned long long)key->key,
				key->info ? "POUT" : "PIN");
}

static struct kvm_events_ops ioport_events = {
	.is_begin_event = ioport_event_begin,
	.is_end_event = ioport_event_end,
	.decode_key = ioport_event_decode_key,
	.name = "IO Port Access"
};

309
static bool register_kvm_events_ops(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
310 311 312
{
	bool ret = true;

313 314 315 316 317 318
	if (!strcmp(kvm->report_event, "vmexit"))
		kvm->events_ops = &exit_events;
	else if (!strcmp(kvm->report_event, "mmio"))
		kvm->events_ops = &mmio_events;
	else if (!strcmp(kvm->report_event, "ioport"))
		kvm->events_ops = &ioport_events;
X
Xiao Guangrong 已提交
319
	else {
320
		pr_err("Unknown report event:%s\n", kvm->report_event);
X
Xiao Guangrong 已提交
321 322 323 324 325 326 327 328 329 330 331 332 333
		ret = false;
	}

	return ret;
}

struct vcpu_event_record {
	int vcpu_id;
	u64 start_time;
	struct kvm_event *last_event;
};


334
static void init_kvm_event_record(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
335
{
336
	unsigned int i;
X
Xiao Guangrong 已提交
337

338
	for (i = 0; i < EVENTS_CACHE_SIZE; i++)
339
		INIT_LIST_HEAD(&kvm->kvm_events_cache[i]);
X
Xiao Guangrong 已提交
340 341
}

342
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
343 344 345 346 347
static void clear_events_cache_stats(struct list_head *kvm_events_cache)
{
	struct list_head *head;
	struct kvm_event *event;
	unsigned int i;
348
	int j;
D
David Ahern 已提交
349 350 351 352 353

	for (i = 0; i < EVENTS_CACHE_SIZE; i++) {
		head = &kvm_events_cache[i];
		list_for_each_entry(event, head, hash_entry) {
			/* reset stats for event */
354 355 356 357 358 359 360
			event->total.time = 0;
			init_stats(&event->total.stats);

			for (j = 0; j < event->max_vcpu; ++j) {
				event->vcpu[j].time = 0;
				init_stats(&event->vcpu[j].stats);
			}
D
David Ahern 已提交
361 362 363
		}
	}
}
364
#endif
D
David Ahern 已提交
365

X
Xiao Guangrong 已提交
366 367 368 369 370 371 372 373
static int kvm_events_hash_fn(u64 key)
{
	return key & (EVENTS_CACHE_SIZE - 1);
}

static bool kvm_event_expand(struct kvm_event *event, int vcpu_id)
{
	int old_max_vcpu = event->max_vcpu;
D
David Ahern 已提交
374
	void *prev;
X
Xiao Guangrong 已提交
375 376 377 378 379 380 381

	if (vcpu_id < event->max_vcpu)
		return true;

	while (event->max_vcpu <= vcpu_id)
		event->max_vcpu += DEFAULT_VCPU_NUM;

D
David Ahern 已提交
382
	prev = event->vcpu;
X
Xiao Guangrong 已提交
383 384 385
	event->vcpu = realloc(event->vcpu,
			      event->max_vcpu * sizeof(*event->vcpu));
	if (!event->vcpu) {
D
David Ahern 已提交
386
		free(prev);
X
Xiao Guangrong 已提交
387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409
		pr_err("Not enough memory\n");
		return false;
	}

	memset(event->vcpu + old_max_vcpu, 0,
	       (event->max_vcpu - old_max_vcpu) * sizeof(*event->vcpu));
	return true;
}

static struct kvm_event *kvm_alloc_init_event(struct event_key *key)
{
	struct kvm_event *event;

	event = zalloc(sizeof(*event));
	if (!event) {
		pr_err("Not enough memory\n");
		return NULL;
	}

	event->key = *key;
	return event;
}

410
static struct kvm_event *find_create_kvm_event(struct perf_kvm_stat *kvm,
411
					       struct event_key *key)
X
Xiao Guangrong 已提交
412 413 414 415 416 417
{
	struct kvm_event *event;
	struct list_head *head;

	BUG_ON(key->key == INVALID_KEY);

418
	head = &kvm->kvm_events_cache[kvm_events_hash_fn(key->key)];
419
	list_for_each_entry(event, head, hash_entry) {
X
Xiao Guangrong 已提交
420 421
		if (event->key.key == key->key && event->key.info == key->info)
			return event;
422
	}
X
Xiao Guangrong 已提交
423 424 425 426 427 428 429 430 431

	event = kvm_alloc_init_event(key);
	if (!event)
		return NULL;

	list_add(&event->hash_entry, head);
	return event;
}

432
static bool handle_begin_event(struct perf_kvm_stat *kvm,
433
			       struct vcpu_event_record *vcpu_record,
X
Xiao Guangrong 已提交
434 435 436 437 438
			       struct event_key *key, u64 timestamp)
{
	struct kvm_event *event = NULL;

	if (key->key != INVALID_KEY)
439
		event = find_create_kvm_event(kvm, key);
X
Xiao Guangrong 已提交
440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466

	vcpu_record->last_event = event;
	vcpu_record->start_time = timestamp;
	return true;
}

static void
kvm_update_event_stats(struct kvm_event_stats *kvm_stats, u64 time_diff)
{
	kvm_stats->time += time_diff;
	update_stats(&kvm_stats->stats, time_diff);
}

static double kvm_event_rel_stddev(int vcpu_id, struct kvm_event *event)
{
	struct kvm_event_stats *kvm_stats = &event->total;

	if (vcpu_id != -1)
		kvm_stats = &event->vcpu[vcpu_id];

	return rel_stddev_stats(stddev_stats(&kvm_stats->stats),
				avg_stats(&kvm_stats->stats));
}

static bool update_kvm_event(struct kvm_event *event, int vcpu_id,
			     u64 time_diff)
{
467 468 469 470
	if (vcpu_id == -1) {
		kvm_update_event_stats(&event->total, time_diff);
		return true;
	}
X
Xiao Guangrong 已提交
471 472 473 474 475 476 477 478

	if (!kvm_event_expand(event, vcpu_id))
		return false;

	kvm_update_event_stats(&event->vcpu[vcpu_id], time_diff);
	return true;
}

479
static bool handle_end_event(struct perf_kvm_stat *kvm,
480 481
			     struct vcpu_event_record *vcpu_record,
			     struct event_key *key,
482
			     struct perf_sample *sample)
X
Xiao Guangrong 已提交
483 484 485
{
	struct kvm_event *event;
	u64 time_begin, time_diff;
486 487 488 489 490 491
	int vcpu;

	if (kvm->trace_vcpu == -1)
		vcpu = -1;
	else
		vcpu = vcpu_record->vcpu_id;
X
Xiao Guangrong 已提交
492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509

	event = vcpu_record->last_event;
	time_begin = vcpu_record->start_time;

	/* The begin event is not caught. */
	if (!time_begin)
		return true;

	/*
	 * In some case, the 'begin event' only records the start timestamp,
	 * the actual event is recognized in the 'end event' (e.g. mmio-event).
	 */

	/* Both begin and end events did not get the key. */
	if (!event && key->key == INVALID_KEY)
		return true;

	if (!event)
510
		event = find_create_kvm_event(kvm, key);
X
Xiao Guangrong 已提交
511 512 513 514 515 516 517

	if (!event)
		return false;

	vcpu_record->last_event = NULL;
	vcpu_record->start_time = 0;

D
David Ahern 已提交
518
	/* seems to happen once in a while during live mode */
519
	if (sample->time < time_begin) {
D
David Ahern 已提交
520 521 522
		pr_debug("End time before begin time; skipping event.\n");
		return true;
	}
X
Xiao Guangrong 已提交
523

524 525 526 527 528 529 530 531 532 533 534 535 536
	time_diff = sample->time - time_begin;

	if (kvm->duration && time_diff > kvm->duration) {
		char decode[32];

		kvm->events_ops->decode_key(kvm, &event->key, decode);
		if (strcmp(decode, "HLT")) {
			pr_info("%" PRIu64 " VM %d, vcpu %d: %s event took %" PRIu64 "usec\n",
				 sample->time, sample->pid, vcpu_record->vcpu_id,
				 decode, time_diff/1000);
		}
	}

537
	return update_kvm_event(event, vcpu, time_diff);
X
Xiao Guangrong 已提交
538 539
}

540 541 542 543
static
struct vcpu_event_record *per_vcpu_record(struct thread *thread,
					  struct perf_evsel *evsel,
					  struct perf_sample *sample)
X
Xiao Guangrong 已提交
544 545
{
	/* Only kvm_entry records vcpu id. */
546
	if (!thread->priv && kvm_entry_event(evsel)) {
X
Xiao Guangrong 已提交
547 548
		struct vcpu_event_record *vcpu_record;

549
		vcpu_record = zalloc(sizeof(*vcpu_record));
X
Xiao Guangrong 已提交
550
		if (!vcpu_record) {
551
			pr_err("%s: Not enough memory\n", __func__);
X
Xiao Guangrong 已提交
552 553 554
			return NULL;
		}

555
		vcpu_record->vcpu_id = perf_evsel__intval(evsel, sample, "vcpu_id");
X
Xiao Guangrong 已提交
556 557 558
		thread->priv = vcpu_record;
	}

559
	return thread->priv;
X
Xiao Guangrong 已提交
560 561
}

562
static bool handle_kvm_event(struct perf_kvm_stat *kvm,
563 564
			     struct thread *thread,
			     struct perf_evsel *evsel,
565
			     struct perf_sample *sample)
X
Xiao Guangrong 已提交
566 567 568 569
{
	struct vcpu_event_record *vcpu_record;
	struct event_key key = {.key = INVALID_KEY};

570
	vcpu_record = per_vcpu_record(thread, evsel, sample);
X
Xiao Guangrong 已提交
571 572 573
	if (!vcpu_record)
		return true;

574 575 576 577 578
	/* only process events for vcpus user cares about */
	if ((kvm->trace_vcpu != -1) &&
	    (kvm->trace_vcpu != vcpu_record->vcpu_id))
		return true;

579 580
	if (kvm->events_ops->is_begin_event(evsel, sample, &key))
		return handle_begin_event(kvm, vcpu_record, &key, sample->time);
X
Xiao Guangrong 已提交
581

582
	if (kvm->events_ops->is_end_event(evsel, sample, &key))
583
		return handle_end_event(kvm, vcpu_record, &key, sample);
X
Xiao Guangrong 已提交
584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611

	return true;
}

#define GET_EVENT_KEY(func, field)					\
static u64 get_event_ ##func(struct kvm_event *event, int vcpu)		\
{									\
	if (vcpu == -1)							\
		return event->total.field;				\
									\
	if (vcpu >= event->max_vcpu)					\
		return 0;						\
									\
	return event->vcpu[vcpu].field;					\
}

#define COMPARE_EVENT_KEY(func, field)					\
GET_EVENT_KEY(func, field)						\
static int compare_kvm_event_ ## func(struct kvm_event *one,		\
					struct kvm_event *two, int vcpu)\
{									\
	return get_event_ ##func(one, vcpu) >				\
				get_event_ ##func(two, vcpu);		\
}

GET_EVENT_KEY(time, time);
COMPARE_EVENT_KEY(count, stats.n);
COMPARE_EVENT_KEY(mean, stats.mean);
612 613
GET_EVENT_KEY(max, stats.max);
GET_EVENT_KEY(min, stats.min);
X
Xiao Guangrong 已提交
614 615 616 617 618 619 620 621 622 623

#define DEF_SORT_NAME_KEY(name, compare_key)				\
	{ #name, compare_kvm_event_ ## compare_key }

static struct kvm_event_key keys[] = {
	DEF_SORT_NAME_KEY(sample, count),
	DEF_SORT_NAME_KEY(time, mean),
	{ NULL, NULL }
};

624
static bool select_key(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
625 626 627 628
{
	int i;

	for (i = 0; keys[i].name; i++) {
629 630
		if (!strcmp(keys[i].name, kvm->sort_key)) {
			kvm->compare = keys[i].key;
X
Xiao Guangrong 已提交
631 632 633 634
			return true;
		}
	}

635
	pr_err("Unknown compare key:%s\n", kvm->sort_key);
X
Xiao Guangrong 已提交
636 637 638
	return false;
}

639 640
static void insert_to_result(struct rb_root *result, struct kvm_event *event,
			     key_cmp_fun bigger, int vcpu)
X
Xiao Guangrong 已提交
641
{
642
	struct rb_node **rb = &result->rb_node;
X
Xiao Guangrong 已提交
643 644 645 646 647 648 649 650 651 652 653 654 655 656
	struct rb_node *parent = NULL;
	struct kvm_event *p;

	while (*rb) {
		p = container_of(*rb, struct kvm_event, rb);
		parent = *rb;

		if (bigger(event, p, vcpu))
			rb = &(*rb)->rb_left;
		else
			rb = &(*rb)->rb_right;
	}

	rb_link_node(&event->rb, parent, rb);
657
	rb_insert_color(&event->rb, result);
X
Xiao Guangrong 已提交
658 659
}

660 661
static void
update_total_count(struct perf_kvm_stat *kvm, struct kvm_event *event)
X
Xiao Guangrong 已提交
662
{
663 664 665 666
	int vcpu = kvm->trace_vcpu;

	kvm->total_count += get_event_count(event, vcpu);
	kvm->total_time += get_event_time(event, vcpu);
X
Xiao Guangrong 已提交
667 668 669 670 671 672 673
}

static bool event_is_valid(struct kvm_event *event, int vcpu)
{
	return !!get_event_count(event, vcpu);
}

674
static void sort_result(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
675 676
{
	unsigned int i;
677
	int vcpu = kvm->trace_vcpu;
X
Xiao Guangrong 已提交
678 679
	struct kvm_event *event;

680 681
	for (i = 0; i < EVENTS_CACHE_SIZE; i++) {
		list_for_each_entry(event, &kvm->kvm_events_cache[i], hash_entry) {
X
Xiao Guangrong 已提交
682
			if (event_is_valid(event, vcpu)) {
683 684 685
				update_total_count(kvm, event);
				insert_to_result(&kvm->result, event,
						 kvm->compare, vcpu);
X
Xiao Guangrong 已提交
686
			}
687 688
		}
	}
X
Xiao Guangrong 已提交
689 690 691
}

/* returns left most element of result, and erase it */
692
static struct kvm_event *pop_from_result(struct rb_root *result)
X
Xiao Guangrong 已提交
693
{
694
	struct rb_node *node = rb_first(result);
X
Xiao Guangrong 已提交
695 696 697 698

	if (!node)
		return NULL;

699
	rb_erase(node, result);
X
Xiao Guangrong 已提交
700 701 702
	return container_of(node, struct kvm_event, rb);
}

D
David Ahern 已提交
703
static void print_vcpu_info(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
704
{
D
David Ahern 已提交
705 706
	int vcpu = kvm->trace_vcpu;

X
Xiao Guangrong 已提交
707 708
	pr_info("Analyze events for ");

D
David Ahern 已提交
709 710 711 712 713 714 715 716 717
	if (kvm->live) {
		if (kvm->opts.target.system_wide)
			pr_info("all VMs, ");
		else if (kvm->opts.target.pid)
			pr_info("pid(s) %s, ", kvm->opts.target.pid);
		else
			pr_info("dazed and confused on what is monitored, ");
	}

X
Xiao Guangrong 已提交
718 719 720 721 722 723
	if (vcpu == -1)
		pr_info("all VCPUs:\n\n");
	else
		pr_info("VCPU %d:\n\n", vcpu);
}

D
David Ahern 已提交
724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739
static void show_timeofday(void)
{
	char date[64];
	struct timeval tv;
	struct tm ltime;

	gettimeofday(&tv, NULL);
	if (localtime_r(&tv.tv_sec, &ltime)) {
		strftime(date, sizeof(date), "%H:%M:%S", &ltime);
		pr_info("%s.%06ld", date, tv.tv_usec);
	} else
		pr_info("00:00:00.000000");

	return;
}

740
static void print_result(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
741 742 743
{
	char decode[20];
	struct kvm_event *event;
744
	int vcpu = kvm->trace_vcpu;
X
Xiao Guangrong 已提交
745

D
David Ahern 已提交
746 747 748 749 750
	if (kvm->live) {
		puts(CONSOLE_CLEAR);
		show_timeofday();
	}

X
Xiao Guangrong 已提交
751
	pr_info("\n\n");
D
David Ahern 已提交
752
	print_vcpu_info(kvm);
753
	pr_info("%20s ", kvm->events_ops->name);
X
Xiao Guangrong 已提交
754 755 756 757
	pr_info("%10s ", "Samples");
	pr_info("%9s ", "Samples%");

	pr_info("%9s ", "Time%");
758 759
	pr_info("%10s ", "Min Time");
	pr_info("%10s ", "Max Time");
X
Xiao Guangrong 已提交
760 761 762
	pr_info("%16s ", "Avg time");
	pr_info("\n\n");

763
	while ((event = pop_from_result(&kvm->result))) {
764
		u64 ecount, etime, max, min;
X
Xiao Guangrong 已提交
765 766 767

		ecount = get_event_count(event, vcpu);
		etime = get_event_time(event, vcpu);
768 769
		max = get_event_max(event, vcpu);
		min = get_event_min(event, vcpu);
X
Xiao Guangrong 已提交
770

771
		kvm->events_ops->decode_key(kvm, &event->key, decode);
X
Xiao Guangrong 已提交
772 773
		pr_info("%20s ", decode);
		pr_info("%10llu ", (unsigned long long)ecount);
774 775
		pr_info("%8.2f%% ", (double)ecount / kvm->total_count * 100);
		pr_info("%8.2f%% ", (double)etime / kvm->total_time * 100);
776 777
		pr_info("%8" PRIu64 "us ", min / 1000);
		pr_info("%8" PRIu64 "us ", max / 1000);
X
Xiao Guangrong 已提交
778 779 780 781 782
		pr_info("%9.2fus ( +-%7.2f%% )", (double)etime / ecount/1e3,
			kvm_event_rel_stddev(vcpu, event));
		pr_info("\n");
	}

783 784
	pr_info("\nTotal Samples:%" PRIu64 ", Total events handled time:%.2fus.\n\n",
		kvm->total_count, kvm->total_time / 1e3);
D
David Ahern 已提交
785 786 787 788 789

	if (kvm->lost_events)
		pr_info("\nLost events: %" PRIu64 "\n\n", kvm->lost_events);
}

790
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
791 792 793 794 795 796 797 798 799
static int process_lost_event(struct perf_tool *tool,
			      union perf_event *event __maybe_unused,
			      struct perf_sample *sample __maybe_unused,
			      struct machine *machine __maybe_unused)
{
	struct perf_kvm_stat *kvm = container_of(tool, struct perf_kvm_stat, tool);

	kvm->lost_events++;
	return 0;
X
Xiao Guangrong 已提交
800
}
801
#endif
X
Xiao Guangrong 已提交
802

803 804 805 806 807 808 809 810 811
static bool skip_sample(struct perf_kvm_stat *kvm,
			struct perf_sample *sample)
{
	if (kvm->pid_list && intlist__find(kvm->pid_list, sample->pid) == NULL)
		return true;

	return false;
}

812
static int process_sample_event(struct perf_tool *tool,
X
Xiao Guangrong 已提交
813 814 815 816 817
				union perf_event *event,
				struct perf_sample *sample,
				struct perf_evsel *evsel,
				struct machine *machine)
{
818
	struct thread *thread;
819 820
	struct perf_kvm_stat *kvm = container_of(tool, struct perf_kvm_stat,
						 tool);
X
Xiao Guangrong 已提交
821

822 823 824
	if (skip_sample(kvm, sample))
		return 0;

825
	thread = machine__findnew_thread(machine, sample->pid, sample->tid);
X
Xiao Guangrong 已提交
826 827 828 829 830 831
	if (thread == NULL) {
		pr_debug("problem processing %d event, skipping it.\n",
			event->header.type);
		return -1;
	}

832
	if (!handle_kvm_event(kvm, thread, evsel, sample))
X
Xiao Guangrong 已提交
833 834 835 836 837
		return -1;

	return 0;
}

D
David Ahern 已提交
838
static int cpu_isa_config(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
839
{
D
David Ahern 已提交
840 841 842 843 844 845 846 847 848 849 850 851
	char buf[64], *cpuid;
	int err, isa;

	if (kvm->live) {
		err = get_cpuid(buf, sizeof(buf));
		if (err != 0) {
			pr_err("Failed to look up CPU type (Intel or AMD)\n");
			return err;
		}
		cpuid = buf;
	} else
		cpuid = kvm->session->header.env.cpuid;
X
Xiao Guangrong 已提交
852 853 854 855 856 857 858

	if (strstr(cpuid, "Intel"))
		isa = 1;
	else if (strstr(cpuid, "AMD"))
		isa = 0;
	else {
		pr_err("CPU %s is not supported.\n", cpuid);
D
David Ahern 已提交
859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880
		return -ENOTSUP;
	}

	if (isa == 1) {
		kvm->exit_reasons = vmx_exit_reasons;
		kvm->exit_reasons_size = ARRAY_SIZE(vmx_exit_reasons);
		kvm->exit_reasons_isa = "VMX";
	}

	return 0;
}

static bool verify_vcpu(int vcpu)
{
	if (vcpu != -1 && vcpu < 0) {
		pr_err("Invalid vcpu:%d.\n", vcpu);
		return false;
	}

	return true;
}

881
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898
/* keeping the max events to a modest level to keep
 * the processing of samples per mmap smooth.
 */
#define PERF_KVM__MAX_EVENTS_PER_MMAP  25

static s64 perf_kvm__mmap_read_idx(struct perf_kvm_stat *kvm, int idx,
				   u64 *mmap_time)
{
	union perf_event *event;
	struct perf_sample sample;
	s64 n = 0;
	int err;

	*mmap_time = ULLONG_MAX;
	while ((event = perf_evlist__mmap_read(kvm->evlist, idx)) != NULL) {
		err = perf_evlist__parse_sample(kvm->evlist, event, &sample);
		if (err) {
899
			perf_evlist__mmap_consume(kvm->evlist, idx);
D
David Ahern 已提交
900 901 902 903 904
			pr_err("Failed to parse sample\n");
			return -1;
		}

		err = perf_session_queue_event(kvm->session, event, &sample, 0);
905 906 907 908 909 910
		/*
		 * FIXME: Here we can't consume the event, as perf_session_queue_event will
		 *        point to it, and it'll get possibly overwritten by the kernel.
		 */
		perf_evlist__mmap_consume(kvm->evlist, idx);

D
David Ahern 已提交
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 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 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
		if (err) {
			pr_err("Failed to enqueue sample: %d\n", err);
			return -1;
		}

		/* save time stamp of our first sample for this mmap */
		if (n == 0)
			*mmap_time = sample.time;

		/* limit events per mmap handled all at once */
		n++;
		if (n == PERF_KVM__MAX_EVENTS_PER_MMAP)
			break;
	}

	return n;
}

static int perf_kvm__mmap_read(struct perf_kvm_stat *kvm)
{
	int i, err, throttled = 0;
	s64 n, ntotal = 0;
	u64 flush_time = ULLONG_MAX, mmap_time;

	for (i = 0; i < kvm->evlist->nr_mmaps; i++) {
		n = perf_kvm__mmap_read_idx(kvm, i, &mmap_time);
		if (n < 0)
			return -1;

		/* flush time is going to be the minimum of all the individual
		 * mmap times. Essentially, we flush all the samples queued up
		 * from the last pass under our minimal start time -- that leaves
		 * a very small race for samples to come in with a lower timestamp.
		 * The ioctl to return the perf_clock timestamp should close the
		 * race entirely.
		 */
		if (mmap_time < flush_time)
			flush_time = mmap_time;

		ntotal += n;
		if (n == PERF_KVM__MAX_EVENTS_PER_MMAP)
			throttled = 1;
	}

	/* flush queue after each round in which we processed events */
	if (ntotal) {
		kvm->session->ordered_samples.next_flush = flush_time;
		err = kvm->tool.finished_round(&kvm->tool, NULL, kvm->session);
		if (err) {
			if (kvm->lost_events)
				pr_info("\nLost events: %" PRIu64 "\n\n",
					kvm->lost_events);
			return err;
		}
	}

	return throttled;
}

static volatile int done;

static void sig_handler(int sig __maybe_unused)
{
	done = 1;
}

static int perf_kvm__timerfd_create(struct perf_kvm_stat *kvm)
{
	struct itimerspec new_value;
	int rc = -1;

	kvm->timerfd = timerfd_create(CLOCK_MONOTONIC, TFD_NONBLOCK);
	if (kvm->timerfd < 0) {
		pr_err("timerfd_create failed\n");
		goto out;
	}

	new_value.it_value.tv_sec = kvm->display_time;
	new_value.it_value.tv_nsec = 0;
	new_value.it_interval.tv_sec = kvm->display_time;
	new_value.it_interval.tv_nsec = 0;

	if (timerfd_settime(kvm->timerfd, 0, &new_value, NULL) != 0) {
		pr_err("timerfd_settime failed: %d\n", errno);
		close(kvm->timerfd);
		goto out;
	}

	rc = 0;
out:
	return rc;
}

static int perf_kvm__handle_timerfd(struct perf_kvm_stat *kvm)
{
	uint64_t c;
	int rc;

	rc = read(kvm->timerfd, &c, sizeof(uint64_t));
	if (rc < 0) {
		if (errno == EAGAIN)
			return 0;

		pr_err("Failed to read timer fd: %d\n", errno);
		return -1;
	}

	if (rc != sizeof(uint64_t)) {
		pr_err("Error reading timer fd - invalid size returned\n");
		return -1;
	}

	if (c != 1)
		pr_debug("Missed timer beats: %" PRIu64 "\n", c-1);

	/* update display */
	sort_result(kvm);
	print_result(kvm);

	/* reset counts */
	clear_events_cache_stats(kvm->kvm_events_cache);
	kvm->total_count = 0;
	kvm->total_time = 0;
	kvm->lost_events = 0;

	return 0;
}

static int fd_set_nonblock(int fd)
{
	long arg = 0;

	arg = fcntl(fd, F_GETFL);
	if (arg < 0) {
		pr_err("Failed to get current flags for fd %d\n", fd);
		return -1;
	}

	if (fcntl(fd, F_SETFL, arg | O_NONBLOCK) < 0) {
		pr_err("Failed to set non-block option on fd %d\n", fd);
		return -1;
	}

	return 0;
}

static
int perf_kvm__handle_stdin(struct termios *tc_now, struct termios *tc_save)
{
	int c;

	tcsetattr(0, TCSANOW, tc_now);
	c = getc(stdin);
	tcsetattr(0, TCSAFLUSH, tc_save);

	if (c == 'q')
		return 1;

	return 0;
}

static int kvm_events_live_report(struct perf_kvm_stat *kvm)
{
	struct pollfd *pollfds = NULL;
	int nr_fds, nr_stdin, ret, err = -EINVAL;
	struct termios tc, save;

	/* live flag must be set first */
	kvm->live = true;

	ret = cpu_isa_config(kvm);
	if (ret < 0)
		return ret;

	if (!verify_vcpu(kvm->trace_vcpu) ||
	    !select_key(kvm) ||
	    !register_kvm_events_ops(kvm)) {
		goto out;
	}

	init_kvm_event_record(kvm);

	tcgetattr(0, &save);
	tc = save;
	tc.c_lflag &= ~(ICANON | ECHO);
	tc.c_cc[VMIN] = 0;
	tc.c_cc[VTIME] = 0;

	signal(SIGINT, sig_handler);
	signal(SIGTERM, sig_handler);

	/* copy pollfds -- need to add timerfd and stdin */
	nr_fds = kvm->evlist->nr_fds;
	pollfds = zalloc(sizeof(struct pollfd) * (nr_fds + 2));
	if (!pollfds) {
		err = -ENOMEM;
		goto out;
	}
	memcpy(pollfds, kvm->evlist->pollfd,
		sizeof(struct pollfd) * kvm->evlist->nr_fds);

	/* add timer fd */
	if (perf_kvm__timerfd_create(kvm) < 0) {
		err = -1;
		goto out;
	}

	pollfds[nr_fds].fd = kvm->timerfd;
	pollfds[nr_fds].events = POLLIN;
	nr_fds++;

	pollfds[nr_fds].fd = fileno(stdin);
	pollfds[nr_fds].events = POLLIN;
	nr_stdin = nr_fds;
	nr_fds++;
	if (fd_set_nonblock(fileno(stdin)) != 0)
		goto out;

	/* everything is good - enable the events and process */
	perf_evlist__enable(kvm->evlist);

	while (!done) {
		int rc;

		rc = perf_kvm__mmap_read(kvm);
		if (rc < 0)
			break;

		err = perf_kvm__handle_timerfd(kvm);
		if (err)
			goto out;

		if (pollfds[nr_stdin].revents & POLLIN)
			done = perf_kvm__handle_stdin(&tc, &save);

		if (!rc && !done)
			err = poll(pollfds, nr_fds, 100);
	}

	perf_evlist__disable(kvm->evlist);

	if (err == 0) {
		sort_result(kvm);
		print_result(kvm);
	}

out:
	if (kvm->timerfd >= 0)
		close(kvm->timerfd);

	if (pollfds)
		free(pollfds);

	return err;
}

static int kvm_live_open_events(struct perf_kvm_stat *kvm)
{
	int err, rc = -1;
	struct perf_evsel *pos;
	struct perf_evlist *evlist = kvm->evlist;

	perf_evlist__config(evlist, &kvm->opts);

	/*
	 * Note: exclude_{guest,host} do not apply here.
	 *       This command processes KVM tracepoints from host only
	 */
	list_for_each_entry(pos, &evlist->entries, node) {
		struct perf_event_attr *attr = &pos->attr;

		/* make sure these *are* set */
1183 1184 1185 1186
		perf_evsel__set_sample_bit(pos, TID);
		perf_evsel__set_sample_bit(pos, TIME);
		perf_evsel__set_sample_bit(pos, CPU);
		perf_evsel__set_sample_bit(pos, RAW);
D
David Ahern 已提交
1187
		/* make sure these are *not*; want as small a sample as possible */
1188 1189 1190 1191 1192
		perf_evsel__reset_sample_bit(pos, PERIOD);
		perf_evsel__reset_sample_bit(pos, IP);
		perf_evsel__reset_sample_bit(pos, CALLCHAIN);
		perf_evsel__reset_sample_bit(pos, ADDR);
		perf_evsel__reset_sample_bit(pos, READ);
D
David Ahern 已提交
1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209
		attr->mmap = 0;
		attr->comm = 0;
		attr->task = 0;

		attr->sample_period = 1;

		attr->watermark = 0;
		attr->wakeup_events = 1000;

		/* will enable all once we are ready */
		attr->disabled = 1;
	}

	err = perf_evlist__open(evlist);
	if (err < 0) {
		printf("Couldn't create the events: %s\n", strerror(errno));
		goto out;
X
Xiao Guangrong 已提交
1210 1211
	}

D
David Ahern 已提交
1212 1213 1214 1215 1216 1217 1218 1219 1220 1221
	if (perf_evlist__mmap(evlist, kvm->opts.mmap_pages, false) < 0) {
		ui__error("Failed to mmap the events: %s\n", strerror(errno));
		perf_evlist__close(evlist);
		goto out;
	}

	rc = 0;

out:
	return rc;
X
Xiao Guangrong 已提交
1222
}
1223
#endif
X
Xiao Guangrong 已提交
1224

1225
static int read_events(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
1226 1227 1228
{
	int ret;

1229 1230 1231 1232 1233
	struct perf_tool eops = {
		.sample			= process_sample_event,
		.comm			= perf_event__process_comm,
		.ordered_samples	= true,
	};
1234
	struct perf_data_file file = {
1235
		.path = kvm->file_name,
1236 1237
		.mode = PERF_DATA_MODE_READ,
	};
1238 1239

	kvm->tool = eops;
1240
	kvm->session = perf_session__new(&file, false, &kvm->tool);
1241
	if (!kvm->session) {
X
Xiao Guangrong 已提交
1242 1243 1244 1245
		pr_err("Initializing perf session failed\n");
		return -EINVAL;
	}

1246
	if (!perf_session__has_traces(kvm->session, "kvm record"))
X
Xiao Guangrong 已提交
1247 1248 1249 1250 1251 1252
		return -EINVAL;

	/*
	 * Do not use 'isa' recorded in kvm_exit tracepoint since it is not
	 * traced in the old kernel.
	 */
D
David Ahern 已提交
1253
	ret = cpu_isa_config(kvm);
X
Xiao Guangrong 已提交
1254 1255 1256
	if (ret < 0)
		return ret;

1257
	return perf_session__process_events(kvm->session, &kvm->tool);
X
Xiao Guangrong 已提交
1258 1259
}

1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272
static int parse_target_str(struct perf_kvm_stat *kvm)
{
	if (kvm->pid_str) {
		kvm->pid_list = intlist__new(kvm->pid_str);
		if (kvm->pid_list == NULL) {
			pr_err("Error parsing process id string\n");
			return -EINVAL;
		}
	}

	return 0;
}

1273
static int kvm_events_report_vcpu(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
1274 1275
{
	int ret = -EINVAL;
1276
	int vcpu = kvm->trace_vcpu;
X
Xiao Guangrong 已提交
1277

1278 1279 1280
	if (parse_target_str(kvm) != 0)
		goto exit;

X
Xiao Guangrong 已提交
1281 1282 1283
	if (!verify_vcpu(vcpu))
		goto exit;

1284
	if (!select_key(kvm))
X
Xiao Guangrong 已提交
1285 1286
		goto exit;

1287
	if (!register_kvm_events_ops(kvm))
X
Xiao Guangrong 已提交
1288 1289
		goto exit;

1290
	init_kvm_event_record(kvm);
X
Xiao Guangrong 已提交
1291 1292
	setup_pager();

1293
	ret = read_events(kvm);
X
Xiao Guangrong 已提交
1294 1295 1296
	if (ret)
		goto exit;

1297 1298 1299
	sort_result(kvm);
	print_result(kvm);

X
Xiao Guangrong 已提交
1300 1301 1302 1303
exit:
	return ret;
}

1304 1305 1306 1307 1308
static const char * const kvm_events_tp[] = {
	"kvm:kvm_entry",
	"kvm:kvm_exit",
	"kvm:kvm_mmio",
	"kvm:kvm_pio",
X
Xiao Guangrong 已提交
1309 1310 1311 1312 1313 1314 1315 1316 1317 1318
};

#define STRDUP_FAIL_EXIT(s)		\
	({	char *_p;		\
	_p = strdup(s);		\
		if (!_p)		\
			return -ENOMEM;	\
		_p;			\
	})

1319 1320
static int
kvm_events_record(struct perf_kvm_stat *kvm, int argc, const char **argv)
X
Xiao Guangrong 已提交
1321 1322 1323
{
	unsigned int rec_argc, i, j;
	const char **rec_argv;
1324 1325 1326 1327 1328 1329
	const char * const record_args[] = {
		"record",
		"-R",
		"-m", "1024",
		"-c", "1",
	};
X
Xiao Guangrong 已提交
1330

1331 1332
	rec_argc = ARRAY_SIZE(record_args) + argc + 2 +
		   2 * ARRAY_SIZE(kvm_events_tp);
X
Xiao Guangrong 已提交
1333 1334 1335 1336 1337 1338 1339 1340
	rec_argv = calloc(rec_argc + 1, sizeof(char *));

	if (rec_argv == NULL)
		return -ENOMEM;

	for (i = 0; i < ARRAY_SIZE(record_args); i++)
		rec_argv[i] = STRDUP_FAIL_EXIT(record_args[i]);

1341 1342 1343 1344 1345
	for (j = 0; j < ARRAY_SIZE(kvm_events_tp); j++) {
		rec_argv[i++] = "-e";
		rec_argv[i++] = STRDUP_FAIL_EXIT(kvm_events_tp[j]);
	}

X
Xiao Guangrong 已提交
1346
	rec_argv[i++] = STRDUP_FAIL_EXIT("-o");
1347
	rec_argv[i++] = STRDUP_FAIL_EXIT(kvm->file_name);
X
Xiao Guangrong 已提交
1348 1349 1350 1351 1352 1353 1354

	for (j = 1; j < (unsigned int)argc; j++, i++)
		rec_argv[i] = argv[j];

	return cmd_record(i, rec_argv, NULL);
}

1355 1356
static int
kvm_events_report(struct perf_kvm_stat *kvm, int argc, const char **argv)
1357 1358 1359 1360 1361 1362 1363 1364 1365
{
	const struct option kvm_events_report_options[] = {
		OPT_STRING(0, "event", &kvm->report_event, "report event",
			    "event for reporting: vmexit, mmio, ioport"),
		OPT_INTEGER(0, "vcpu", &kvm->trace_vcpu,
			    "vcpu id to report"),
		OPT_STRING('k', "key", &kvm->sort_key, "sort-key",
			    "key for sorting: sample(sort by samples number)"
			    " time (sort by avg time)"),
1366 1367
		OPT_STRING('p', "pid", &kvm->pid_str, "pid",
			   "analyze events only for given process id(s)"),
1368 1369
		OPT_END()
	};
X
Xiao Guangrong 已提交
1370

1371 1372 1373 1374
	const char * const kvm_events_report_usage[] = {
		"perf kvm stat report [<options>]",
		NULL
	};
X
Xiao Guangrong 已提交
1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386

	symbol__init();

	if (argc) {
		argc = parse_options(argc, argv,
				     kvm_events_report_options,
				     kvm_events_report_usage, 0);
		if (argc)
			usage_with_options(kvm_events_report_usage,
					   kvm_events_report_options);
	}

1387
	return kvm_events_report_vcpu(kvm);
X
Xiao Guangrong 已提交
1388 1389
}

1390
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448
static struct perf_evlist *kvm_live_event_list(void)
{
	struct perf_evlist *evlist;
	char *tp, *name, *sys;
	unsigned int j;
	int err = -1;

	evlist = perf_evlist__new();
	if (evlist == NULL)
		return NULL;

	for (j = 0; j < ARRAY_SIZE(kvm_events_tp); j++) {

		tp = strdup(kvm_events_tp[j]);
		if (tp == NULL)
			goto out;

		/* split tracepoint into subsystem and name */
		sys = tp;
		name = strchr(tp, ':');
		if (name == NULL) {
			pr_err("Error parsing %s tracepoint: subsystem delimiter not found\n",
				kvm_events_tp[j]);
			free(tp);
			goto out;
		}
		*name = '\0';
		name++;

		if (perf_evlist__add_newtp(evlist, sys, name, NULL)) {
			pr_err("Failed to add %s tracepoint to the list\n", kvm_events_tp[j]);
			free(tp);
			goto out;
		}

		free(tp);
	}

	err = 0;

out:
	if (err) {
		perf_evlist__delete(evlist);
		evlist = NULL;
	}

	return evlist;
}

static int kvm_events_live(struct perf_kvm_stat *kvm,
			   int argc, const char **argv)
{
	char errbuf[BUFSIZ];
	int err;

	const struct option live_options[] = {
		OPT_STRING('p', "pid", &kvm->opts.target.pid, "pid",
			"record events on existing process id"),
1449 1450 1451
		OPT_CALLBACK('m', "mmap-pages", &kvm->opts.mmap_pages, "pages",
			"number of mmap data pages",
			perf_evlist__parse_mmap_pages),
D
David Ahern 已提交
1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464
		OPT_INCR('v', "verbose", &verbose,
			"be more verbose (show counter open errors, etc)"),
		OPT_BOOLEAN('a', "all-cpus", &kvm->opts.target.system_wide,
			"system-wide collection from all CPUs"),
		OPT_UINTEGER('d', "display", &kvm->display_time,
			"time in seconds between display updates"),
		OPT_STRING(0, "event", &kvm->report_event, "report event",
			"event for reporting: vmexit, mmio, ioport"),
		OPT_INTEGER(0, "vcpu", &kvm->trace_vcpu,
			"vcpu id to report"),
		OPT_STRING('k', "key", &kvm->sort_key, "sort-key",
			"key for sorting: sample(sort by samples number)"
			" time (sort by avg time)"),
1465 1466
		OPT_U64(0, "duration", &kvm->duration,
		    "show events other than HALT that take longer than duration usecs"),
D
David Ahern 已提交
1467 1468 1469 1470 1471 1472
		OPT_END()
	};
	const char * const live_usage[] = {
		"perf kvm stat live [<options>]",
		NULL
	};
1473 1474 1475
	struct perf_data_file file = {
		.mode = PERF_DATA_MODE_WRITE,
	};
D
David Ahern 已提交
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 1503 1504 1505 1506 1507


	/* event handling */
	kvm->tool.sample = process_sample_event;
	kvm->tool.comm   = perf_event__process_comm;
	kvm->tool.exit   = perf_event__process_exit;
	kvm->tool.fork   = perf_event__process_fork;
	kvm->tool.lost   = process_lost_event;
	kvm->tool.ordered_samples = true;
	perf_tool__fill_defaults(&kvm->tool);

	/* set defaults */
	kvm->display_time = 1;
	kvm->opts.user_interval = 1;
	kvm->opts.mmap_pages = 512;
	kvm->opts.target.uses_mmap = false;
	kvm->opts.target.uid_str = NULL;
	kvm->opts.target.uid = UINT_MAX;

	symbol__init();
	disable_buildid_cache();

	use_browser = 0;
	setup_browser(false);

	if (argc) {
		argc = parse_options(argc, argv, live_options,
				     live_usage, 0);
		if (argc)
			usage_with_options(live_usage, live_options);
	}

1508 1509
	kvm->duration *= NSEC_PER_USEC;   /* convert usec to nsec */

D
David Ahern 已提交
1510 1511 1512
	/*
	 * target related setups
	 */
1513
	err = target__validate(&kvm->opts.target);
D
David Ahern 已提交
1514
	if (err) {
1515
		target__strerror(&kvm->opts.target, err, errbuf, BUFSIZ);
D
David Ahern 已提交
1516 1517 1518
		ui__warning("%s", errbuf);
	}

1519
	if (target__none(&kvm->opts.target))
D
David Ahern 已提交
1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539
		kvm->opts.target.system_wide = true;


	/*
	 * generate the event list
	 */
	kvm->evlist = kvm_live_event_list();
	if (kvm->evlist == NULL) {
		err = -1;
		goto out;
	}

	symbol_conf.nr_events = kvm->evlist->nr_entries;

	if (perf_evlist__create_maps(kvm->evlist, &kvm->opts.target) < 0)
		usage_with_options(live_usage, live_options);

	/*
	 * perf session
	 */
1540
	kvm->session = perf_session__new(&file, false, &kvm->tool);
D
David Ahern 已提交
1541 1542 1543 1544 1545 1546
	if (kvm->session == NULL) {
		err = -ENOMEM;
		goto out;
	}
	kvm->session->evlist = kvm->evlist;
	perf_session__set_id_hdr_size(kvm->session);
1547 1548
	machine__synthesize_threads(&kvm->session->machines.host, &kvm->opts.target,
				    kvm->evlist->threads, false);
D
David Ahern 已提交
1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567
	err = kvm_live_open_events(kvm);
	if (err)
		goto out;

	err = kvm_events_live_report(kvm);

out:
	exit_browser(0);

	if (kvm->session)
		perf_session__delete(kvm->session);
	kvm->session = NULL;
	if (kvm->evlist) {
		perf_evlist__delete_maps(kvm->evlist);
		perf_evlist__delete(kvm->evlist);
	}

	return err;
}
1568
#endif
D
David Ahern 已提交
1569

X
Xiao Guangrong 已提交
1570 1571 1572 1573 1574 1575 1576
static void print_kvm_stat_usage(void)
{
	printf("Usage: perf kvm stat <command>\n\n");

	printf("# Available commands:\n");
	printf("\trecord: record kvm events\n");
	printf("\treport: report statistical data of kvm events\n");
D
David Ahern 已提交
1577
	printf("\tlive:   live reporting of statistical data of kvm events\n");
X
Xiao Guangrong 已提交
1578 1579 1580 1581

	printf("\nOtherwise, it is the alias of 'perf stat':\n");
}

1582
static int kvm_cmd_stat(const char *file_name, int argc, const char **argv)
X
Xiao Guangrong 已提交
1583
{
1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595
	struct perf_kvm_stat kvm = {
		.file_name = file_name,

		.trace_vcpu	= -1,
		.report_event	= "vmexit",
		.sort_key	= "sample",

		.exit_reasons = svm_exit_reasons,
		.exit_reasons_size = ARRAY_SIZE(svm_exit_reasons),
		.exit_reasons_isa = "SVM",
	};

X
Xiao Guangrong 已提交
1596 1597 1598 1599 1600 1601
	if (argc == 1) {
		print_kvm_stat_usage();
		goto perf_stat;
	}

	if (!strncmp(argv[1], "rec", 3))
1602
		return kvm_events_record(&kvm, argc - 1, argv + 1);
X
Xiao Guangrong 已提交
1603 1604

	if (!strncmp(argv[1], "rep", 3))
1605
		return kvm_events_report(&kvm, argc - 1 , argv + 1);
X
Xiao Guangrong 已提交
1606

1607
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
1608 1609
	if (!strncmp(argv[1], "live", 4))
		return kvm_events_live(&kvm, argc - 1 , argv + 1);
1610
#endif
D
David Ahern 已提交
1611

X
Xiao Guangrong 已提交
1612 1613 1614
perf_stat:
	return cmd_stat(argc, argv, NULL);
}
1615
#endif
X
Xiao Guangrong 已提交
1616

1617
static int __cmd_record(const char *file_name, int argc, const char **argv)
1618 1619 1620 1621 1622 1623 1624 1625
{
	int rec_argc, i = 0, j;
	const char **rec_argv;

	rec_argc = argc + 2;
	rec_argv = calloc(rec_argc + 1, sizeof(char *));
	rec_argv[i++] = strdup("record");
	rec_argv[i++] = strdup("-o");
1626
	rec_argv[i++] = strdup(file_name);
1627 1628 1629 1630 1631 1632 1633 1634
	for (j = 1; j < argc; j++, i++)
		rec_argv[i] = argv[j];

	BUG_ON(i != rec_argc);

	return cmd_record(i, rec_argv, NULL);
}

1635
static int __cmd_report(const char *file_name, int argc, const char **argv)
1636 1637 1638 1639 1640 1641 1642 1643
{
	int rec_argc, i = 0, j;
	const char **rec_argv;

	rec_argc = argc + 2;
	rec_argv = calloc(rec_argc + 1, sizeof(char *));
	rec_argv[i++] = strdup("report");
	rec_argv[i++] = strdup("-i");
1644
	rec_argv[i++] = strdup(file_name);
1645 1646 1647 1648 1649 1650 1651 1652
	for (j = 1; j < argc; j++, i++)
		rec_argv[i] = argv[j];

	BUG_ON(i != rec_argc);

	return cmd_report(i, rec_argv, NULL);
}

1653 1654
static int
__cmd_buildid_list(const char *file_name, int argc, const char **argv)
1655 1656 1657 1658 1659 1660 1661 1662
{
	int rec_argc, i = 0, j;
	const char **rec_argv;

	rec_argc = argc + 2;
	rec_argv = calloc(rec_argc + 1, sizeof(char *));
	rec_argv[i++] = strdup("buildid-list");
	rec_argv[i++] = strdup("-i");
1663
	rec_argv[i++] = strdup(file_name);
1664 1665 1666 1667 1668 1669 1670 1671
	for (j = 1; j < argc; j++, i++)
		rec_argv[i] = argv[j];

	BUG_ON(i != rec_argc);

	return cmd_buildid_list(i, rec_argv, NULL);
}

1672
int cmd_kvm(int argc, const char **argv, const char *prefix __maybe_unused)
1673
{
1674
	const char *file_name = NULL;
1675
	const struct option kvm_options[] = {
1676
		OPT_STRING('i', "input", &file_name, "file",
1677
			   "Input file name"),
1678
		OPT_STRING('o', "output", &file_name, "file",
1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692
			   "Output file name"),
		OPT_BOOLEAN(0, "guest", &perf_guest,
			    "Collect guest os data"),
		OPT_BOOLEAN(0, "host", &perf_host,
			    "Collect host os data"),
		OPT_STRING(0, "guestmount", &symbol_conf.guestmount, "directory",
			   "guest mount directory under which every guest os"
			   " instance has a subdir"),
		OPT_STRING(0, "guestvmlinux", &symbol_conf.default_guest_vmlinux_name,
			   "file", "file saving guest os vmlinux"),
		OPT_STRING(0, "guestkallsyms", &symbol_conf.default_guest_kallsyms,
			   "file", "file saving guest os /proc/kallsyms"),
		OPT_STRING(0, "guestmodules", &symbol_conf.default_guest_modules,
			   "file", "file saving guest os /proc/modules"),
1693 1694
		OPT_INCR('v', "verbose", &verbose,
			    "be more verbose (show counter open errors, etc)"),
1695 1696 1697 1698 1699 1700 1701 1702 1703
		OPT_END()
	};


	const char * const kvm_usage[] = {
		"perf kvm [<options>] {top|record|report|diff|buildid-list|stat}",
		NULL
	};

1704 1705
	perf_host  = 0;
	perf_guest = 1;
1706 1707 1708 1709 1710 1711 1712 1713 1714

	argc = parse_options(argc, argv, kvm_options, kvm_usage,
			PARSE_OPT_STOP_AT_NON_OPTION);
	if (!argc)
		usage_with_options(kvm_usage, kvm_options);

	if (!perf_host)
		perf_guest = 1;

1715
	if (!file_name) {
1716
		file_name = get_filename_for_perf_kvm();
1717

1718
		if (!file_name) {
1719 1720 1721
			pr_err("Failed to allocate memory for filename\n");
			return -ENOMEM;
		}
1722 1723 1724
	}

	if (!strncmp(argv[0], "rec", 3))
1725
		return __cmd_record(file_name, argc, argv);
1726
	else if (!strncmp(argv[0], "rep", 3))
1727
		return __cmd_report(file_name, argc, argv);
1728 1729 1730 1731 1732
	else if (!strncmp(argv[0], "diff", 4))
		return cmd_diff(argc, argv, NULL);
	else if (!strncmp(argv[0], "top", 3))
		return cmd_top(argc, argv, NULL);
	else if (!strncmp(argv[0], "buildid-list", 12))
1733
		return __cmd_buildid_list(file_name, argc, argv);
1734
#if defined(__i386__) || defined(__x86_64__)
X
Xiao Guangrong 已提交
1735
	else if (!strncmp(argv[0], "stat", 4))
1736
		return kvm_cmd_stat(file_name, argc, argv);
1737
#endif
1738 1739 1740 1741 1742
	else
		usage_with_options(kvm_usage, kvm_options);

	return 0;
}