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

Update copyright years plus two style nits

Browse source
This commit is contained in:
Andrea Corallo 2020-02-16 18:14:35 +01:00
parent 8c108ce607
commit 81c34a35aa
5 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,7 +2,7 @@
;; Author: Andrea Corallo <akrl@sdf.com>
;; Copyright (C) 2019 Free Software Foundation, Inc.
;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
;; Keywords: lisp
;; Package: emacs
@ -1587,8 +1587,8 @@ PRE-LAMBDA and POST-LAMBDA are called in pre or post-order if non nil."
;; Note: this last is just a property of the code generated
;; by the byte-compiler.
(cl-assert (= (comp-mvar-array-idx arg) 0))
(setf (comp-mvar-slot arg) i)
(setf (comp-mvar-array-idx arg) arr-idx))))
(setf (comp-mvar-slot arg) i
(comp-mvar-array-idx arg) arr-idx))))
(defun comp-propagate-prologue (backward)
"Prologue for the propagate pass.
@ -1682,8 +1682,8 @@ Here goes everything that can be done not iteratively (read once).
(cl-loop with slot = (comp-mvar-slot lval)
for arg in rest
do
(setf (comp-mvar-array-idx arg) arr-idx)
(setf (comp-mvar-slot arg) slot)))))))
(setf (comp-mvar-array-idx arg) arr-idx
(comp-mvar-slot arg) slot)))))))
(defun comp-propagate* ()
"Propagate for set* and phi operands.