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
|
#include "aplwc_internal.h"
void
memory_init(struct aplwc *aplwc, uint8_t *data , size_t size)
{
aplwc->data = data;
aplwc->size = size;
aplwc->offset = 0;
}
static void *
alloc(struct aplwc *aplwc, size_t size, size_t align)
{
uintptr_t ptr;
size_t alloc_size, adjust;
void *p;
ptr = ((uintptr_t)aplwc->data) + aplwc->offset;
alloc_size = size;
if(NEVER(align == 0))
return NULL;
adjust = ptr % align;
if(adjust)
alloc_size += align - adjust;
if((aplwc->size - aplwc->offset) >= alloc_size){
p = aplwc->data+aplwc->offset+alloc_size-size;
assert((((uintptr_t)p) % align) == 0);
aplwc->offset += alloc_size;
memset(p, 0, size);
}else{
p = NULL;
aplwc->last_error = APLWC_OUT_OF_MEMORY;
}
return p;
}
void
memory_free_root(struct aplwc *aplwc, void *p)
{
if(NEVER(p == NULL))
return;
UNUSED_PARAMETER(aplwc);
}
struct aplwc *
memory_alloc_aplwc(struct aplwc *aplwc)
{
struct aplwc *p;
p = alloc(aplwc, sizeof(struct aplwc), alignof(struct aplwc));
return p;
}
struct aplwc_line *
memory_alloc_aplwc_line(struct aplwc *aplwc)
{
struct aplwc_line *p;
p = alloc(aplwc, sizeof(struct aplwc_line), alignof(struct aplwc_line));
return p;
}
struct string *
memory_alloc_string(struct aplwc *aplwc, size_t bytes)
{
struct string *p;
p = alloc(aplwc, sizeof(struct string) + bytes, alignof(struct string));
return p;
}
struct token_list *
memory_alloc_token_list(struct aplwc *aplwc, size_t tokens)
{
struct token_list *p;
p = alloc(aplwc, sizeof(struct token_list) + (tokens * sizeof(struct token)), alignof(struct token_list));
return p;
}
struct aplwc_value *
memory_alloc_aplwc_value(struct aplwc *aplwc)
{
struct aplwc_value *p;
p = alloc(aplwc, sizeof(struct aplwc_value), alignof(struct aplwc_value));
return p;
}
struct aplwc_module *
memory_alloc_aplwc_module(struct aplwc *aplwc)
{
struct aplwc_module *p;
p = alloc(aplwc, sizeof(struct aplwc_module), alignof(struct aplwc_module));
return p;
}
|