procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix comp-copy-insn for dotted pairs

Browse source
This commit is contained in:
Andrea Corallo 2019-11-10 11:35:49 +01:00
parent 2ee2c67736
commit 26aeca2980
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1439,11 +1439,13 @@ PRE-LAMBDA and POST-LAMBDA are called in pre or post-order if non nil."
(defun comp-copy-insn (insn)
"Deep copy INSN."
(cl-loop for op in insn
collect (cl-typecase op
(cons (comp-copy-insn op))
(comp-mvar (copy-comp-mvar op))
(t op))))
(cond
((and (listp insn) (listp (cdr insn)))
(mapcar #'comp-copy-insn insn))
((consp insn) ; Pair
(cons (car insn) (cdr insn)))
((comp-mvar-p insn) (copy-comp-mvar insn))
(t insn)))
(defun comp-basic-const-propagate ()
"Propagate simple constants for setimm operands.