mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

Since OP_JT/JNIL check reg0, we can simplify the bytecodes for WHILE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-09 11:38:34 +02:00
parent abea2b728b
commit ee88cc241e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -1046,7 +1046,7 @@ c_while_until(cl_object body, int flags, bool is_while) {
/* Compile test */
asm_complete(OP_JMP, labelt);
compile_form(test, FLAG_VALUES);
compile_form(test, FLAG_REG0);
asm_op(is_while? OP_JT : OP_JNIL);
asm_arg(labelb - current_pc());