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

emit TAG number as comment

Browse source
This commit is contained in:
Andrea Corallo 2019-10-24 22:19:14 +02:00
parent face460c41
commit cf72d9de0f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -796,10 +796,11 @@ the annotation emission."
(cdr insn))))
(comp-op-case
(TAG
(cl-destructuring-bind (_TAG _label-num . label-sp) insn
(cl-destructuring-bind (_TAG label-num . label-sp) insn
;; Paranoid?
(when label-sp
(cl-assert (= (1- label-sp) (comp-limplify-sp comp-pass))))))
(cl-assert (= (1- label-sp) (comp-limplify-sp comp-pass))))
(comp-emit-annotation (format "LAP TAG %d" label-num))))
(byte-stack-ref
(comp-copy-slot (- (comp-sp) arg 1)))
(byte-varref