* Have null' and not' explicit in LIMPLE so we inline them

* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Generate explicit `eq' call in LIMPLE for LAP opcode 'not'.
2022-02-04 15:45:42 +01:00 · 2022-02-04 15:45:42 +01:00 · dcf30f14f9
commit dcf30f14f9
parent 9a8796f067
1 changed files with 3 additions and 1 deletions
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@ -1832,7 +1832,9 @@ and the annotation emission."
      (byte-listp auto)
      (byte-eq auto)
      (byte-memq auto)
-      (byte-not null)
+      (byte-not
+       (comp-emit-set-call (comp-call 'eq (comp-slot-n (comp-sp))
+                                      (make-comp-mvar :constant nil))))
      (byte-car auto)
      (byte-cdr auto)
      (byte-cons auto)