From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 22 Dec 2019 11:09:06 +0000 (+0100)
Subject: Deduplicate non-fixnum numeric constants in byte-compilation
X-Git-Tag: emacs-28.0.90~7929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fff3edec8cc3e7b0125276b9e297a2b445702ad;p=emacs.git

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).
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 118356ec26a..60dbae1d4bc 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)))))