Change EQ to move slow code path into a separate function

    * src/data.c (slow_eq): New function.
    * src/lisp.h (EQ): Call it.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/data.c b/src/data.c
index 5b3c9792ea0..333d908aedc 100644
--- a/src/data.c
+++ b/src/data.c
@@ -155,6 +155,16 @@ circular_list (Lisp_Object list)
 
 /* Data type predicates.  */
 
+/* NO_INLINE to avoid excessive code growth when LTO is in use.  */
+NO_INLINE bool
+slow_eq (Lisp_Object x, Lisp_Object y)
+{
+  return BASE_EQ ((symbols_with_pos_enabled && SYMBOL_WITH_POS_P (x)
+                   ? XSYMBOL_WITH_POS_SYM (x) : x),
+                  (symbols_with_pos_enabled && SYMBOL_WITH_POS_P (y)
+                   ? XSYMBOL_WITH_POS_SYM (y) : y));
+}
+
 DEFUN ("eq", Feq, Seq, 2, 2, 0,
        doc: /* Return t if the two args are the same Lisp object.  */
        attributes: const)