bugfix in pic_get_args
This commit is contained in:
parent
90b691be67
commit
5133e04c39
11
src/vm.c
11
src/vm.c
|
@ -53,9 +53,18 @@ pic_get_args(pic_state *pic, const char *format, ...)
|
||||||
|
|
||||||
f = va_arg(ap, double *);
|
f = va_arg(ap, double *);
|
||||||
if (i < argc) {
|
if (i < argc) {
|
||||||
*f = pic_float(GET_OPERAND(pic,i));
|
pic_value v;
|
||||||
|
|
||||||
|
v = GET_OPERAND(pic, i);
|
||||||
|
if (pic_type(v) == PIC_TT_FLOAT) {
|
||||||
|
*f = pic_float(v);
|
||||||
i++;
|
i++;
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
*f = pic_int(v);
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case 'F':
|
case 'F':
|
||||||
|
|
Loading…
Reference in New Issue