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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#include "internal.h"
#define ARENA_ALIGN 8
#define ARENA_BLOCK_SIZE 1024 * 1024
#define ALIGN_DOWN(n, a) ((n) & ~((a)-1))
#define ALIGN_UP(n, a) ALIGN_DOWN((n) + (a)-1, (a))
#define ALIGN_DOWN_PTR(p, a) ((void*)ALIGN_DOWN((uintptr)(p), (a)))
#define ALIGN_UP_PTR(p, a) ((void*)ALIGN_UP((uintptr)(p), (a)))
struct Block
{
struct Block *next;
byte buf[];
};
struct mem·Arena
{
void *heap;
mem·Allocator mem;
byte *off;
byte *end;
struct Block *curr;
struct Block first;
};
static void*
·arenaalloc(void *heap, uintptr n, uintptr size)
{
return mem·arenaalloc(heap, n, size);
}
static void*
·arenarealloc(void *heap, void *old, uintptr n, uintptr size)
{
/* does not free */
return mem·arenaalloc(heap, n, size);
}
static void
·arenafree(void *heap, void *ptr)
{
/* no-op */
}
mem·Allocator mem·ArenaAllocator = {
.alloc = ·arenaalloc,
.realloc = ·arenarealloc,
.free = ·arenafree,
};
static void
grow(mem·Arena *a, vlong min)
{
uintptr size;
struct Block *blk;
size = ALIGN_UP(MAX(min, ARENA_BLOCK_SIZE), ARENA_ALIGN);
blk = a->mem.alloc(a->heap, 1, sizeof(*blk) + size);
a->off = blk->buf;
a->end = a->off + size;
assert(a->curr->next == nil);
assert(a->off == ALIGN_DOWN_PTR(a->off, ARENA_ALIGN));
a->curr->next = blk;
a->curr = blk;
}
mem·Arena*
mem·makearena(mem·Allocator from, void *impl)
{
mem·Arena *a = from.alloc(impl, 1, sizeof(*a) + ARENA_BLOCK_SIZE);
a->mem = from;
a->heap = impl;
a->off = a->first.buf;
a->end = a->first.buf + ARENA_BLOCK_SIZE;
a->curr = &a->first;
a->first.next = nil;
return a;
}
void
mem·freearena(mem·Arena *a)
{
struct Block *it, *next;
it = a->first.next;
while (it != nil) {
next = it->next;
a->mem.free(a->heap, it);
it = next;
}
a->mem.free(a->heap, a);
}
void*
mem·arenaalloc(mem·Arena *a, long n, uintptr size)
{
if(!n) {
return nil;
}
void *ptr;
// TODO(nnoll): check for overflow
size = n * size;
if (size > (ulong)(a->end - a->off)) {
grow(a, size);
assert(size <= (uintptr)(a->end - a->off));
}
ptr = a->off;
a->off = ALIGN_UP_PTR(a->off + size, ARENA_ALIGN);
assert(a->off <= a->end);
assert(ptr == ALIGN_DOWN_PTR(ptr, ARENA_ALIGN));
return ptr;
}
|