diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-12-18 21:58:15 +0100 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-12-18 23:17:34 +0100 |
| commit | b86e4747e66febd400055cb6279238fb95f8a59d (patch) | |
| tree | 05956e50e91db8f3a32d368f5990b344f100310f /lisp/emacs-lisp | |
| parent | 9e99c43d2f5dc5dc2632ad616d224f3bd9cf63c4 (diff) | |
| download | emacs-b86e4747e66febd400055cb6279238fb95f8a59d.tar.gz emacs-b86e4747e66febd400055cb6279238fb95f8a59d.tar.bz2 emacs-b86e4747e66febd400055cb6279238fb95f8a59d.zip | |
* Make again `comp--finalize-container' compilable
* lisp/emacs-lisp/comp.el (comp--finalize-container): Don't emit
'--lambda-fixup' immediate in data relocations.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index dbd14b2740d..ab6fd77f11a 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 () |