procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rename comp-ctxt-funcs comp-ctxt-exp-funcs

Browse source
This commit is contained in:
Andrea Corallo 2019-09-11 22:18:41 +02:00
parent d6d5062bba
commit 89c144b830
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -84,9 +84,9 @@
(output nil :type 'string
:documentation "Target output filename for the compilation.")
(top-level-defvars nil :type list
:documentation "List of top level form to be compiled.")
(funcs () :type list
:documentation "Exported functions list.")
:documentation "List of top level form to be exp.")
(exp-funcs () :type list
:documentation "Exported functions list.")
(funcs-h (make-hash-table) :type hash-table
:documentation "lisp-func-name -> comp-func.
This is to build the prev field.")
@ -918,7 +918,7 @@ Top level forms for the current context are rendered too."
Prepare every functions for final compilation and drive the C side."
(cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt))
(hash-table-count (comp-ctxt-data-relocs-idx comp-ctxt))))
(setf (comp-ctxt-funcs comp-ctxt)
(setf (comp-ctxt-exp-funcs comp-ctxt)
(cl-loop with h = (comp-ctxt-funcs-h comp-ctxt)
for f being each hash-value of h
for args = (comp-func-args f)

2
src/comp.c
View file

@ -1801,7 +1801,7 @@ emit_ctxt_code (void)
IMPORTED_FUNC_RELOC_SYM);
/* Exported functions info. */
Lisp_Object func_list = FUNCALL1 (comp-ctxt-funcs, Vcomp_ctxt);
Lisp_Object func_list = FUNCALL1 (comp-ctxt-exp-funcs, Vcomp_ctxt);
emit_static_object (TEXT_EXPORTED_FUNC_RELOC_SYM, func_list);
SAFE_FREE ();
}