master 4fff3ed: Deduplicate non-fixnum numeric constants in byte-compilation

[Mattias Engdegård]

branch: master
commit 4fff3edec8cc3e7b0125276b9e297a2b445702ad
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Deduplicate non-fixnum numeric constants in byte-compilation
    
    * lisp/emacs-lisp/bytecomp.el (byte-compile-get-constant):
    Use eql for looking up constants instead of eq, allowing
    for bignum and flonum deduplication (bug#38708).
---
 lisp/emacs-lisp/bytecomp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 118356e..60dbae1 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3462,7 +3462,7 @@ for symbols generated by the byte compiler itself."
               (if (equal-including-properties (car elt) ,const)
                   (setq result elt)))
             result)
-        (assq ,const byte-compile-constants))
+        (assoc ,const byte-compile-constants #'eql))
        (car (setq byte-compile-constants
                  (cons (list ,const) byte-compile-constants)))))