]> git.eshelyaron.com Git - emacs.git/commitdiff
* Make again `comp--finalize-container' compilable
authorAndrea Corallo <acorallo@gnu.org>
Wed, 18 Dec 2024 20:58:15 +0000 (21:58 +0100)
committerEshel Yaron <me@eshelyaron.com>
Mon, 3 Feb 2025 11:07:38 +0000 (12:07 +0100)
* 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

index 71d3eda909643c8a58dbdd551ef075666518e8f6..f7e81b157a962e536074df885cf38d2e099caec3 100644 (file)
@@ -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 ()