);
break;
+ case op_lae:
+ push(
+ new_ir2(
+ IR_ADD, EM_pointersize,
+ new_labelir(".hol0"),
+ new_wordir(value)
+ )
+ );
+ break;
+
case op_ste:
appendir(
store(
break;
}
+ case op_exg:
+ {
+ struct ir* v1 = pop(value);
+ struct ir* v2 = pop(value);
+ push(v1);
+ push(v2);
+ break;
+ }
+
case op_asp:
{
switch (value)
);
break;
+ case 2:
+ helper_function(".unimplemented_lor_2");
+ break;
+
default:
fatal("'lor %d' not supported", value);
}
);
break;
+ case 2:
+ helper_function(".unimplemented_str_2");
+ break;
+
default:
fatal("'str %d' not supported", value);
}