mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

separate code

Browse Source
This commit is contained in:
Andrea Corallo 2019-07-21 13:57:51 +02:00 committed by Andrea Corallo
parent 976357769f
commit a2cf65d203
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,6 +121,9 @@ LIMPLE basic block.")
(type nil (type nil
:documentation "When non nil is used for type propagation.")) :documentation "When non nil is used for type propagation."))
;;; Limplification pass specific code.
(cl-defstruct (comp-limplify (:copier nil)) (cl-defstruct (comp-limplify (:copier nil))
"Support structure used during limplification." "Support structure used during limplification."
(sp 0 :type 'fixnum (sp 0 :type 'fixnum
@ -659,6 +662,9 @@ the annotation emission."
(cl-prettyprint (comp-func-ir func))) (cl-prettyprint (comp-func-ir func)))
func)) func))
;;; Entry points.
(defun native-compile (fun) (defun native-compile (fun)
"FUN is the function definition to be compiled into native code." "FUN is the function definition to be compiled into native code."
(if-let ((f (symbol-function fun))) (if-let ((f (symbol-function fun)))