diff options
| author | Vibhav Pant | 2022-12-20 21:29:54 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2022-12-20 21:29:54 +0530 |
| commit | 9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7 (patch) | |
| tree | f716962001bc2e6c80c84c0f9fa19c73ba076c03 /src | |
| parent | 8d6fb6498ab457e92b08e26203b585ba989a7844 (diff) | |
| download | emacs-9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7.tar.gz emacs-9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7.zip | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/data.c b/src/data.c index c6b85e17bc2..7ad06a9faa5 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2619,6 +2619,7 @@ bool-vector. IDX starts at 0. */) | |||
| 2619 | } | 2619 | } |
| 2620 | else if (RECORDP (array)) | 2620 | else if (RECORDP (array)) |
| 2621 | { | 2621 | { |
| 2622 | CHECK_IMPURE (array, XVECTOR (array)); | ||
| 2622 | if (idxval < 0 || idxval >= PVSIZE (array)) | 2623 | if (idxval < 0 || idxval >= PVSIZE (array)) |
| 2623 | args_out_of_range (array, idx); | 2624 | args_out_of_range (array, idx); |
| 2624 | ASET (array, idxval, newelt); | 2625 | ASET (array, idxval, newelt); |