From: Alexander Gramiak <agrambot@gmail.com>
Date: Sun, 23 Jun 2019 17:35:26 +0000 (+0200)
Subject: src/bytecode.c (exec_byte_code) Unroll Blist3 and Blist4
X-Git-Tag: emacs-27.0.90~2299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=807b21dc40ebdb855e61b4ee6ddf0b227d91b728;p=emacs.git

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

* src/bytecode.c (exec_byte_code): Unroll Blist3 and Blist4
(bug#35321).
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 6f601cf0cd5..29dff44f007 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -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):