diff options
| author | Andrea Corallo <akrl@sdf.org> | 2022-02-04 15:45:42 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2022-02-04 15:56:34 +0100 |
| commit | dcf30f14f90d13ffe9d1ccca153b17287334060e (patch) | |
| tree | b3d734ea3b69b400da74348a831e4773f5cfa5c6 /lisp | |
| parent | 9a8796f067d1f9d5d0c2c1285dc86b2f577f4f27 (diff) | |
| download | emacs-dcf30f14f90d13ffe9d1ccca153b17287334060e.tar.gz emacs-dcf30f14f90d13ffe9d1ccca153b17287334060e.tar.bz2 emacs-dcf30f14f90d13ffe9d1ccca153b17287334060e.zip | |
* 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'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 9c2fc93821e..122638077ce 100644 --- 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) |