1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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
69
70
71
72
73
74
75
76
77
|
/* number of bytes a page hold, not including the header */
#define PAGE_SIZE (16384 - sizeof(Page))
static void allocr_create(Allocator *a) {
a->first = a->last = NULL;
a->dyn = NULL;
a->dyn_len = a->dyn_cap = 0;
}
static void *allocr_malloc(Allocator *a, size_t bytes) {
/* position in this page to return */
size_t pos = PAGE_SIZE;
if (a->last)
pos = (a->last->used + sizeof(max_align_t) - 1) / sizeof(max_align_t);
if (pos * sizeof(max_align_t) + bytes > PAGE_SIZE) {
/* make a new page for this data */
Page *page = err_malloc(sizeof *page + (bytes > PAGE_SIZE ? bytes : PAGE_SIZE));
page->next = NULL;
page->used = bytes;
if (a->last)
a->last->next = page;
else
a->first = page;
a->last = page;
return page->data;
} else {
a->last->used += bytes;
return &a->last->data[pos];
}
}
static void *allocr_calloc(Allocator *a, size_t n, size_t sz) {
/* OPTIM: use calloc */
size_t bytes = n * sz;
void *data = allocr_malloc(a, bytes);
memset(data, 0, bytes);
return data;
}
/* IMPORTANT: this can only be called with data which was originally allocated with allocr_realloc(a, NULL, x)
*/
static void *allocr_realloc(Allocator *a, void *data, size_t new_size) {
if (data) {
DynPage *page = (DynPage *)((char *)data - offsetof(DynPage, data));
page = err_realloc(page, new_size + sizeof(DynPage));
*page->self = page;
return page->data;
} else {
if (a->dyn_len >= a->dyn_cap) {
a->dyn_cap = 2 * (a->dyn_len + 1);
a->dyn = realloc(a->dyn, a->dyn_cap * sizeof(DynPage *));
for (size_t i = 0; i < a->dyn_len; i++) {
a->dyn[i]->self = &a->dyn[i];
}
}
DynPage *page = err_malloc(sizeof(DynPage) + new_size);
page->self = &a->dyn[a->dyn_len];
*page->self = page;
a->dyn_len++;
return page->data;
}
return NULL;
}
static void allocr_free_all(Allocator *a) {
for (Page *page = a->first; page;) {
Page *next = page->next;
free(page);
page = next;
}
for (size_t i = 0; i < a->dyn_len; i++) {
free(a->dyn[i]);
}
free(a->dyn);
}
|
