From 67264c0f2c59933d3b1e5de29c8bd2daffacbe01 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 18 Dec 2024 21:58:15 +0100 Subject: [PATCH] * Make again `comp--finalize-container' compilable * lisp/emacs-lisp/comp.el (comp--finalize-container): Don't emit '--lambda-fixup' immediate in data relocations. (cherry picked from commit b86e4747e66febd400055cb6279238fb95f8a59d) --- lisp/emacs-lisp/comp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 71d3eda9096..f7e81b157a9 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3254,7 +3254,10 @@ Set it into the `type' slot." ;; from the corresponding m-var. collect (if (gethash obj (comp-ctxt-byte-func-to-func-h comp-ctxt)) - 'lambda-fixup + ;; Hack not to have `--lambda-fixup' in + ;; data relocations as it would trigger the + ;; check in 'check_comp_unit_relocs'. + (intern (concat (make-string 1 ?-) "-lambda-fixup")) obj)))) (defun comp--finalize-relocs () -- 2.39.5