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

add some notes

Browse source
This commit is contained in:
Andrea Corallo 2019-09-16 19:48:13 +02:00
parent 6d1c453726
commit ca28d5fd72
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -222,7 +222,7 @@ LIMPLE basic block.")
(defvar comp-ctxt) ;; FIXME (to be removed) (defvar comp-ctxt) ;; FIXME (to be removed)
;; Special vars used by some passes ;; Special vars used by some passes
(defvar comp-block) (defvar comp-block) ; Can probably be removed
(defvar comp-func) (defvar comp-func)
@ -884,7 +884,7 @@ the annotation emission."
(comp-stack-adjust (- 1 arg)) (comp-stack-adjust (- 1 arg))
(comp-emit-set-call (comp-callref 'insert arg (comp-sp)))) (comp-emit-set-call (comp-callref 'insert arg (comp-sp))))
(byte-stack-set (byte-stack-set
(comp-with-sp (1+ (comp-sp)) (comp-with-sp (1+ (comp-sp)) ;; FIXME!!
(comp-copy-slot (comp-sp) (- (comp-sp) arg)))) (comp-copy-slot (comp-sp) (- (comp-sp) arg))))
(byte-stack-set2 (cl-assert nil)) ;; TODO (byte-stack-set2 (cl-assert nil)) ;; TODO
(byte-discardN (byte-discardN