From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 16 Feb 2020 17:14:35 +0000 (+0100)
Subject: Update copyright years plus two style nits
X-Git-Tag: emacs-28.0.90~2727^2~826
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81c34a35aab53978bc2f3608dff3751030d0e914;p=emacs.git

Update copyright years plus two style nits
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 67fc8f39f8c..80a542257fb 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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.
diff --git a/src/comp.c b/src/comp.c
index d95a87b03b1..2f24b10bba0 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1,5 +1,5 @@
 /* Compile elisp into native code.
-   Copyright (C) 2019 Free Software Foundation, Inc.
+   Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
 Author: Andrea Corallo <akrl@sdf.org>
 
diff --git a/src/comp.h b/src/comp.h
index ddebbbcccf0..6019831bc30 100644
--- a/src/comp.h
+++ b/src/comp.h
@@ -1,5 +1,5 @@
 /* Elisp native compiler definitions
-Copyright (C) 2012-2019 Free Software Foundation, Inc.
+Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index cbf287838cb..46d324bc42f 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -1,6 +1,6 @@
 ;;; comp-test-funcs.el --- compilation unit tested by comp-tests.el -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
 ;; Author: Andrea Corallo <akrl@sdf.org>
 
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 15a39c4e883..fc6543bcaec 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -1,6 +1,6 @@
 ;;; comp-tests.el --- unit tests for src/comp.c      -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
 ;; Author: Andrea Corallo <akrl@sdf.org>