mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Given that reg0 contains always VALUES(0), we can simplify OP_JT and OP_JNIL.

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

4
src/c/interpreter.d
View file

@ -807,14 +807,14 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
CASE(OP_JNIL); {
cl_oparg jump = GET_OPARG(vector);
NVALUES = 1;
if (Null(VALUES(0)))
if (Null(reg0))
vector += jump - OPARG_SIZE;
THREAD_NEXT;
}
CASE(OP_JT); {
cl_oparg jump = GET_OPARG(vector);
NVALUES = 1;
if (!Null(VALUES(0)))
if (!Null(reg0))
vector += jump - OPARG_SIZE;
THREAD_NEXT;
}