oreodave/alisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

alloc: arena_t -> alloc_t

Browse Source 
arena_t doesn't really make sense given we also have a free list.
Better to name it generic.
This commit is contained in:
Aryadev Chavali
2026-02-13 03:31:40 +00:00
committed by oreodave
parent be0a6dd0c8
commit 9940651ac0
4 changed files with 29 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/sys.c
View File

@@ -21,7 +21,7 @@ lisp_t *sys_alloc(sys_t *sys, tag_t type)
{
case TAG_CONS:
case TAG_VEC:
return arena_make(&sys->memory, type);
return alloc_make(&sys->memory, type);
// Shouldn't be registered
case TAG_NIL:
case TAG_INT:
@@ -34,14 +34,13 @@ lisp_t *sys_alloc(sys_t *sys, tag_t type)
u64 sys_cost(sys_t *sys)
{
return arena_cost(&sys->memory) + sym_table_cost(&sys->symtable);
return alloc_cost(&sys->memory) + sym_table_cost(&sys->symtable);
}
void sys_free(sys_t *sys)
{
sym_table_free(&sys->symtable);
arena_free(&sys->memory);
// Ensure no one treats this as active in any sense
alloc_free(&sys->memory);
memset(sys, 0, sizeof(*sys));
}