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

fix debug print

Browse source
This commit is contained in:
danyabeerzun 2018-12-05 19:06:07 +03:00
parent bff4ae225e
commit b23e870890
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
runtime/runtime.c
View file

@ -8,7 +8,7 @@
# include <sys/mman.h> # include <sys/mman.h>
# include <assert.h> # include <assert.h>
# define DEBUG_PRINT 1 // # define DEBUG_PRINT 1
# define STRING_TAG 0x00000001 # define STRING_TAG 0x00000001
# define ARRAY_TAG 0x00000003 # define ARRAY_TAG 0x00000003
@ -184,8 +184,10 @@ extern void* Barray (int n, ...) {
va_list args; va_list args;
int i = 1; int i = 1;
data *r = NULL; data *r = NULL;
#ifdef DEBUG_PRINT
printf ("Barray: create n = %d\n", n); printf ("Barray: create n = %d\n", n);
fflush(stdout); fflush(stdout);
#endif
r = (data*) alloc (sizeof(int) * (n+1)); r = (data*) alloc (sizeof(int) * (n+1));
r->tag = ARRAY_TAG | (n << 3); r->tag = ARRAY_TAG | (n << 3);
@ -544,8 +546,10 @@ extern size_t * gc_copy (size_t *obj) {
} }
if (IS_FORWARD_PTR(d->tag)) { if (IS_FORWARD_PTR(d->tag)) {
#ifdef DEBUG_PRINT
printf ("gc_copy: IS_FORWARD_PTR: return! %x\n", (size_t *) d->tag); printf ("gc_copy: IS_FORWARD_PTR: return! %x\n", (size_t *) d->tag);
fflush(stdout); fflush(stdout);
#endif
return (size_t *) d->tag; return (size_t *) d->tag;
} }
@ -555,8 +559,10 @@ extern size_t * gc_copy (size_t *obj) {
#endif #endif
switch (TAG(d->tag)) { switch (TAG(d->tag)) {
case ARRAY_TAG: case ARRAY_TAG:
#ifdef DEBUG_PRINT
printf ("gc_copy:array_tag; len = %zu\n", LEN(d->tag)); printf ("gc_copy:array_tag; len = %zu\n", LEN(d->tag));
fflush(stdout); fflush(stdout);
#endif
current += (LEN(d->tag) + 1) * sizeof (int); current += (LEN(d->tag) + 1) * sizeof (int);
*copy = d->tag; *copy = d->tag;
copy++; copy++;
@ -564,8 +570,10 @@ extern size_t * gc_copy (size_t *obj) {
copy_elements (copy, obj, LEN(d->tag)); copy_elements (copy, obj, LEN(d->tag));
break; break;
case STRING_TAG: case STRING_TAG:
#ifdef DEBUG_PRINT
printf ("gc_copy:string_tag \n"); printf ("gc_copy:string_tag \n");
current += (LEN(d->tag) + 1) * sizeof (int); current += (LEN(d->tag) + 1) * sizeof (int);
#endif
*copy = d->tag; *copy = d->tag;
copy++; copy++;
d->tag = (int) copy; d->tag = (int) copy;