st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

FCF + GC

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-10-16 22:01:57 +03:00
parent d99588a6db
commit 1d28f4af6b
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
runtime/runtime.c
View file

@ -276,7 +276,7 @@ extern void* Bclosure (int n, void *entry, ...) {
#endif
r = (data*) alloc (sizeof(int) * (n+2));
r->tag = CLOSURE_TAG | (n << 3);
r->tag = CLOSURE_TAG | ((n + 1) << 3);
((void**) r->contents)[0] = entry;
va_start(args, n);
@ -528,8 +528,8 @@ extern void __gc_root_scan_stack ();
/* Mark-and-copy */
/* ======================================== */
//static size_t SPACE_SIZE = 128;
static size_t SPACE_SIZE = 1280;
static size_t SPACE_SIZE = 128;
//static size_t SPACE_SIZE = 1280;
# define POOL_SIZE (2*SPACE_SIZE)
static void swap (size_t ** a, size_t ** b) {
@ -650,11 +650,10 @@ extern size_t * gc_copy (size_t *obj) {
current += (LEN(d->tag) + 1) * sizeof (int);
*copy = d->tag;
copy++;
*copy = d->contents[0];
copy++;
i = LEN(d->tag) - 1;
d->tag = (int) (copy-1);
copy_elements (copy, obj, i);
d->tag = (int) copy;
*copy = obj[0];
copy_elements (copy, obj++, i);
break;
case ARRAY_TAG:
@ -818,7 +817,7 @@ static void printFromSpace (void) {
case CLOSURE_TAG:
printf ("(=>%p): CLOSURE\n\t", d->contents);
len = LEN(d->tag);
for (int i = 1; i < len; i++) {
for (int i = 0; i < len; i++) {
int elem = ((int*)d->contents)[i];
if (UNBOXED(elem)) printf ("%d ", elem);
else printf ("%p ", elem);