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 <api/fs/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;
92
	struct record_opts  opts;
D
David Ahern 已提交
93
	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
		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;
407
	init_stats(&event->total.stats);
X
Xiao Guangrong 已提交
408 409 410
	return event;
}

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

	BUG_ON(key->key == INVALID_KEY);

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

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

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

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

	if (key->key != INVALID_KEY)
440
		event = find_create_kvm_event(kvm, key);
X
Xiao Guangrong 已提交
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 467

	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)
{
468 469 470 471
	if (vcpu_id == -1) {
		kvm_update_event_stats(&event->total, time_diff);
		return true;
	}
X
Xiao Guangrong 已提交
472 473 474 475 476 477 478 479

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

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

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

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

	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)
511
		event = find_create_kvm_event(kvm, key);
X
Xiao Guangrong 已提交
512 513 514 515 516 517 518

	if (!event)
		return false;

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

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

525 526 527 528 529 530 531 532 533 534 535 536 537
	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);
		}
	}

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

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

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

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

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

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

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

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

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

583
	if (kvm->events_ops->is_end_event(evsel, sample, &key))
584
		return handle_end_event(kvm, vcpu_record, &key, sample);
X
Xiao Guangrong 已提交
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 612

	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);
613 614
GET_EVENT_KEY(max, stats.max);
GET_EVENT_KEY(min, stats.min);
X
Xiao Guangrong 已提交
615 616 617 618 619 620 621 622 623 624

#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 }
};

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

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

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

640 641
static void insert_to_result(struct rb_root *result, struct kvm_event *event,
			     key_cmp_fun bigger, int vcpu)
X
Xiao Guangrong 已提交
642
{
643
	struct rb_node **rb = &result->rb_node;
X
Xiao Guangrong 已提交
644 645 646 647 648 649 650 651 652 653 654 655 656 657
	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);
658
	rb_insert_color(&event->rb, result);
X
Xiao Guangrong 已提交
659 660
}

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

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

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

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

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

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

	if (!node)
		return NULL;

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

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

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

D
David Ahern 已提交
710 711 712 713 714 715 716 717 718
	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 已提交
719 720 721 722 723 724
	if (vcpu == -1)
		pr_info("all VCPUs:\n\n");
	else
		pr_info("VCPU %d:\n\n", vcpu);
}

D
David Ahern 已提交
725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740
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;
}

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

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

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

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

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

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

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

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

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

791
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
792 793 794 795 796 797 798 799 800
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 已提交
801
}
802
#endif
X
Xiao Guangrong 已提交
803

804 805 806 807 808 809 810 811 812
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;
}

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

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

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

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

	return 0;
}

D
David Ahern 已提交
839
static int cpu_isa_config(struct perf_kvm_stat *kvm)
X
Xiao Guangrong 已提交
840
{
D
David Ahern 已提交
841 842 843 844 845 846 847 848 849 850 851 852
	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 已提交
853 854 855 856 857 858 859

	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 已提交
860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881
		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;
}

882
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899
/* 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) {
900
			perf_evlist__mmap_consume(kvm->evlist, idx);
D
David Ahern 已提交
901 902 903 904 905
			pr_err("Failed to parse sample\n");
			return -1;
		}

		err = perf_session_queue_event(kvm->session, event, &sample, 0);
906 907 908 909 910 911
		/*
		 * 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 已提交
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
		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);

1162
	free(pollfds);
D
David Ahern 已提交
1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177
	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
	 */
1178
	evlist__for_each(evlist, pos) {
D
David Ahern 已提交
1179 1180 1181
		struct perf_event_attr *attr = &pos->attr;

		/* make sure these *are* set */
1182 1183 1184 1185
		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 已提交
1186
		/* make sure these are *not*; want as small a sample as possible */
1187 1188 1189 1190 1191
		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 已提交
1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208
		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 已提交
1209 1210
	}

D
David Ahern 已提交
1211 1212 1213 1214 1215 1216 1217 1218 1219 1220
	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 已提交
1221
}
1222
#endif
X
Xiao Guangrong 已提交
1223

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

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

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

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

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

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

1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271
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;
}

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

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

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

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

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

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

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

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

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

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

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

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

1330 1331
	rec_argc = ARRAY_SIZE(record_args) + argc + 2 +
		   2 * ARRAY_SIZE(kvm_events_tp);
X
Xiao Guangrong 已提交
1332 1333 1334 1335 1336 1337 1338 1339
	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]);

1340 1341 1342 1343 1344
	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 已提交
1345
	rec_argv[i++] = STRDUP_FAIL_EXIT("-o");
1346
	rec_argv[i++] = STRDUP_FAIL_EXIT(kvm->file_name);
X
Xiao Guangrong 已提交
1347 1348 1349 1350 1351 1352 1353

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

	return cmd_record(i, rec_argv, NULL);
}

1354 1355
static int
kvm_events_report(struct perf_kvm_stat *kvm, int argc, const char **argv)
1356 1357 1358 1359 1360 1361 1362 1363 1364
{
	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)"),
1365 1366
		OPT_STRING('p', "pid", &kvm->pid_str, "pid",
			   "analyze events only for given process id(s)"),
1367 1368
		OPT_END()
	};
X
Xiao Guangrong 已提交
1369

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

	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);
	}

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

1389
#ifdef HAVE_TIMERFD_SUPPORT
D
David Ahern 已提交
1390 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
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"),
1448 1449 1450
		OPT_CALLBACK('m', "mmap-pages", &kvm->opts.mmap_pages, "pages",
			"number of mmap data pages",
			perf_evlist__parse_mmap_pages),
D
David Ahern 已提交
1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463
		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)"),
1464 1465
		OPT_U64(0, "duration", &kvm->duration,
		    "show events other than HALT that take longer than duration usecs"),
D
David Ahern 已提交
1466 1467 1468 1469 1470 1471
		OPT_END()
	};
	const char * const live_usage[] = {
		"perf kvm stat live [<options>]",
		NULL
	};
1472 1473 1474
	struct perf_data_file file = {
		.mode = PERF_DATA_MODE_WRITE,
	};
D
David Ahern 已提交
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 1503 1504 1505 1506


	/* 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);
	}

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

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

1518
	if (target__none(&kvm->opts.target))
D
David Ahern 已提交
1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538
		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
	 */
1539
	kvm->session = perf_session__new(&file, false, &kvm->tool);
D
David Ahern 已提交
1540 1541 1542 1543 1544 1545
	if (kvm->session == NULL) {
		err = -ENOMEM;
		goto out;
	}
	kvm->session->evlist = kvm->evlist;
	perf_session__set_id_hdr_size(kvm->session);
1546 1547
	machine__synthesize_threads(&kvm->session->machines.host, &kvm->opts.target,
				    kvm->evlist->threads, false);
D
David Ahern 已提交
1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559
	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;
1560
	if (kvm->evlist)
D
David Ahern 已提交
1561 1562 1563 1564
		perf_evlist__delete(kvm->evlist);

	return err;
}
1565
#endif
D
David Ahern 已提交
1566

X
Xiao Guangrong 已提交
1567 1568 1569 1570 1571 1572 1573
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 已提交
1574
	printf("\tlive:   live reporting of statistical data of kvm events\n");
X
Xiao Guangrong 已提交
1575 1576 1577 1578

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

1579
static int kvm_cmd_stat(const char *file_name, int argc, const char **argv)
X
Xiao Guangrong 已提交
1580
{
1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592
	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 已提交
1593 1594 1595 1596 1597 1598
	if (argc == 1) {
		print_kvm_stat_usage();
		goto perf_stat;
	}

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

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

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

X
Xiao Guangrong 已提交
1609 1610 1611
perf_stat:
	return cmd_stat(argc, argv, NULL);
}
1612
#endif
X
Xiao Guangrong 已提交
1613

1614
static int __cmd_record(const char *file_name, int argc, const char **argv)
1615 1616 1617 1618 1619 1620 1621 1622
{
	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");
1623
	rec_argv[i++] = strdup(file_name);
1624 1625 1626 1627 1628 1629 1630 1631
	for (j = 1; j < argc; j++, i++)
		rec_argv[i] = argv[j];

	BUG_ON(i != rec_argc);

	return cmd_record(i, rec_argv, NULL);
}

1632
static int __cmd_report(const char *file_name, int argc, const char **argv)
1633 1634 1635 1636 1637 1638 1639 1640
{
	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");
1641
	rec_argv[i++] = strdup(file_name);
1642 1643 1644 1645 1646 1647 1648 1649
	for (j = 1; j < argc; j++, i++)
		rec_argv[i] = argv[j];

	BUG_ON(i != rec_argc);

	return cmd_report(i, rec_argv, NULL);
}

1650 1651
static int
__cmd_buildid_list(const char *file_name, int argc, const char **argv)
1652 1653 1654 1655 1656 1657 1658 1659
{
	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");
1660
	rec_argv[i++] = strdup(file_name);
1661 1662 1663 1664 1665 1666 1667 1668
	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);
}

1669
int cmd_kvm(int argc, const char **argv, const char *prefix __maybe_unused)
1670
{
1671
	const char *file_name = NULL;
1672
	const struct option kvm_options[] = {
1673
		OPT_STRING('i', "input", &file_name, "file",
1674
			   "Input file name"),
1675
		OPT_STRING('o', "output", &file_name, "file",
1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689
			   "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"),
1690 1691
		OPT_INCR('v', "verbose", &verbose,
			    "be more verbose (show counter open errors, etc)"),
1692 1693 1694
		OPT_END()
	};

1695 1696 1697
	const char *const kvm_subcommands[] = { "top", "record", "report", "diff",
						"buildid-list", "stat", NULL };
	const char *kvm_usage[] = { NULL, NULL };
1698

1699 1700
	perf_host  = 0;
	perf_guest = 1;
1701

1702 1703
	argc = parse_options_subcommand(argc, argv, kvm_options, kvm_subcommands, kvm_usage,
					PARSE_OPT_STOP_AT_NON_OPTION);
1704 1705 1706 1707 1708 1709
	if (!argc)
		usage_with_options(kvm_usage, kvm_options);

	if (!perf_host)
		perf_guest = 1;

1710
	if (!file_name) {
1711
		file_name = get_filename_for_perf_kvm();
1712

1713
		if (!file_name) {
1714 1715 1716
			pr_err("Failed to allocate memory for filename\n");
			return -ENOMEM;
		}
1717 1718 1719
	}

	if (!strncmp(argv[0], "rec", 3))
1720
		return __cmd_record(file_name, argc, argv);
1721
	else if (!strncmp(argv[0], "rep", 3))
1722
		return __cmd_report(file_name, argc, argv);
1723 1724 1725 1726 1727
	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))
1728
		return __cmd_buildid_list(file_name, argc, argv);
1729
#if defined(__i386__) || defined(__x86_64__)
X
Xiao Guangrong 已提交
1730
	else if (!strncmp(argv[0], "stat", 4))
1731
		return kvm_cmd_stat(file_name, argc, argv);
1732
#endif
1733 1734 1735 1736 1737
	else
		usage_with_options(kvm_usage, kvm_options);

	return 0;
}