From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 24 Oct 2019 20:19:14 +0000 (+0200)
Subject: emit TAG number as comment
X-Git-Tag: emacs-28.0.90~2727^2~1059
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf72d9de0f46960d260e3f5eba843ff01f30eff0;p=emacs.git

emit TAG number as comment
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f41731951ea..cda6cdf3583 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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