19 lines
591 B
C
19 lines
591 B
C
|
case OP_NEQ: {
|
||
|
|
Value b = pop_value(vm);
|
||
|
|
Value a = pop_value(vm);
|
||
|
|
int neq = 1;
|
||
|
|
if (a.type == b.type) {
|
||
|
|
switch (a.type) {
|
||
|
|
case VAL_INT: neq = (a.i != b.i); break;
|
||
|
|
case VAL_STRING: neq = (a.s && b.s) ? (strcmp(a.s, b.s) != 0) : (a.s != b.s); break;
|
||
|
|
case VAL_FUNCTION: neq = (a.fn != b.fn); break;
|
||
|
|
case VAL_NIL: neq = 0; break;
|
||
|
|
default: neq = 1; break;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
neq = 1;
|
||
|
|
}
|
||
|
|
push_value(vm, make_int(neq ? 1 : 0));
|
||
|
|
free_value(a); free_value(b);
|
||
|
|
break;
|
||
|
|
}
|