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

rm extra code

Browse source
This commit is contained in:
danyabeerzun 2018-12-12 19:35:31 +03:00
parent aac34c34ea
commit dde29143db
1 changed files with 0 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
runtime/runtime.c
View file

@ -228,10 +228,6 @@ extern void* Barray (int n, ...) {
return r->contents; return r->contents;
} }
extern int __IS_VALID_HEAP_POINTER(size_t *p);
extern int __IN_PASSIVE_SPACE(size_t * p);
extern int __IS_FORWARD_PTR(size_t * p);
extern void* Bsexp (int n, ...) { extern void* Bsexp (int n, ...) {
va_list args = (va_list) BOX (NULL); va_list args = (va_list) BOX (NULL);
int i = BOX(0); int i = BOX(0);
@ -257,11 +253,6 @@ extern void* Bsexp (int n, ...) {
ai = va_arg(args, int); ai = va_arg(args, int);
p = (size_t*) ai; p = (size_t*) ai;
if (!UNBOXED(p) && __IN_PASSIVE_SPACE(p) && __IS_FORWARD_PTR((size_t*)*(p-1))){
printf ("Bsexp: %p\n", p);
fflush(stdout);
}
((int*)d->contents)[i] = ai; ((int*)d->contents)[i] = ai;
} }
@ -468,16 +459,6 @@ static void gc_swap_spaces (void) {
# define IS_FORWARD_PTR(p) \ # define IS_FORWARD_PTR(p) \
(!UNBOXED(p) && IN_PASSIVE_SPACE(p)) (!UNBOXED(p) && IN_PASSIVE_SPACE(p))
int __IS_VALID_HEAP_POINTER(size_t *p) {
return IS_VALID_HEAP_POINTER(p);
}
int __IN_PASSIVE_SPACE(size_t * p) {
return IN_PASSIVE_SPACE(p);
}
int __IS_FORWARD_PTR(size_t * p) {
return IS_FORWARD_PTR(p);
}
extern size_t * gc_copy (size_t *obj); extern size_t * gc_copy (size_t *obj);
static void copy_elements (size_t *where, size_t *from, int len) { static void copy_elements (size_t *where, size_t *from, int len) {