mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

render data_relocs vector

Browse source
This commit is contained in:
Andrea Corallo 2019-08-16 21:49:56 +02:00 • committed by Andrea Corallo
parent 311c278c5b
commit f4603ab674
2 changed files with 28 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -773,6 +773,9 @@ the annotation emission."
(comp-emit-block 'entry)
(comp-emit-annotation (concat "Lisp function: "
(symbol-name (comp-func-symbol-name func))))
(comp-emit `(const-vector ,(concat (comp-func-c-func-name func) "_data_relocs")
,(prin1-to-string (aref (comp-func-byte-func func)
2))))
(if (comp-args-p args)
(cl-loop for i below (comp-args-max args)
do (cl-incf (comp-sp))
@ -809,7 +812,8 @@ the annotation emission."
;; Once we have the final LIMPLE we jump into C.
(comp-init-ctxt)
(comp-add-func-to-ctxt func)
(comp-compile-and-load-ctxt)
(comp-compile-ctxt-to-file (symbol-name func-symbol-name))
;; (comp-compile-and-load-ctxt)
(comp-release-ctxt)))
(error "Trying to native compile something not a function")))