lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some boehm gc tweaks

This commit is contained in:
JeffBezanson 2010-05-02 23:23:00 +00:00
parent a2b57453cb
commit 23b728155f
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
femtolisp/cvalues.c
View File

@ -671,9 +671,6 @@ value_t cvalue_relocate(value_t v)
if (t->vtable != NULL && t->vtable->relocate != NULL)
t->vtable->relocate(v, ncv);
forward(v, ncv);
#ifdef BOEHM_GC
cv->data = NULL;
#endif
return ncv;
}

6
femtolisp/flisp.c
View File

@ -245,7 +245,7 @@ static symbol_t *mk_symbol(char *str)
symbol_t *sym;
size_t len = strlen(str);
sym = (symbol_t*)LLT_ALLOC(sizeof(symbol_t)-sizeof(void*) + len + 1);
sym = (symbol_t*)malloc(sizeof(symbol_t)-sizeof(void*) + len + 1);
assert(((uptrint_t)sym & 0x7) == 0); // make sure malloc aligns 8
sym->left = sym->right = NULL;
sym->flags = 0;
@ -602,7 +602,7 @@ void gc(int mustgrow)
static void grow_stack()
{
size_t newsz = N_STACK + (N_STACK>>1);
value_t *ns = LLT_REALLOC(Stack, newsz*sizeof(value_t));
value_t *ns = realloc(Stack, newsz*sizeof(value_t));
if (ns == NULL)
lerror(MemoryError, "stack overflow");
Stack = ns;
@ -2163,7 +2163,7 @@ static void lisp_init(size_t initial_heapsize)
htable_new(&printconses, 32);
comparehash_init();
N_STACK = 262144;
Stack = LLT_ALLOC(N_STACK*sizeof(value_t));
Stack = malloc(N_STACK*sizeof(value_t));
FL_NIL = NIL = builtin(OP_THE_EMPTY_LIST);
FL_T = builtin(OP_BOOL_CONST_T);