From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 11 Aug 2019 12:41:35 +0000 (+0200)
Subject: mark todos
X-Git-Tag: emacs-28.0.90~2727^2~1294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb8f8f5cfa0f66729c6c6a333bee5bd4ba16c24c;p=emacs.git

mark todos
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 3789a517740..9bf60d1f3cb 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -519,7 +519,7 @@ the annotation emission."
        (comp-emit `(call set_internal
                          ,(make-comp-mvar :constant arg)
                          ,(comp-slot))))
-      (byte-varbind
+      (byte-varbind ;; Verify
        (comp-emit `(call specbind
                          ,(make-comp-mvar :constant arg)
                          ,(comp-slot-next))))
@@ -618,7 +618,7 @@ the annotation emission."
       (byte-widen
        (comp-emit-set-call '(call Fwiden)))
       (byte-end-of-line auto)
-      (byte-constant2)
+      (byte-constant2) ;; TODO
       (byte-goto
        (comp-emit-jump (comp-lap-to-limple-bb (cl-third insn))))
       (byte-goto-if-nil
@@ -685,7 +685,7 @@ the annotation emission."
       (byte-stack-set
        (comp-with-sp (1+ (comp-sp))
          (comp-copy-slot (comp-sp) (- (comp-sp) arg))))
-      (byte-stack-set2)
+      (byte-stack-set2) ;; TODO
       (byte-discardN
        (comp-stack-adjust (- arg)))
       (byte-switch