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

(bindat--unpack-item): Sanitize vector length

Browse source 
Copyright-paperwork-exempt: yes

* lisp/emacs-lisp/bindat.el (bindat--unpack-item): Sanitize vector length
This commit is contained in:
Petteri Hintsanen 2024-03-10 23:30:11 -04:00 • committed by Stefan Monnier
parent 887789eecc
commit ed43ad5b56
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/bindat.el
View file

@ -204,6 +204,9 @@
('str (bindat--unpack-str len))
('strz (bindat--unpack-strz len))
('vec
(when (> len (length bindat-raw))
(error "Vector length %d is greater than raw data length %d."
len (length bindat-raw)))
(let ((v (make-vector len 0)) (vlen 1))
(if (consp vectype)
(setq vlen (nth 1 vectype)