conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pic_gc_protect now returns a value

This commit is contained in:
Yuichi Nishiwaki 2014-03-24 15:14:54 +09:00
parent f2717910d0
commit af80ba6b36
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin.h
View File

@ -121,7 +121,7 @@ struct pic_object *pic_obj_alloc_unsafe(pic_state *, size_t, enum pic_tt);
void pic_free(pic_state *, void *);
void pic_gc_run(pic_state *);
void pic_gc_protect(pic_state *, pic_value);
pic_value pic_gc_protect(pic_state *, pic_value);
int pic_gc_arena_preserve(pic_state *);
void pic_gc_arena_restore(pic_state *, int);

6
src/gc.c
View File

@ -183,17 +183,19 @@ gc_protect(pic_state *pic, struct pic_object *obj)
pic->arena[pic->arena_idx++] = obj;
}
void
pic_value
pic_gc_protect(pic_state *pic, pic_value v)
{
struct pic_object *obj;
if (pic_vtype(v) != PIC_VTYPE_HEAP) {
return;
return v;
}
obj = pic_obj_ptr(v);
gc_protect(pic, obj);
return v;
}
int