cosmetic changes

This commit is contained in:
Yuichi Nishiwaki 2015-07-03 22:09:14 +09:00
parent 029f4aa538
commit a6dbf0067b
1 changed files with 8 additions and 8 deletions

View File

@ -712,14 +712,6 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
} }
NEXT; NEXT;
} }
CASE(OP_NOT) {
pic_value v;
v = pic_false_p(POP()) ? pic_true_value() : pic_false_value();
(void)POP();
PUSH(v);
NEXT;
}
CASE(OP_CALL) { CASE(OP_CALL) {
pic_value x, v; pic_value x, v;
pic_callinfo *ci; pic_callinfo *ci;
@ -876,6 +868,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
NEXT; NEXT;
} }
CASE(OP_CONS) { CASE(OP_CONS) {
pic_value a, b; pic_value a, b;
pic_gc_protect(pic, b = POP()); pic_gc_protect(pic, b = POP());
@ -920,6 +913,13 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
PUSH(pic_bool_value(pic_pair_p(p))); PUSH(pic_bool_value(pic_pair_p(p)));
NEXT; NEXT;
} }
CASE(OP_NOT) {
pic_value v;
v = pic_false_p(POP()) ? pic_true_value() : pic_false_value();
(void)POP();
PUSH(v);
NEXT;
}
#define DEFINE_ARITH_OP(opcode, op, guard) \ #define DEFINE_ARITH_OP(opcode, op, guard) \
CASE(opcode) { \ CASE(opcode) { \