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

function name as annotation

Browse source
This commit is contained in:
Andrea Corallo 2019-07-10 18:55:19 +02:00 • committed by Andrea Corallo
parent 0bd54f29cb
commit 65918ebff8
2 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -206,6 +206,10 @@ To be used when ncall-conv is nil.")
(setf (comp-mvar-slot (comp-slot)) (comp-sp))
(push (list '=slot (comp-slot) src-slot) comp-limple)))
(defun comp-emit-annotation (str)
"Emit annotation STR."
(push `(comment ,str) comp-limple))
(defun comp-push-const (val)
"Push VAL into frame.
VAL is known at compile time."
@ -294,6 +298,8 @@ VAL is known at compile time."
(comp-limple ()))
;; Prologue
(comp-push-block 'entry)
(comp-emit-annotation (concat "Function: "
(symbol-name (comp-func-symbol-name func))))
(cl-loop for i below (comp-args-mandatory (comp-func-args func))
do (progn
(cl-incf (comp-sp))