This commit is contained in:
Yuichi Nishiwaki 2015-08-04 08:41:33 +09:00
parent 8767d57fbd
commit 261580309e
2 changed files with 2 additions and 4 deletions

View File

@ -392,9 +392,7 @@ gc_mark_object(pic_state *pic, union object *obj)
break; break;
} }
case PIC_TT_RECORD: { case PIC_TT_RECORD: {
struct pic_record *rec = (struct pic_record *)obj; LOOP(obj->rec.data);
LOOP((struct pic_object *)rec->data);
break; break;
} }
case PIC_TT_SYMBOL: { case PIC_TT_SYMBOL: {

View File

@ -91,7 +91,7 @@ struct pic_state {
pic_code *ip; pic_code *ip;
pic_value ptable; pic_value ptable; /* list of registers */
struct pic_lib *lib, *prev_lib; struct pic_lib *lib, *prev_lib;