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

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

@ -84,8 +84,8 @@
(output nil :type 'string (output nil :type 'string
:documentation "Target output filename for the compilation.") :documentation "Target output filename for the compilation.")
(top-level-defvars nil :type list (top-level-defvars nil :type list
:documentation "List of top level form to be compiled.") :documentation "List of top level form to be exp.")
(funcs () :type list (exp-funcs () :type list
:documentation "Exported functions list.") :documentation "Exported functions list.")
(funcs-h (make-hash-table) :type hash-table (funcs-h (make-hash-table) :type hash-table
:documentation "lisp-func-name -> comp-func. :documentation "lisp-func-name -> comp-func.
@ -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." Prepare every functions for final compilation and drive the C side."
(cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt)) (cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt))
(hash-table-count (comp-ctxt-data-relocs-idx 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) (cl-loop with h = (comp-ctxt-funcs-h comp-ctxt)
for f being each hash-value of h for f being each hash-value of h
for args = (comp-func-args f) for args = (comp-func-args f)

2
src/comp.c
View file

@ -1801,7 +1801,7 @@ emit_ctxt_code (void)
IMPORTED_FUNC_RELOC_SYM); IMPORTED_FUNC_RELOC_SYM);
/* Exported functions info. */ /* 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); emit_static_object (TEXT_EXPORTED_FUNC_RELOC_SYM, func_list);
SAFE_FREE (); SAFE_FREE ();
} }