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