OLD | NEW |
| (Empty) |
1 // Copyright 2014 The Chromium Authors. All rights reserved. | |
2 // Use of this source code is governed by a BSD-style license that can be | |
3 // found in the LICENSE file. | |
4 | |
5 // This is a OS-independent* module which purpose is tracking allocations and | |
6 // their call sites (stack traces). It is able to deal with hole punching | |
7 // (read: munmap). Also, it has low overhead and its presence in the system its | |
8 // barely noticeable, even if tracing *all* the processes. | |
9 // This module does NOT know how to deal with stack unwinding. The caller must | |
10 // do that and pass the addresses of the unwound stack. | |
11 // * (Modulo three lines for mutexes.) | |
12 // | |
13 // Exposed API: | |
14 // void heap_profiler_init(HeapStats*); | |
15 // void heap_profiler_alloc(addr, size, stack_frames, depth, flags); | |
16 // void heap_profiler_free(addr, size); (size == 0 means free entire region). | |
17 // | |
18 // The profiling information is tracked into two data structures: | |
19 // 1) A RB-Tree of non-overlapping VM regions (allocs) sorted by their start | |
20 // addr. Each entry tracks the start-end addresses and points to the stack | |
21 // trace which created that allocation (see below). | |
22 // 2) A (hash) table of stack traces. In general the #allocations >> #call sites | |
23 // which create those allocations. In order to avoid duplicating the latter, | |
24 // they are stored distinctly in this hash table and used by reference. | |
25 // | |
26 // / Process virtual address space \ | |
27 // +------+ +------+ +------+ | |
28 // |Alloc1| |Alloc2| |Alloc3| <- Allocs (a RB-Tree underneath) | |
29 // +------+ +------+ +------+ | |
30 // Len: 12 Len: 4 Len: 4 | |
31 // | | | stack_traces | |
32 // | | | +-----------+--------------+ | |
33 // | | | | Alloc tot | stack frames + | |
34 // | | | +-----------+--------------+ | |
35 // +------------|-------------+------------> | 16 | 0x1234 .... | | |
36 // | +-----------+--------------+ | |
37 // +--------------------------> | 4 | 0x5678 .... | | |
38 // +-----------+--------------+ | |
39 // (A hash-table underneath) | |
40 // | |
41 // Final note: the memory for both 1) and 2) entries is carved out from two | |
42 // static pools (i.e. stack_traces and allocs). The pools are treated as | |
43 // a sbrk essentially, and are kept compact by reusing freed elements (hence | |
44 // having a freelist for each of them). | |
45 // | |
46 // All the internal (static) functions here assume that the |lock| is held. | |
47 | |
48 #include <assert.h> | |
49 #include <string.h> | |
50 | |
51 // Platform-dependent mutex boilerplate. | |
52 #if defined(__linux__) || defined(__ANDROID__) | |
53 #include <pthread.h> | |
54 #define DEFINE_MUTEX(x) pthread_mutex_t x = PTHREAD_MUTEX_INITIALIZER | |
55 #define LOCK_MUTEX(x) pthread_mutex_lock(&x) | |
56 #define UNLOCK_MUTEX(x) pthread_mutex_unlock(&x) | |
57 #else | |
58 #error OS not supported. | |
59 #endif | |
60 | |
61 #include "tools/android/heap_profiler/heap_profiler.h" | |
62 | |
63 | |
64 static DEFINE_MUTEX(lock); | |
65 | |
66 // |stats| contains the global tracking metadata and is the entry point which | |
67 // is read by the heap_dump tool. | |
68 static HeapStats* stats; | |
69 | |
70 // +---------------------------------------------------------------------------+ | |
71 // + Stack traces hash-table + | |
72 // +---------------------------------------------------------------------------+ | |
73 #define ST_ENTRIES_MAX (64 * 1024) | |
74 #define ST_HASHTABLE_BUCKETS (64 * 1024) /* Must be a power of 2. */ | |
75 | |
76 static StacktraceEntry stack_traces[ST_ENTRIES_MAX]; | |
77 static StacktraceEntry* stack_traces_freelist; | |
78 static StacktraceEntry* stack_traces_ht[ST_HASHTABLE_BUCKETS]; | |
79 | |
80 // Looks up a stack trace from the stack frames. Creates a new one if necessary. | |
81 static StacktraceEntry* record_stacktrace(uintptr_t* frames, uint32_t depth) { | |
82 if (depth == 0) | |
83 return NULL; | |
84 | |
85 if (depth > HEAP_PROFILER_MAX_DEPTH) | |
86 depth = HEAP_PROFILER_MAX_DEPTH; | |
87 | |
88 uint32_t i; | |
89 uintptr_t hash = 0; | |
90 for (i = 0; i < depth; ++i) | |
91 hash = (hash << 1) ^ (frames[i]); | |
92 const uint32_t slot = hash & (ST_HASHTABLE_BUCKETS - 1); | |
93 StacktraceEntry* st = stack_traces_ht[slot]; | |
94 | |
95 // Look for an existing entry in the hash-table. | |
96 const size_t frames_length = depth * sizeof(uintptr_t); | |
97 while (st != NULL && st->hash != hash && | |
98 memcmp(frames, st->frames, frames_length) != 0) { | |
99 st = st->next; | |
100 } | |
101 | |
102 // If not found, create a new one from the stack_traces array and add it to | |
103 // the hash-table. | |
104 if (st == NULL) { | |
105 // Get a free element either from the freelist or from the pool. | |
106 if (stack_traces_freelist != NULL) { | |
107 st = stack_traces_freelist; | |
108 stack_traces_freelist = stack_traces_freelist->next; | |
109 } else if (stats->max_stack_traces < ST_ENTRIES_MAX) { | |
110 st = &stack_traces[stats->max_stack_traces]; | |
111 ++stats->max_stack_traces; | |
112 } else { | |
113 return NULL; | |
114 } | |
115 | |
116 memset(st, 0, sizeof(*st)); | |
117 memcpy(st->frames, frames, frames_length); | |
118 st->hash = hash; | |
119 st->next = stack_traces_ht[slot]; | |
120 stack_traces_ht[slot] = st; | |
121 ++stats->num_stack_traces; | |
122 } | |
123 | |
124 return st; | |
125 } | |
126 | |
127 // Frees up a stack trace and appends it to the corresponding freelist. | |
128 static void free_stacktrace(StacktraceEntry* st) { | |
129 assert(st->alloc_bytes == 0); | |
130 const uint32_t slot = st->hash & (ST_HASHTABLE_BUCKETS - 1); | |
131 | |
132 // The expected load factor of the hash-table is very low. Frees should be | |
133 // pretty rare. Hence don't bother with a doubly linked list, might cost more. | |
134 StacktraceEntry** prev = &stack_traces_ht[slot]; | |
135 while (*prev != st) | |
136 prev = &((*prev)->next); | |
137 | |
138 // Remove from the hash-table bucket. | |
139 assert(*prev == st); | |
140 *prev = st->next; | |
141 | |
142 // Add to the freelist. | |
143 st->next = stack_traces_freelist; | |
144 stack_traces_freelist = st; | |
145 --stats->num_stack_traces; | |
146 } | |
147 | |
148 // +---------------------------------------------------------------------------+ | |
149 // + Allocs RB-tree + | |
150 // +---------------------------------------------------------------------------+ | |
151 #define ALLOCS_ENTRIES_MAX (256 * 1024) | |
152 | |
153 static Alloc allocs[ALLOCS_ENTRIES_MAX]; | |
154 static Alloc* allocs_freelist; | |
155 static RB_HEAD(HeapEntriesTree, Alloc) allocs_tree = | |
156 RB_INITIALIZER(&allocs_tree); | |
157 | |
158 // Comparator used by the RB-Tree (mind the overflow, avoid arith on addresses). | |
159 static int allocs_tree_cmp(Alloc *alloc_1, Alloc *alloc_2) { | |
160 if (alloc_1->start < alloc_2->start) | |
161 return -1; | |
162 if (alloc_1->start > alloc_2->start) | |
163 return 1; | |
164 return 0; | |
165 } | |
166 | |
167 RB_PROTOTYPE(HeapEntriesTree, Alloc, rb_node, allocs_tree_cmp); | |
168 RB_GENERATE(HeapEntriesTree, Alloc, rb_node, allocs_tree_cmp); | |
169 | |
170 // Allocates a new Alloc and inserts it in the tree. | |
171 static Alloc* insert_alloc( | |
172 uintptr_t start, uintptr_t end, StacktraceEntry* st, uint32_t flags) { | |
173 Alloc* alloc = NULL; | |
174 | |
175 // First of all, get a free element either from the freelist or from the pool. | |
176 if (allocs_freelist != NULL) { | |
177 alloc = allocs_freelist; | |
178 allocs_freelist = alloc->next_free; | |
179 } else if (stats->max_allocs < ALLOCS_ENTRIES_MAX) { | |
180 alloc = &allocs[stats->max_allocs]; | |
181 ++stats->max_allocs; | |
182 } else { | |
183 return NULL; // OOM. | |
184 } | |
185 | |
186 alloc->start = start; | |
187 alloc->end = end; | |
188 alloc->st = st; | |
189 alloc->flags = flags; | |
190 alloc->next_free = NULL; | |
191 RB_INSERT(HeapEntriesTree, &allocs_tree, alloc); | |
192 ++stats->num_allocs; | |
193 return alloc; | |
194 } | |
195 | |
196 // Deletes all the allocs in the range [addr, addr+size[ dealing with partial | |
197 // frees and hole punching. Note that in the general case this function might | |
198 // need to deal with very unfortunate cases, as below: | |
199 // | |
200 // Alloc tree begin: [Alloc 1]----[Alloc 2]-------[Alloc 3][Alloc 4]---[Alloc 5] | |
201 // Deletion range: [xxxxxxxxxxxxxxxxxxxx] | |
202 // Alloc tree end: [Alloc 1]----[Al.2]----------------------[Al.4]---[Alloc 5] | |
203 // Alloc3 has to be deleted and Alloc 2,4 shrunk. | |
204 static uint32_t delete_allocs_in_range(void* addr, size_t size) { | |
205 uintptr_t del_start = (uintptr_t) addr; | |
206 uintptr_t del_end = del_start + size - 1; | |
207 uint32_t flags = 0; | |
208 | |
209 Alloc* alloc = NULL; | |
210 Alloc* next_alloc = RB_ROOT(&allocs_tree); | |
211 | |
212 // Lookup the first (by address) relevant Alloc to initiate the deletion walk. | |
213 // At the end of the loop next_alloc is either: | |
214 // - the closest alloc starting before (or exactly at) the start of the | |
215 // deletion range (i.e. addr == del_start). | |
216 // - the first alloc inside the deletion range. | |
217 // - the first alloc after the deletion range iff the range was already empty | |
218 // (in this case the next loop will just bail out doing nothing). | |
219 // - NULL: iff the entire tree is empty (as above). | |
220 while (next_alloc != NULL) { | |
221 alloc = next_alloc; | |
222 if (alloc->start > del_start) { | |
223 next_alloc = RB_LEFT(alloc, rb_node); | |
224 } else if (alloc->end < del_start) { | |
225 next_alloc = RB_RIGHT(alloc, rb_node); | |
226 } else { // alloc->start <= del_start && alloc->end >= del_start | |
227 break; | |
228 } | |
229 } | |
230 | |
231 // Now scan the allocs linearly deleting chunks (or eventually whole allocs) | |
232 // until passing the end of the deleting region. | |
233 next_alloc = alloc; | |
234 while (next_alloc != NULL) { | |
235 alloc = next_alloc; | |
236 next_alloc = RB_NEXT(HeapEntriesTree, &allocs_tree, alloc); | |
237 | |
238 if (size != 0) { | |
239 // In the general case we stop passed the end of the deletion range. | |
240 if (alloc->start > del_end) | |
241 break; | |
242 | |
243 // This deals with the case of the first Alloc laying before the range. | |
244 if (alloc->end < del_start) | |
245 continue; | |
246 } else { | |
247 // size == 0 is a special case. It means deleting only the alloc which | |
248 // starts exactly at |del_start| if any (for dealing with free(ptr)). | |
249 if (alloc->start > del_start) | |
250 break; | |
251 if (alloc->start < del_start) | |
252 continue; | |
253 del_end = alloc->end; | |
254 } | |
255 | |
256 // Reached this point the Alloc must overlap (partially or completely) with | |
257 // the deletion range. | |
258 assert(!(alloc->start > del_end || alloc->end < del_start)); | |
259 | |
260 StacktraceEntry* st = alloc->st; | |
261 flags |= alloc->flags; | |
262 uintptr_t freed_bytes = 0; // Bytes freed in this cycle. | |
263 | |
264 if (del_start <= alloc->start) { | |
265 if (del_end >= alloc->end) { | |
266 // Complete overlap. Delete full Alloc. Note: the range might might | |
267 // still overlap with the next allocs. | |
268 // Begin: ------[alloc.start alloc.end]-[next alloc] | |
269 // Del range: [xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx] | |
270 // Result: ---------------------------------[next alloc] | |
271 // [next alloc] will be shrinked on the next iteration. | |
272 freed_bytes = alloc->end - alloc->start + 1; | |
273 RB_REMOVE(HeapEntriesTree, &allocs_tree, alloc); | |
274 | |
275 // Clean-up, so heap_dump can tell this is a free entry and skip it. | |
276 alloc->start = alloc->end = 0; | |
277 alloc->st = NULL; | |
278 | |
279 // Put in the freelist. | |
280 alloc->next_free = allocs_freelist; | |
281 allocs_freelist = alloc; | |
282 --stats->num_allocs; | |
283 } else { | |
284 // Partial overlap at beginning. Cut first part and shrink the alloc. | |
285 // Begin: ------[alloc.start alloc.end]-[next alloc] | |
286 // Del range: [xxxxxx] | |
287 // Result: ------------[start alloc.end]-[next alloc] | |
288 freed_bytes = del_end - alloc->start + 1; | |
289 alloc->start = del_end + 1; | |
290 // No need to update the tree even if we changed the key. The keys are | |
291 // still monotonic (because the ranges are guaranteed to not overlap). | |
292 } | |
293 } else { | |
294 if (del_end >= alloc->end) { | |
295 // Partial overlap at end. Cut last part and shrink the alloc left. | |
296 // Begin: ------[alloc.start alloc.end]-[next alloc] | |
297 // Del range: [xxxxxxxx] | |
298 // Result: ------[alloc.start alloc.end]-----[next alloc] | |
299 // [next alloc] will be shrinked on the next iteration. | |
300 freed_bytes = alloc->end - del_start + 1; | |
301 alloc->end = del_start - 1; | |
302 } else { | |
303 // Hole punching. Requires creating an extra alloc. | |
304 // Begin: ------[alloc.start alloc.end]-[next alloc] | |
305 // Del range: [xxx] | |
306 // Result: ------[ alloc 1 ]-----[ alloc 2 ]-[next alloc] | |
307 freed_bytes = del_end - del_start + 1; | |
308 const uintptr_t old_end = alloc->end; | |
309 alloc->end = del_start - 1; | |
310 | |
311 // In case of OOM, don't count the 2nd alloc we failed to allocate. | |
312 if (insert_alloc(del_end + 1, old_end, st, alloc->flags) == NULL) | |
313 freed_bytes += (old_end - del_end); | |
314 } | |
315 } | |
316 // Now update the StackTraceEntry the Alloc was pointing to, eventually | |
317 // freeing it up. | |
318 assert(st->alloc_bytes >= freed_bytes); | |
319 st->alloc_bytes -= freed_bytes; | |
320 if (st->alloc_bytes == 0) | |
321 free_stacktrace(st); | |
322 stats->total_alloc_bytes -= freed_bytes; | |
323 } | |
324 return flags; | |
325 } | |
326 | |
327 // +---------------------------------------------------------------------------+ | |
328 // + Library entry points (refer to heap_profiler.h for API doc). + | |
329 // +---------------------------------------------------------------------------+ | |
330 void heap_profiler_free(void* addr, size_t size, uint32_t* old_flags) { | |
331 assert(size == 0 || ((uintptr_t) addr + (size - 1)) >= (uintptr_t) addr); | |
332 | |
333 LOCK_MUTEX(lock); | |
334 uint32_t flags = delete_allocs_in_range(addr, size); | |
335 UNLOCK_MUTEX(lock); | |
336 | |
337 if (old_flags != NULL) | |
338 *old_flags = flags; | |
339 } | |
340 | |
341 void heap_profiler_alloc(void* addr, size_t size, uintptr_t* frames, | |
342 uint32_t depth, uint32_t flags) { | |
343 if (depth > HEAP_PROFILER_MAX_DEPTH) | |
344 depth = HEAP_PROFILER_MAX_DEPTH; | |
345 | |
346 if (size == 0) // Apps calling malloc(0), sometimes it happens. | |
347 return; | |
348 | |
349 const uintptr_t start = (uintptr_t) addr; | |
350 const uintptr_t end = start + (size - 1); | |
351 assert(start <= end); | |
352 | |
353 LOCK_MUTEX(lock); | |
354 | |
355 delete_allocs_in_range(addr, size); | |
356 | |
357 StacktraceEntry* st = record_stacktrace(frames, depth); | |
358 if (st != NULL) { | |
359 Alloc* alloc = insert_alloc(start, end, st, flags); | |
360 if (alloc != NULL) { | |
361 st->alloc_bytes += size; | |
362 stats->total_alloc_bytes += size; | |
363 } | |
364 } | |
365 | |
366 UNLOCK_MUTEX(lock); | |
367 } | |
368 | |
369 void heap_profiler_init(HeapStats* heap_stats) { | |
370 LOCK_MUTEX(lock); | |
371 | |
372 assert(stats == NULL); | |
373 stats = heap_stats; | |
374 memset(stats, 0, sizeof(HeapStats)); | |
375 stats->magic_start = HEAP_PROFILER_MAGIC_MARKER; | |
376 stats->allocs = &allocs[0]; | |
377 stats->stack_traces = &stack_traces[0]; | |
378 | |
379 UNLOCK_MUTEX(lock); | |
380 } | |
381 | |
382 void heap_profiler_cleanup(void) { | |
383 LOCK_MUTEX(lock); | |
384 | |
385 assert(stats != NULL); | |
386 memset(stack_traces, 0, sizeof(StacktraceEntry) * stats->max_stack_traces); | |
387 memset(stack_traces_ht, 0, sizeof(stack_traces_ht)); | |
388 stack_traces_freelist = NULL; | |
389 | |
390 memset(allocs, 0, sizeof(Alloc) * stats->max_allocs); | |
391 allocs_freelist = NULL; | |
392 RB_INIT(&allocs_tree); | |
393 | |
394 stats = NULL; | |
395 | |
396 UNLOCK_MUTEX(lock); | |
397 } | |
OLD | NEW |