admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

codegen.c: order instructions in natural order for loops.

Browse Source 
`while` and `until` generates in `cond` `jmpif` `body` `jmp` order.
It used to be in `jmp` `body` `cond` `jmpif` order.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2021-07-29 17:38:18 +09:00
parent 5cde5983d9
commit 517071e3fa
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-compiler/core/codegen.c
+10 -12
View File
@@ -1938,14 +1938,13 @@ codegen(codegen_scope *s, node *tree, int val)
if (!val) lp->acc = -1;
lp->pc0 = new_label(s);
pos = genjmp_0(s, OP_JMP);
lp->pc1 = new_label(s);
codegen(s, tree->cdr, NOVAL);
dispatch(s, pos);
codegen(s, tree->car, VAL);
pop();
genjmp2(s, OP_JMPIF, cursp(), lp->pc1, NOVAL);
pos = genjmp2_0(s, OP_JMPNOT, cursp(), NOVAL);
lp->pc1 = new_label(s);
codegen(s, tree->cdr, NOVAL);
genjmp(s, OP_JMP, lp->pc0);
dispatch(s, pos);
loop_pop(s, val);
}
break;
@@ -1957,14 +1956,13 @@ codegen(codegen_scope *s, node *tree, int val)
if (!val) lp->acc = -1;
lp->pc0 = new_label(s);
pos = genjmp_0(s, OP_JMP);
lp->pc1 = new_label(s);
codegen(s, tree->cdr, NOVAL);
dispatch(s, pos);
codegen(s, tree->car, VAL);
pop();
genjmp2(s, OP_JMPNOT, cursp(), lp->pc1, NOVAL);
pos = genjmp2_0(s, OP_JMPIF, cursp(), NOVAL);
lp->pc1 = new_label(s);
codegen(s, tree->cdr, NOVAL);
genjmp(s, OP_JMP, lp->pc0);
dispatch(s, pos);
loop_pop(s, val);
}
break;