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

more fix on misc functions in vm.c

This commit is contained in:
Yuichi Nishiwaki 2014-09-26 17:39:11 +09:00
parent 5cfa89ba23
commit 36328c154b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
vm.c
View File

@ -280,14 +280,14 @@ pic_get_args(pic_state *pic, const char *format, ...)
break; break;
} }
case 'c': { case 'c': {
char *c; char *k;
pic_value v; pic_value v;
c = va_arg(ap, char *); k = va_arg(ap, char *);
if (i < argc) { if (i < argc) {
v = GET_OPERAND(pic,i); v = GET_OPERAND(pic,i);
if (pic_char_p(v)) { if (pic_char_p(v)) {
*c = pic_char(v); *k = pic_char(v);
} }
else { else {
pic_errorf(pic, "pic_get_args: expected char, but got ~s", v); pic_errorf(pic, "pic_get_args: expected char, but got ~s", v);
@ -488,7 +488,7 @@ vm_push_env(pic_state *pic)
{ {
pic_callinfo *ci = pic->ci; pic_callinfo *ci = pic->ci;
ci->env = (struct pic_env *)pic_obj_alloc(pic, offsetof(struct pic_env, storage) + sizeof(pic_value) * ci->regc, PIC_TT_ENV); ci->env = (struct pic_env *)pic_obj_alloc(pic, offsetof(struct pic_env, storage) + sizeof(pic_value) * (size_t)(ci->regc), PIC_TT_ENV);
ci->env->up = ci->up; ci->env->up = ci->up;
ci->env->regc = ci->regc; ci->env->regc = ci->regc;
ci->env->regs = ci->regs; ci->env->regs = ci->regs;