From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 18 Aug 2019 15:17:56 +0000 (+0200)
Subject: add funcs into comp-ctxt
X-Git-Tag: emacs-28.0.90~2727^2~1260
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f6362207f7d39b5fb10b2968d238e37848a5a9d;p=emacs.git

add funcs into comp-ctxt
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index fe92252405e..486a7068be5 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -77,8 +77,17 @@
     "Hash table lap-op -> stack adjustment."))
 
 (cl-defstruct comp-ctxt
+  "This structure is to serve al relocation creation for the current compiler
+ context."
+  (funcs () :type list
+         :documentation "Alist lisp-func-name -> c-func-name.
+This is build before entering into `comp--compile-ctxt-to-file name'.")
+  (funcs-h (make-hash-table) :type hash-table
+           :documentation "lisp-func-name -> c-func-name.
+This is to build the prev field.")
   (data-relocs () :type string
-               :documentation "Final data relocations.")
+               :documentation "Final data relocations.
+This is build before entering into `comp--compile-ctxt-to-file name'.")
   (data-relocs-l () :type list
                :documentation "Constant objects used by functions.")
   (data-relocs-idx (make-hash-table :test #'equal) :type hash-table
@@ -171,14 +180,6 @@ The corresponding index into it is returned."
       (push obj (comp-ctxt-data-relocs-l comp-ctxt))
       (puthash obj (hash-table-count data-relocs-idx) data-relocs-idx))))
 
-(defun comp-compile-ctxt-to-file (name)
-  "Compile as native code the current context naming it NAME."
-  (cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt))
-                (hash-table-count (comp-ctxt-data-relocs-idx comp-ctxt))))
-  (setf (comp-ctxt-data-relocs comp-ctxt)
-        (prin1-to-string  (vconcat (reverse (comp-ctxt-data-relocs-l comp-ctxt)))))
-  (comp--compile-ctxt-to-file name))
-
 (defmacro comp-within-log-buff (&rest body)
   "Execute BODY while at the end the log-buffer.
 BODY is evaluate only if `comp-debug' is non nil."
@@ -822,6 +823,29 @@ the annotation emission."
     (comp-log-func func)
     func))
 
+
+;;; C function wrappers
+
+(defun comp-compile-ctxt-to-file (name)
+  "Compile as native code the current context naming it NAME."
+  (cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt))
+                (hash-table-count (comp-ctxt-data-relocs-idx comp-ctxt))))
+  (setf (comp-ctxt-data-relocs comp-ctxt)
+        (prin1-to-string  (vconcat (reverse (comp-ctxt-data-relocs-l comp-ctxt)))))
+  (setf (comp-ctxt-funcs comp-ctxt)
+        (cl-loop with h = (comp-ctxt-funcs-h comp-ctxt)
+                 for f being each hash-keys of h
+                 using (hash-value c-f)
+                 collect (cons (symbol-name f) c-f)))
+  (comp--compile-ctxt-to-file name))
+
+(defun comp-add-func-to-ctxt (func)
+  "Add FUNC to the current compiler contex."
+  (puthash (comp-func-symbol-name func)
+           (comp-func-c-func-name func)
+           (comp-ctxt-funcs-h comp-ctxt))
+  (comp--add-func-to-ctxt func))
+
 
 ;;; Entry points.
 
@@ -841,7 +865,7 @@ the annotation emission."
                 comp-passes)
           ;; Once we have the final LIMPLE we jump into C.
           (comp--init-ctxt)
-          (comp--add-func-to-ctxt func)
+          (comp-add-func-to-ctxt func)
           (comp-compile-ctxt-to-file (symbol-name func-symbol-name))
           ;; (comp-compile-and-load-ctxt)
           (comp--release-ctxt)))