From abea2b728bcd23469683f93d42ef663b144ea9e5 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 9 Jun 2008 11:37:36 +0200 Subject: [PATCH] Given that reg0 contains always VALUES(0), we can simplify OP_JT and OP_JNIL. --- src/c/interpreter.d | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c/interpreter.d b/src/c/interpreter.d index bef47c055..e3c4c7af0 100644 --- a/src/c/interpreter.d +++ b/src/c/interpreter.d @@ -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; }