18 lines
510 B
C
18 lines
510 B
C
|
case OP_MOD: {
|
||
|
|
Value b = pop_value(vm);
|
||
|
|
Value a = pop_value(vm);
|
||
|
|
if (a.type != VAL_INT || b.type != VAL_INT) {
|
||
|
|
fprintf(stderr, "Runtime type error: MOD expects ints, got %s and %s\n",
|
||
|
|
value_type_name(a.type), value_type_name(b.type));
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
if (b.i == 0) {
|
||
|
|
fprintf(stderr, "Runtime error: modulo by zero\n");
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
Value res = make_int(a.i % b.i);
|
||
|
|
free_value(a);
|
||
|
|
free_value(b);
|
||
|
|
push_value(vm, res);
|
||
|
|
break;
|
||
|
|
}
|