blob: 965db14e407044252ae8a5a6c51834c9b5d8f26c (
plain)
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
|
#ifndef U3_ALLOCATE_V1_H
#define U3_ALLOCATE_V1_H
#include "../allocate.h"
#include "v2/allocate.h"
/** Aliases.
**/
# define u3R_v1 u3R_v2
# define u3a_v1_botox u3a_v2_botox
# define u3a_v1_box u3a_v2_box
# define u3a_v1_cell u3a_v2_cell
# define u3a_v1_fbox u3a_v2_fbox
# define u3a_v1_fbox_no u3a_v2_fbox_no
# define u3a_v1_into u3a_v2_into
# define u3a_v1_is_cat u3a_v2_is_cat
# define u3a_v1_is_north u3a_v2_is_north
# define u3a_v1_is_pom u3a_v2_is_pom
# define u3a_v1_minimum u3a_v2_minimum
# define u3a_v1_outa u3a_v2_outa
/** Structures.
**/
/** Macros. Should be better commented.
**/
/* Inside a noun.
*/
/* u3a_v1_to_off(): mask off bits 30 and 31 from noun [som].
*/
# define u3a_v1_to_off(som) ((som) & 0x3fffffff)
/* u3a_v1_to_ptr(): convert noun [som] into generic pointer into loom.
*/
# define u3a_v1_to_ptr(som) (u3a_v1_into(u3a_v1_to_off(som)))
/* u3a_v1_to_wtr(): convert noun [som] into word pointer into loom.
*/
# define u3a_v1_to_wtr(som) ((c3_w *)u3a_v1_to_ptr(som))
/* u3a_v1_to_pug(): set bit 31 of [off].
*/
# define u3a_v1_to_pug(off) (off | 0x80000000)
/* u3a_v1_to_pom(): set bits 30 and 31 of [off].
*/
# define u3a_v1_to_pom(off) (off | 0xc0000000)
/** Functions.
**/
/** Allocation.
**/
/* Word-aligned allocation.
*/
/* u3a_v1_wfree(): free storage.
*/
void
u3a_v1_wfree(void* lag_v);
/* C-style aligned allocation - *not* compatible with above.
*/
/* u3a_v1_free(): free for aligned malloc.
*/
void
u3a_v1_free(void* tox_v);
/* Reference and arena control.
*/
/* u3a_v1_reclaim(): clear ad-hoc persistent caches to reclaim memory.
*/
void
u3a_v1_reclaim(void);
/* u3a_v1_lose(): lose a reference count.
*/
void
u3a_v1_lose(u3_noun som);
#endif /* ifndef U3_ALLOCATE_H */
|
