1 /* 2 * db-export.c: Support for exporting data suitable for import to a database 3 * Copyright (c) 2014, Intel Corporation. 4 * 5 * This program is free software; you can redistribute it and/or modify it 6 * under the terms and conditions of the GNU General Public License, 7 * version 2, as published by the Free Software Foundation. 8 * 9 * This program is distributed in the hope it will be useful, but WITHOUT 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 12 * more details. 13 * 14 */ 15 16 #include <errno.h> 17 18 #include "evsel.h" 19 #include "machine.h" 20 #include "thread.h" 21 #include "comm.h" 22 #include "symbol.h" 23 #include "event.h" 24 #include "util.h" 25 #include "thread-stack.h" 26 #include "callchain.h" 27 #include "call-path.h" 28 #include "db-export.h" 29 30 struct deferred_export { 31 struct list_head node; 32 struct comm *comm; 33 }; 34 35 static int db_export__deferred(struct db_export *dbe) 36 { 37 struct deferred_export *de; 38 int err; 39 40 while (!list_empty(&dbe->deferred)) { 41 de = list_entry(dbe->deferred.next, struct deferred_export, 42 node); 43 err = dbe->export_comm(dbe, de->comm); 44 list_del(&de->node); 45 free(de); 46 if (err) 47 return err; 48 } 49 50 return 0; 51 } 52 53 static void db_export__free_deferred(struct db_export *dbe) 54 { 55 struct deferred_export *de; 56 57 while (!list_empty(&dbe->deferred)) { 58 de = list_entry(dbe->deferred.next, struct deferred_export, 59 node); 60 list_del(&de->node); 61 free(de); 62 } 63 } 64 65 static int db_export__defer_comm(struct db_export *dbe, struct comm *comm) 66 { 67 struct deferred_export *de; 68 69 de = zalloc(sizeof(struct deferred_export)); 70 if (!de) 71 return -ENOMEM; 72 73 de->comm = comm; 74 list_add_tail(&de->node, &dbe->deferred); 75 76 return 0; 77 } 78 79 int db_export__init(struct db_export *dbe) 80 { 81 memset(dbe, 0, sizeof(struct db_export)); 82 INIT_LIST_HEAD(&dbe->deferred); 83 return 0; 84 } 85 86 int db_export__flush(struct db_export *dbe) 87 { 88 return db_export__deferred(dbe); 89 } 90 91 void db_export__exit(struct db_export *dbe) 92 { 93 db_export__free_deferred(dbe); 94 call_return_processor__free(dbe->crp); 95 dbe->crp = NULL; 96 } 97 98 int db_export__evsel(struct db_export *dbe, struct perf_evsel *evsel) 99 { 100 if (evsel->db_id) 101 return 0; 102 103 evsel->db_id = ++dbe->evsel_last_db_id; 104 105 if (dbe->export_evsel) 106 return dbe->export_evsel(dbe, evsel); 107 108 return 0; 109 } 110 111 int db_export__machine(struct db_export *dbe, struct machine *machine) 112 { 113 if (machine->db_id) 114 return 0; 115 116 machine->db_id = ++dbe->machine_last_db_id; 117 118 if (dbe->export_machine) 119 return dbe->export_machine(dbe, machine); 120 121 return 0; 122 } 123 124 int db_export__thread(struct db_export *dbe, struct thread *thread, 125 struct machine *machine, struct comm *comm) 126 { 127 struct thread *main_thread; 128 u64 main_thread_db_id = 0; 129 int err; 130 131 if (thread->db_id) 132 return 0; 133 134 thread->db_id = ++dbe->thread_last_db_id; 135 136 if (thread->pid_ != -1) { 137 if (thread->pid_ == thread->tid) { 138 main_thread = thread; 139 } else { 140 main_thread = machine__findnew_thread(machine, 141 thread->pid_, 142 thread->pid_); 143 if (!main_thread) 144 return -ENOMEM; 145 err = db_export__thread(dbe, main_thread, machine, 146 comm); 147 if (err) 148 goto out_put; 149 if (comm) { 150 err = db_export__comm_thread(dbe, comm, thread); 151 if (err) 152 goto out_put; 153 } 154 } 155 main_thread_db_id = main_thread->db_id; 156 if (main_thread != thread) 157 thread__put(main_thread); 158 } 159 160 if (dbe->export_thread) 161 return dbe->export_thread(dbe, thread, main_thread_db_id, 162 machine); 163 164 return 0; 165 166 out_put: 167 thread__put(main_thread); 168 return err; 169 } 170 171 int db_export__comm(struct db_export *dbe, struct comm *comm, 172 struct thread *main_thread) 173 { 174 int err; 175 176 if (comm->db_id) 177 return 0; 178 179 comm->db_id = ++dbe->comm_last_db_id; 180 181 if (dbe->export_comm) { 182 if (main_thread->comm_set) 183 err = dbe->export_comm(dbe, comm); 184 else 185 err = db_export__defer_comm(dbe, comm); 186 if (err) 187 return err; 188 } 189 190 return db_export__comm_thread(dbe, comm, main_thread); 191 } 192 193 int db_export__comm_thread(struct db_export *dbe, struct comm *comm, 194 struct thread *thread) 195 { 196 u64 db_id; 197 198 db_id = ++dbe->comm_thread_last_db_id; 199 200 if (dbe->export_comm_thread) 201 return dbe->export_comm_thread(dbe, db_id, comm, thread); 202 203 return 0; 204 } 205 206 int db_export__dso(struct db_export *dbe, struct dso *dso, 207 struct machine *machine) 208 { 209 if (dso->db_id) 210 return 0; 211 212 dso->db_id = ++dbe->dso_last_db_id; 213 214 if (dbe->export_dso) 215 return dbe->export_dso(dbe, dso, machine); 216 217 return 0; 218 } 219 220 int db_export__symbol(struct db_export *dbe, struct symbol *sym, 221 struct dso *dso) 222 { 223 u64 *sym_db_id = symbol__priv(sym); 224 225 if (*sym_db_id) 226 return 0; 227 228 *sym_db_id = ++dbe->symbol_last_db_id; 229 230 if (dbe->export_symbol) 231 return dbe->export_symbol(dbe, sym, dso); 232 233 return 0; 234 } 235 236 static struct thread *get_main_thread(struct machine *machine, struct thread *thread) 237 { 238 if (thread->pid_ == thread->tid) 239 return thread__get(thread); 240 241 if (thread->pid_ == -1) 242 return NULL; 243 244 return machine__find_thread(machine, thread->pid_, thread->pid_); 245 } 246 247 static int db_ids_from_al(struct db_export *dbe, struct addr_location *al, 248 u64 *dso_db_id, u64 *sym_db_id, u64 *offset) 249 { 250 int err; 251 252 if (al->map) { 253 struct dso *dso = al->map->dso; 254 255 err = db_export__dso(dbe, dso, al->machine); 256 if (err) 257 return err; 258 *dso_db_id = dso->db_id; 259 260 if (!al->sym) { 261 al->sym = symbol__new(al->addr, 0, 0, "unknown"); 262 if (al->sym) 263 dso__insert_symbol(dso, al->map->type, al->sym); 264 } 265 266 if (al->sym) { 267 u64 *db_id = symbol__priv(al->sym); 268 269 err = db_export__symbol(dbe, al->sym, dso); 270 if (err) 271 return err; 272 *sym_db_id = *db_id; 273 *offset = al->addr - al->sym->start; 274 } 275 } 276 277 return 0; 278 } 279 280 static struct call_path *call_path_from_sample(struct db_export *dbe, 281 struct machine *machine, 282 struct thread *thread, 283 struct perf_sample *sample, 284 struct perf_evsel *evsel) 285 { 286 u64 kernel_start = machine__kernel_start(machine); 287 struct call_path *current = &dbe->cpr->call_path; 288 enum chain_order saved_order = callchain_param.order; 289 int err; 290 291 if (!symbol_conf.use_callchain || !sample->callchain) 292 return NULL; 293 294 /* 295 * Since the call path tree must be built starting with the root, we 296 * must use ORDER_CALL for call chain resolution, in order to process 297 * the callchain starting with the root node and ending with the leaf. 298 */ 299 callchain_param.order = ORDER_CALLER; 300 err = thread__resolve_callchain(thread, &callchain_cursor, evsel, 301 sample, NULL, NULL, 302 sysctl_perf_event_max_stack); 303 if (err) { 304 callchain_param.order = saved_order; 305 return NULL; 306 } 307 callchain_cursor_commit(&callchain_cursor); 308 309 while (1) { 310 struct callchain_cursor_node *node; 311 struct addr_location al; 312 u64 dso_db_id = 0, sym_db_id = 0, offset = 0; 313 314 memset(&al, 0, sizeof(al)); 315 316 node = callchain_cursor_current(&callchain_cursor); 317 if (!node) 318 break; 319 /* 320 * Handle export of symbol and dso for this node by 321 * constructing an addr_location struct and then passing it to 322 * db_ids_from_al() to perform the export. 323 */ 324 al.sym = node->sym; 325 al.map = node->map; 326 al.machine = machine; 327 al.addr = node->ip; 328 329 if (al.map && !al.sym) 330 al.sym = dso__find_symbol(al.map->dso, MAP__FUNCTION, 331 al.addr); 332 333 db_ids_from_al(dbe, &al, &dso_db_id, &sym_db_id, &offset); 334 335 /* add node to the call path tree if it doesn't exist */ 336 current = call_path__findnew(dbe->cpr, current, 337 al.sym, node->ip, 338 kernel_start); 339 340 callchain_cursor_advance(&callchain_cursor); 341 } 342 343 /* Reset the callchain order to its prior value. */ 344 callchain_param.order = saved_order; 345 346 if (current == &dbe->cpr->call_path) { 347 /* Bail because the callchain was empty. */ 348 return NULL; 349 } 350 351 return current; 352 } 353 354 int db_export__branch_type(struct db_export *dbe, u32 branch_type, 355 const char *name) 356 { 357 if (dbe->export_branch_type) 358 return dbe->export_branch_type(dbe, branch_type, name); 359 360 return 0; 361 } 362 363 int db_export__sample(struct db_export *dbe, union perf_event *event, 364 struct perf_sample *sample, struct perf_evsel *evsel, 365 struct addr_location *al) 366 { 367 struct thread* thread = al->thread; 368 struct export_sample es = { 369 .event = event, 370 .sample = sample, 371 .evsel = evsel, 372 .al = al, 373 }; 374 struct thread *main_thread; 375 struct comm *comm = NULL; 376 int err; 377 378 err = db_export__evsel(dbe, evsel); 379 if (err) 380 return err; 381 382 err = db_export__machine(dbe, al->machine); 383 if (err) 384 return err; 385 386 main_thread = get_main_thread(al->machine, thread); 387 if (main_thread) 388 comm = machine__thread_exec_comm(al->machine, main_thread); 389 390 err = db_export__thread(dbe, thread, al->machine, comm); 391 if (err) 392 goto out_put; 393 394 if (comm) { 395 err = db_export__comm(dbe, comm, main_thread); 396 if (err) 397 goto out_put; 398 es.comm_db_id = comm->db_id; 399 } 400 401 es.db_id = ++dbe->sample_last_db_id; 402 403 err = db_ids_from_al(dbe, al, &es.dso_db_id, &es.sym_db_id, &es.offset); 404 if (err) 405 goto out_put; 406 407 if (dbe->cpr) { 408 struct call_path *cp = call_path_from_sample(dbe, al->machine, 409 thread, sample, 410 evsel); 411 if (cp) { 412 db_export__call_path(dbe, cp); 413 es.call_path_id = cp->db_id; 414 } 415 } 416 417 if ((evsel->attr.sample_type & PERF_SAMPLE_ADDR) && 418 sample_addr_correlates_sym(&evsel->attr)) { 419 struct addr_location addr_al; 420 421 thread__resolve(thread, &addr_al, sample); 422 err = db_ids_from_al(dbe, &addr_al, &es.addr_dso_db_id, 423 &es.addr_sym_db_id, &es.addr_offset); 424 if (err) 425 goto out_put; 426 if (dbe->crp) { 427 err = thread_stack__process(thread, comm, sample, al, 428 &addr_al, es.db_id, 429 dbe->crp); 430 if (err) 431 goto out_put; 432 } 433 } 434 435 if (dbe->export_sample) 436 err = dbe->export_sample(dbe, &es); 437 438 out_put: 439 thread__put(main_thread); 440 return err; 441 } 442 443 static struct { 444 u32 branch_type; 445 const char *name; 446 } branch_types[] = { 447 {0, "no branch"}, 448 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_CALL, "call"}, 449 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_RETURN, "return"}, 450 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_CONDITIONAL, "conditional jump"}, 451 {PERF_IP_FLAG_BRANCH, "unconditional jump"}, 452 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_CALL | PERF_IP_FLAG_INTERRUPT, 453 "software interrupt"}, 454 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_RETURN | PERF_IP_FLAG_INTERRUPT, 455 "return from interrupt"}, 456 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_CALL | PERF_IP_FLAG_SYSCALLRET, 457 "system call"}, 458 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_RETURN | PERF_IP_FLAG_SYSCALLRET, 459 "return from system call"}, 460 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_ASYNC, "asynchronous branch"}, 461 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_CALL | PERF_IP_FLAG_ASYNC | 462 PERF_IP_FLAG_INTERRUPT, "hardware interrupt"}, 463 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_TX_ABORT, "transaction abort"}, 464 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_TRACE_BEGIN, "trace begin"}, 465 {PERF_IP_FLAG_BRANCH | PERF_IP_FLAG_TRACE_END, "trace end"}, 466 {0, NULL} 467 }; 468 469 int db_export__branch_types(struct db_export *dbe) 470 { 471 int i, err = 0; 472 473 for (i = 0; branch_types[i].name ; i++) { 474 err = db_export__branch_type(dbe, branch_types[i].branch_type, 475 branch_types[i].name); 476 if (err) 477 break; 478 } 479 return err; 480 } 481 482 int db_export__call_path(struct db_export *dbe, struct call_path *cp) 483 { 484 int err; 485 486 if (cp->db_id) 487 return 0; 488 489 if (cp->parent) { 490 err = db_export__call_path(dbe, cp->parent); 491 if (err) 492 return err; 493 } 494 495 cp->db_id = ++dbe->call_path_last_db_id; 496 497 if (dbe->export_call_path) 498 return dbe->export_call_path(dbe, cp); 499 500 return 0; 501 } 502 503 int db_export__call_return(struct db_export *dbe, struct call_return *cr) 504 { 505 int err; 506 507 if (cr->db_id) 508 return 0; 509 510 err = db_export__call_path(dbe, cr->cp); 511 if (err) 512 return err; 513 514 cr->db_id = ++dbe->call_return_last_db_id; 515 516 if (dbe->export_call_return) 517 return dbe->export_call_return(dbe, cr); 518 519 return 0; 520 } 521