mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Merge 'scratch/no-purespace' into 'feature/igc'

Browse source
This commit is contained in:
Pip Cet 2025-02-01 16:47:32 +00:00
commit f455ff2687
3 changed files with 26 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -42,6 +42,7 @@
(defvar comp-subr-arities-h)
(defvar native-comp-eln-load-path)
(defvar native-comp-enable-subr-trampolines)
(defvar comp--\#$)
(declare-function comp--compile-ctxt-to-file0 "comp.c")
(declare-function comp--init-ctxt "comp.c")
@ -3254,10 +3255,9 @@ Set it into the `type' slot."
;; from the corresponding m-var.
collect (if (gethash obj
(comp-ctxt-byte-func-to-func-h comp-ctxt))
;; 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"))
;; This prints as #$, so we can assert this
;; value does not remain in the data vector
comp--\#$
obj))))
(defun comp--finalize-relocs ()