mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 17:10:51 -08:00
Code Issues Projects Releases Wiki Activity

add stack sanity check

Browse source
This commit is contained in:
Andrea Corallo 2019-10-13 20:22:14 +02:00
parent ca907fe89b
commit a90803a4d1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -745,7 +745,8 @@ the annotation emission."
(cdr insn))))
(comp-op-case
(TAG
(comp-lap-to-limple-bb arg))
;; Paranoically sanity check stack depth.
(cl-assert (= (cddr insn) (comp-limplify-sp comp-pass))))
(byte-stack-ref
(comp-copy-slot (- (comp-sp) arg 1)))
(byte-varref