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

lisp: sys_cost for memory footprint

Browse Source
This commit is contained in:
Aryadev Chavali
2026-02-11 07:56:57 +00:00
committed by oreodave
parent ff512986f8
commit 8b2fe97fc2
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
include/alisp/lisp.h
View File

@@ -34,6 +34,9 @@ void sys_init(sys_t *);
void sys_register(sys_t *, lisp_t *); void sys_register(sys_t *, lisp_t *);
void sys_free(sys_t *); void sys_free(sys_t *);
// Debugging function: provides total memory usage from system.
u64 sys_cost(sys_t *);
/// Constructors and destructors /// Constructors and destructors
lisp_t *make_int(i64); lisp_t *make_int(i64);
lisp_t *make_vec(sys_t *, u64); lisp_t *make_vec(sys_t *, u64);

5
src/lisp.c
View File

@@ -22,6 +22,11 @@ void sys_register(sys_t *sys, lisp_t *ptr)
vec_append(&sys->memory, &ptr, sizeof(&ptr)); vec_append(&sys->memory, &ptr, sizeof(&ptr));
} }
u64 sys_cost(sys_t *sys)
{
return sym_table_cost(&sys->symtable) + sys->memory.capacity;
}
void sys_free(sys_t *sys) void sys_free(sys_t *sys)
{ {
static_assert(NUM_TAGS == 5); static_assert(NUM_TAGS == 5);