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

do not allocate symbols inside vm

This commit is contained in:
Yuichi Nishiwaki 2015-08-05 09:03:38 +09:00
parent 9d25be2e76
commit a12be32f19
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extlib/benz/vm.c
View File

@ -403,6 +403,9 @@ static pic_value
vm_gref(pic_state *pic, struct pic_box *slot, pic_sym *uid) vm_gref(pic_state *pic, struct pic_box *slot, pic_sym *uid)
{ {
if (pic_invalid_p(slot->value)) { if (pic_invalid_p(slot->value)) {
if (uid == NULL) {
uid = pic_intern(pic, "unknown"); /* FIXME */
}
pic_errorf(pic, "uninitialized global variable: ~a", uid); pic_errorf(pic, "uninitialized global variable: ~a", uid);
} }
return slot->value; return slot->value;
@ -630,7 +633,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
NEXT; NEXT;
} }
CASE(OP_GREF) { CASE(OP_GREF) {
PUSH(vm_gref(pic, pic_box_ptr(pic->ci->irep->pool[c.u.i]), pic_intern(pic, "unknown"))); /* FIXME */ PUSH(vm_gref(pic, pic_box_ptr(pic->ci->irep->pool[c.u.i]), NULL)); /* FIXME */
NEXT; NEXT;
} }
CASE(OP_GSET) { CASE(OP_GSET) {