From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 5 Jul 2020 18:45:10 +0000 (+0100)
Subject: * test/src/comp-test-funcs.el (comp-tests-aref-aset-f) : Fix UB.
X-Git-Tag: emacs-28.0.90~2727^2~528
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4348969536f2d2a16e794ff3ce15f855f9ec7e1e;p=emacs.git

* test/src/comp-test-funcs.el (comp-tests-aref-aset-f) : Fix UB.
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 168819b17d6..2fe6276227a 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -66,7 +66,7 @@
   (length '(1 2 3)))
 
 (defun comp-tests-aref-aset-f ()
-  (let ((vec [1 2 3]))
+  (let ((vec (make-vector 3 0)))
     (aset vec 2 100)
     (aref vec 2)))