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

Added tutorial

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-02-19 15:28:29 +03:00
parent b7271d167a
commit b0e5bc26e3
10 changed files with 153 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
runtime/runtime.c
View file

@ -382,11 +382,18 @@ static void printStringBuf (char *fmt, ...) {
vprintStringBuf (fmt, args);
}
int is_valid_heap_pointer (void *p);
static void printValue (void *p) {
data *a = (data*) BOX(NULL);
int i = BOX(0);
if (UNBOXED(p)) printStringBuf ("%d", UNBOX(p));
else {
if (! is_valid_heap_pointer(p)) {
printStringBuf ("0x%x", p);
return;
}
a = TO_DATA(p);
switch (TAG(a->tag)) {
@ -398,7 +405,7 @@ static void printValue (void *p) {
printStringBuf ("<closure ");
for (i = 0; i < LEN(a->tag); i++) {
if (i) printValue ((void*)((int*) a->contents)[i]);
else printStringBuf ("%x", (void*)((int*) a->contents)[i]);
else printStringBuf ("0x%x", (void*)((int*) a->contents)[i]);
if (i != LEN(a->tag) - 1) printStringBuf (", ");
}
@ -453,7 +460,7 @@ static void printValue (void *p) {
break;
default:
printStringBuf ("*** invalid tag: %x ***", TAG(a->tag));
printStringBuf ("*** invalid tag: 0x%x ***", TAG(a->tag));
}
}
}
@ -494,7 +501,7 @@ static void stringcat (void *p) {
break;
default:
printStringBuf ("*** invalid tag: %x ***", TAG(a->tag));
printStringBuf ("*** invalid tag: 0x%x ***", TAG(a->tag));
}
}
}
@ -1437,6 +1444,10 @@ static void gc_swap_spaces (void) {
# define IS_FORWARD_PTR(p) \
(!UNBOXED(p) && IN_PASSIVE_SPACE(p))
int is_valid_heap_pointer (void *p) {
return IS_VALID_HEAP_POINTER(p);
}
extern size_t * gc_copy (size_t *obj);
static void copy_elements (size_t *where, size_t *from, int len) {