From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 24 Mar 2020 18:47:39 +0000 (+0000)
Subject: * comp.c (emit_mvar_access): Fix speed 1 compilation
X-Git-Tag: emacs-28.0.90~2727^2~744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb0496e7e55a7fca89c51eb0b85dcfa6904ea3ec;p=emacs.git

* comp.c (emit_mvar_access): Fix speed 1 compilation

At speed 1 propagate does not run and all mvars are allocated in array
0.
---

diff --git a/src/comp.c b/src/comp.c
index 3205a29a104..d72d6acc8ef 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -388,7 +388,7 @@ emit_mvar_access (Lisp_Object mvar)
 
   EMACS_INT arr_idx = XFIXNUM (CALL1I (comp-mvar-array-idx, mvar));
   EMACS_INT slot_n = XFIXNUM (mvar_slot);
-  if (comp.func_has_non_local || !SPEED)
+  if (comp.func_has_non_local || (SPEED < 2))
     return comp.arrays[arr_idx][slot_n];
   else
     {