From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 24 Nov 2019 15:18:51 +0000 (+0100)
Subject: fix single function top level generation
X-Git-Tag: emacs-28.0.90~2727^2~949
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fc8524df0e2ce0579d6bc298dc07d1e442587c6;p=emacs.git

fix single function top level generation
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 217b7ffcd86..47d4de87c6b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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))