src/bytecode.c (exec_byte_code) Unroll Blist3 and Blist4

* src/bytecode.c (exec_byte_code): Unroll Blist3 and Blist4
(bug#35321).
This commit is contained in:
Alexander Gramiak 2019-06-23 19:35:26 +02:00 committed by Lars Ingebrigtsen
parent d8ebb997c1
commit 807b21dc40

View file

@ -884,12 +884,12 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
CASE (Blist3):
DISCARD (2);
TOP = Flist (3, &TOP);
TOP = list3 (TOP, top[1], top[2]);
NEXT;
CASE (Blist4):
DISCARD (3);
TOP = Flist (4, &TOP);
TOP = list4 (TOP, top[1], top[2], top[3]);
NEXT;
CASE (BlistN):