mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00
Code Issues Projects Releases Wiki Activity

mark todos

Browse source
This commit is contained in:
Andrea Corallo 2019-08-11 14:41:35 +02:00 • committed by Andrea Corallo
parent 7dc99d5d51
commit bb8f8f5cfa
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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