Speed up = on fixnums in bytecode

Now that EQ has become expensive, use BASE_EQ where possible.

* src/bytecode.c (exec_byte_code): Use cheaper operation for Beqlsign.
This commit is contained in:
Mattias Engdegård
2022-02-03 10:26:27 +01:00
parent a602e86bc1
commit 89bb5a5f35

View File

@@ -1060,7 +1060,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
Lisp_Object v2 = POP;
Lisp_Object v1 = TOP;
if (FIXNUMP (v1) && FIXNUMP (v2))
TOP = EQ (v1, v2) ? Qt : Qnil;
TOP = BASE_EQ(v1, v2) ? Qt : Qnil;
else
TOP = arithcompare (v1, v2, ARITH_EQUAL);
NEXT;