]> git.eshelyaron.com Git - emacs.git/commitdiff
* Have `null' and `not' explicit in LIMPLE so we inline them
authorAndrea Corallo <akrl@sdf.org>
Fri, 4 Feb 2022 14:45:42 +0000 (15:45 +0100)
committerAndrea Corallo <akrl@sdf.org>
Fri, 4 Feb 2022 14:56:34 +0000 (15:56 +0100)
* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Generate explicit
`eq' call in LIMPLE for LAP opcode 'not'.

lisp/emacs-lisp/comp.el

index 9c2fc93821ef750a6f7b3a16c34f0deca57e0266..122638077cedf103c2cc046d96375b078eb16207 100644 (file)
@@ -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)