masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-16 08:50:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix single function top level generation

Browse source
This commit is contained in:
Andrea Corallo 2019-11-24 16:18:51 +01:00
parent 0c94e69fa6
commit 4fc8524df0
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -434,6 +434,8 @@ Put PREFIX in front of it."
(comp-func-lap func) lap
(comp-func-frame-size func)
(comp-byte-frame-size (comp-func-byte-func func))))
(setf (comp-ctxt-top-level-forms comp-ctxt)
(list (make-byte-to-native-function :name function-name)))
(list func))))
(cl-defgeneric comp-spill-lap-function ((filename string))