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

At speed 1 propagate does not run and all mvars are allocated in array
0.
This commit is contained in:
Andrea Corallo 2020-03-24 18:47:39 +00:00
parent 4acc4ac667
commit bb0496e7e5

View file

@ -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
{