Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Partially fix SEXP_USE_MALLOC.

Browse source
This commit is contained in:
Dimitris Papavasiliou 2022-01-09 14:44:02 +02:00
parent a127a332ac
commit c2a0bdb2c6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gc.c
View file

@ -37,7 +37,7 @@ static sexp_heap sexp_heap_last (sexp_heap h) {
return h; return h;
} }
#if !SEXP_USE_FIXED_CHUNK_SIZE_HEAPS #if !SEXP_USE_FIXED_CHUNK_SIZE_HEAPS && !SEXP_USE_MALLOC
static size_t sexp_heap_total_size (sexp_heap h) { static size_t sexp_heap_total_size (sexp_heap h) {
size_t total_size = 0; size_t total_size = 0;
for (; h; h=h->next) for (; h; h=h->next)
@ -696,6 +696,7 @@ int sexp_find_fixed_chunk_heap_usage(sexp ctx, size_t size, size_t* sum_freed, s
} }
#endif #endif
#if ! SEXP_USE_MALLOC
void* sexp_alloc (sexp ctx, size_t size) { void* sexp_alloc (sexp ctx, size_t size) {
void *res; void *res;
size_t max_freed, sum_freed, total_size=0; size_t max_freed, sum_freed, total_size=0;
@ -741,6 +742,7 @@ void* sexp_alloc (sexp ctx, size_t size) {
#endif #endif
return res; return res;
} }
#endif
void sexp_gc_init (void) { void sexp_gc_init (void) {