perf newt: Use newtAddComponent()
[deliverable/linux.git] / tools / perf / util / callchain.c
CommitLineData
8cb76d99 1/*
301fde27 2 * Copyright (C) 2009-2010, Frederic Weisbecker <fweisbec@gmail.com>
8cb76d99
FW
3 *
4 * Handle the callchains from the stream in an ad-hoc radix tree and then
5 * sort them in an rbtree.
6 *
deac911c
FW
7 * Using a radix for code path provides a fast retrieval and factorizes
8 * memory use. Also that lets us use the paths in a hierarchical graph view.
9 *
8cb76d99
FW
10 */
11
12#include <stdlib.h>
13#include <stdio.h>
14#include <stdbool.h>
15#include <errno.h>
c0a8865e 16#include <math.h>
8cb76d99
FW
17
18#include "callchain.h"
19
139633c6
ACM
20bool ip_callchain__valid(struct ip_callchain *chain, event_t *event)
21{
22 unsigned int chain_size = event->header.size;
23 chain_size -= (unsigned long)&event->ip.__more_data - (unsigned long)event;
24 return chain->nr * sizeof(u64) <= chain_size;
25}
26
14f4654c
FW
27#define chain_for_each_child(child, parent) \
28 list_for_each_entry(child, &parent->children, brothers)
29
deac911c 30static void
4eb3e478
FW
31rb_insert_callchain(struct rb_root *root, struct callchain_node *chain,
32 enum chain_mode mode)
8cb76d99
FW
33{
34 struct rb_node **p = &root->rb_node;
35 struct rb_node *parent = NULL;
36 struct callchain_node *rnode;
1953287b 37 u64 chain_cumul = cumul_hits(chain);
8cb76d99
FW
38
39 while (*p) {
1953287b
FW
40 u64 rnode_cumul;
41
8cb76d99
FW
42 parent = *p;
43 rnode = rb_entry(parent, struct callchain_node, rb_node);
1953287b 44 rnode_cumul = cumul_hits(rnode);
8cb76d99 45
4eb3e478 46 switch (mode) {
805d127d 47 case CHAIN_FLAT:
4eb3e478
FW
48 if (rnode->hit < chain->hit)
49 p = &(*p)->rb_left;
50 else
51 p = &(*p)->rb_right;
52 break;
805d127d
FW
53 case CHAIN_GRAPH_ABS: /* Falldown */
54 case CHAIN_GRAPH_REL:
1953287b 55 if (rnode_cumul < chain_cumul)
4eb3e478
FW
56 p = &(*p)->rb_left;
57 else
58 p = &(*p)->rb_right;
59 break;
83a0944f 60 case CHAIN_NONE:
4eb3e478
FW
61 default:
62 break;
63 }
8cb76d99
FW
64 }
65
66 rb_link_node(&chain->rb_node, parent, p);
67 rb_insert_color(&chain->rb_node, root);
68}
69
805d127d
FW
70static void
71__sort_chain_flat(struct rb_root *rb_root, struct callchain_node *node,
72 u64 min_hit)
73{
74 struct callchain_node *child;
75
76 chain_for_each_child(child, node)
77 __sort_chain_flat(rb_root, child, min_hit);
78
79 if (node->hit && node->hit >= min_hit)
80 rb_insert_callchain(rb_root, node, CHAIN_FLAT);
81}
82
8cb76d99
FW
83/*
84 * Once we get every callchains from the stream, we can now
85 * sort them by hit
86 */
805d127d
FW
87static void
88sort_chain_flat(struct rb_root *rb_root, struct callchain_node *node,
89 u64 min_hit, struct callchain_param *param __used)
90{
91 __sort_chain_flat(rb_root, node, min_hit);
92}
93
94static void __sort_chain_graph_abs(struct callchain_node *node,
95 u64 min_hit)
8cb76d99
FW
96{
97 struct callchain_node *child;
98
805d127d 99 node->rb_root = RB_ROOT;
8cb76d99 100
805d127d
FW
101 chain_for_each_child(child, node) {
102 __sort_chain_graph_abs(child, min_hit);
1953287b 103 if (cumul_hits(child) >= min_hit)
805d127d
FW
104 rb_insert_callchain(&node->rb_root, child,
105 CHAIN_GRAPH_ABS);
106 }
107}
108
109static void
110sort_chain_graph_abs(struct rb_root *rb_root, struct callchain_node *chain_root,
111 u64 min_hit, struct callchain_param *param __used)
112{
113 __sort_chain_graph_abs(chain_root, min_hit);
114 rb_root->rb_node = chain_root->rb_root.rb_node;
4eb3e478
FW
115}
116
805d127d
FW
117static void __sort_chain_graph_rel(struct callchain_node *node,
118 double min_percent)
4eb3e478
FW
119{
120 struct callchain_node *child;
805d127d 121 u64 min_hit;
4eb3e478
FW
122
123 node->rb_root = RB_ROOT;
c0a8865e 124 min_hit = ceil(node->children_hit * min_percent);
4eb3e478
FW
125
126 chain_for_each_child(child, node) {
805d127d 127 __sort_chain_graph_rel(child, min_percent);
1953287b 128 if (cumul_hits(child) >= min_hit)
805d127d
FW
129 rb_insert_callchain(&node->rb_root, child,
130 CHAIN_GRAPH_REL);
4eb3e478
FW
131 }
132}
133
805d127d
FW
134static void
135sort_chain_graph_rel(struct rb_root *rb_root, struct callchain_node *chain_root,
136 u64 min_hit __used, struct callchain_param *param)
4eb3e478 137{
c0a8865e 138 __sort_chain_graph_rel(chain_root, param->min_percent / 100.0);
4eb3e478 139 rb_root->rb_node = chain_root->rb_root.rb_node;
8cb76d99
FW
140}
141
805d127d
FW
142int register_callchain_param(struct callchain_param *param)
143{
144 switch (param->mode) {
145 case CHAIN_GRAPH_ABS:
146 param->sort = sort_chain_graph_abs;
147 break;
148 case CHAIN_GRAPH_REL:
149 param->sort = sort_chain_graph_rel;
150 break;
151 case CHAIN_FLAT:
152 param->sort = sort_chain_flat;
153 break;
83a0944f 154 case CHAIN_NONE:
805d127d
FW
155 default:
156 return -1;
157 }
158 return 0;
159}
160
deac911c
FW
161/*
162 * Create a child for a parent. If inherit_children, then the new child
163 * will become the new parent of it's parent children
164 */
165static struct callchain_node *
166create_child(struct callchain_node *parent, bool inherit_children)
8cb76d99
FW
167{
168 struct callchain_node *new;
169
170 new = malloc(sizeof(*new));
171 if (!new) {
172 perror("not enough memory to create child for code path tree");
173 return NULL;
174 }
175 new->parent = parent;
176 INIT_LIST_HEAD(&new->children);
177 INIT_LIST_HEAD(&new->val);
deac911c
FW
178
179 if (inherit_children) {
180 struct callchain_node *next;
181
182 list_splice(&parent->children, &new->children);
183 INIT_LIST_HEAD(&parent->children);
184
14f4654c 185 chain_for_each_child(next, new)
deac911c
FW
186 next->parent = new;
187 }
8cb76d99
FW
188 list_add_tail(&new->brothers, &parent->children);
189
190 return new;
191}
192
301fde27
FW
193
194struct resolved_ip {
b3c9ac08
ACM
195 u64 ip;
196 struct map_symbol ms;
301fde27
FW
197};
198
199struct resolved_chain {
200 u64 nr;
201 struct resolved_ip ips[0];
202};
203
204
deac911c
FW
205/*
206 * Fill the node with callchain values
207 */
8cb76d99 208static void
301fde27 209fill_node(struct callchain_node *node, struct resolved_chain *chain, int start)
8cb76d99 210{
f37a291c 211 unsigned int i;
8cb76d99
FW
212
213 for (i = start; i < chain->nr; i++) {
214 struct callchain_list *call;
215
9198aa77 216 call = malloc(sizeof(*call));
8cb76d99
FW
217 if (!call) {
218 perror("not enough memory for the code path tree");
219 return;
220 }
301fde27 221 call->ip = chain->ips[i].ip;
b3c9ac08 222 call->ms = chain->ips[i].ms;
8cb76d99
FW
223 list_add_tail(&call->list, &node->val);
224 }
deac911c
FW
225 node->val_nr = chain->nr - start;
226 if (!node->val_nr)
6beba7ad 227 pr_warning("Warning: empty node in callchain tree\n");
8cb76d99
FW
228}
229
deac911c 230static void
301fde27
FW
231add_child(struct callchain_node *parent, struct resolved_chain *chain,
232 int start)
8cb76d99
FW
233{
234 struct callchain_node *new;
235
deac911c 236 new = create_child(parent, false);
301fde27 237 fill_node(new, chain, start);
8cb76d99 238
1953287b
FW
239 new->children_hit = 0;
240 new->hit = 1;
8cb76d99
FW
241}
242
deac911c
FW
243/*
244 * Split the parent in two parts (a new child is created) and
245 * give a part of its callchain to the created child.
246 * Then create another child to host the given callchain of new branch
247 */
8cb76d99 248static void
301fde27
FW
249split_add_child(struct callchain_node *parent, struct resolved_chain *chain,
250 struct callchain_list *to_split, int idx_parents, int idx_local)
8cb76d99
FW
251{
252 struct callchain_node *new;
deac911c 253 struct list_head *old_tail;
f37a291c 254 unsigned int idx_total = idx_parents + idx_local;
8cb76d99
FW
255
256 /* split */
deac911c
FW
257 new = create_child(parent, true);
258
259 /* split the callchain and move a part to the new child */
260 old_tail = parent->val.prev;
261 list_del_range(&to_split->list, old_tail);
262 new->val.next = &to_split->list;
263 new->val.prev = old_tail;
264 to_split->list.prev = &new->val;
265 old_tail->next = &new->val;
8cb76d99 266
deac911c
FW
267 /* split the hits */
268 new->hit = parent->hit;
1953287b
FW
269 new->children_hit = parent->children_hit;
270 parent->children_hit = cumul_hits(new);
deac911c
FW
271 new->val_nr = parent->val_nr - idx_local;
272 parent->val_nr = idx_local;
273
274 /* create a new child for the new branch if any */
275 if (idx_total < chain->nr) {
276 parent->hit = 0;
301fde27 277 add_child(parent, chain, idx_total);
1953287b 278 parent->children_hit++;
deac911c
FW
279 } else {
280 parent->hit = 1;
281 }
8cb76d99
FW
282}
283
284static int
301fde27
FW
285__append_chain(struct callchain_node *root, struct resolved_chain *chain,
286 unsigned int start);
8cb76d99 287
deac911c 288static void
301fde27
FW
289__append_chain_children(struct callchain_node *root,
290 struct resolved_chain *chain,
291 unsigned int start)
8cb76d99
FW
292{
293 struct callchain_node *rnode;
294
295 /* lookup in childrens */
14f4654c 296 chain_for_each_child(rnode, root) {
301fde27 297 unsigned int ret = __append_chain(rnode, chain, start);
f37a291c 298
8cb76d99 299 if (!ret)
1953287b 300 goto inc_children_hit;
8cb76d99 301 }
deac911c 302 /* nothing in children, add to the current node */
301fde27 303 add_child(root, chain, start);
e05b876c 304
1953287b
FW
305inc_children_hit:
306 root->children_hit++;
8cb76d99
FW
307}
308
309static int
301fde27
FW
310__append_chain(struct callchain_node *root, struct resolved_chain *chain,
311 unsigned int start)
8cb76d99
FW
312{
313 struct callchain_list *cnode;
f37a291c 314 unsigned int i = start;
8cb76d99
FW
315 bool found = false;
316
deac911c
FW
317 /*
318 * Lookup in the current node
319 * If we have a symbol, then compare the start to match
320 * anywhere inside a function.
321 */
8cb76d99 322 list_for_each_entry(cnode, &root->val, list) {
301fde27
FW
323 struct symbol *sym;
324
deac911c
FW
325 if (i == chain->nr)
326 break;
301fde27 327
b3c9ac08 328 sym = chain->ips[i].ms.sym;
301fde27 329
b3c9ac08
ACM
330 if (cnode->ms.sym && sym) {
331 if (cnode->ms.sym->start != sym->start)
deac911c 332 break;
301fde27 333 } else if (cnode->ip != chain->ips[i].ip)
8cb76d99 334 break;
301fde27 335
8cb76d99
FW
336 if (!found)
337 found = true;
deac911c 338 i++;
8cb76d99
FW
339 }
340
341 /* matches not, relay on the parent */
342 if (!found)
343 return -1;
344
345 /* we match only a part of the node. Split it and add the new chain */
deac911c 346 if (i - start < root->val_nr) {
301fde27 347 split_add_child(root, chain, cnode, start, i - start);
8cb76d99
FW
348 return 0;
349 }
350
351 /* we match 100% of the path, increment the hit */
deac911c 352 if (i - start == root->val_nr && i == chain->nr) {
8cb76d99
FW
353 root->hit++;
354 return 0;
355 }
356
deac911c 357 /* We match the node and still have a part remaining */
301fde27 358 __append_chain_children(root, chain, i);
deac911c
FW
359
360 return 0;
8cb76d99
FW
361}
362
b3c9ac08
ACM
363static void filter_context(struct ip_callchain *old, struct resolved_chain *new,
364 struct map_symbol *syms)
301fde27
FW
365{
366 int i, j = 0;
367
368 for (i = 0; i < (int)old->nr; i++) {
369 if (old->ips[i] >= PERF_CONTEXT_MAX)
370 continue;
371
372 new->ips[j].ip = old->ips[i];
b3c9ac08 373 new->ips[j].ms = syms[i];
301fde27
FW
374 j++;
375 }
376
377 new->nr = j;
378}
379
380
381int append_chain(struct callchain_node *root, struct ip_callchain *chain,
b3c9ac08 382 struct map_symbol *syms)
8cb76d99 383{
301fde27
FW
384 struct resolved_chain *filtered;
385
b0efe213 386 if (!chain->nr)
301fde27
FW
387 return 0;
388
389 filtered = malloc(sizeof(*filtered) +
390 chain->nr * sizeof(struct resolved_ip));
391 if (!filtered)
392 return -ENOMEM;
393
394 filter_context(chain, filtered, syms);
395
396 if (!filtered->nr)
397 goto end;
398
399 __append_chain_children(root, filtered, 0);
400end:
401 free(filtered);
402
403 return 0;
8cb76d99 404}
This page took 0.073499 seconds and 5 git commands to generate.