emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 9fafeb2a66: Ensure that we are not aset-ing Lisp records in pures


From: Vibhav Pant
Subject: master 9fafeb2a66: Ensure that we are not aset-ing Lisp records in purespace.
Date: Tue, 20 Dec 2022 11:15:56 -0500 (EST)

branch: master
commit 9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>

    Ensure that we are not aset-ing Lisp records in purespace.
    
    * src/data.c (Faset): Enforce that Lisp records passed to aset are
    impure with CHECK_IMPURE.
---
 src/data.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/data.c b/src/data.c
index c6b85e17bc..7ad06a9faa 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2619,6 +2619,7 @@ bool-vector.  IDX starts at 0.  */)
     }
   else if (RECORDP (array))
     {
+      CHECK_IMPURE (array, XVECTOR (array));
       if (idxval < 0 || idxval >= PVSIZE (array))
        args_out_of_range (array, idx);
       ASET (array, idxval, newelt);



reply via email to

[Prev in Thread] Current Thread [Next in Thread]