mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 14:10:28 -08:00
Code Issues Projects Releases Wiki Activity

* Fix some comp-vec logic

Browse source 
* lisp/emacs-lisp/comp.el (comp-vec-length, comp-vec-append)
	(comp-vec-prepend): Fix logic.
	(comp-vec-aref): Fix indentation.
This commit is contained in:
Andrea Corallo 2021-02-25 20:46:27 +01:00
parent 9ae48ae714
commit 3a31fca5db
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -617,7 +617,7 @@ Useful to hook into pass checkers.")
(defsubst comp-vec-length (vec) (defsubst comp-vec-length (vec)
"Return the number of elements of VEC." "Return the number of elements of VEC."
(+ (comp-vec-beg vec) (comp-vec-end vec))) (- (comp-vec-end vec) (comp-vec-beg vec)))
(defsubst comp-vec--verify-idx (vec idx) (defsubst comp-vec--verify-idx (vec idx)
"Check idx is in bounds for VEC." "Check idx is in bounds for VEC."
@ -628,21 +628,21 @@ Useful to hook into pass checkers.")
"Return the element of VEC at index IDX." "Return the element of VEC at index IDX."
(declare (gv-setter (lambda (val) (declare (gv-setter (lambda (val)
`(comp-vec--verify-idx ,vec ,idx) `(comp-vec--verify-idx ,vec ,idx)
`(puthash ,idx ,val (comp-vec-data ,vec))))) `(puthash ,idx ,val (comp-vec-data ,vec)))))
(comp-vec--verify-idx vec idx) (comp-vec--verify-idx vec idx)
(gethash idx (comp-vec-data vec))) (gethash idx (comp-vec-data vec)))
(defsubst comp-vec-append (vec elt) (defsubst comp-vec-append (vec elt)
"Append ELT into VEC. "Append ELT into VEC.
ELT is returned." ELT is returned."
(puthash (comp-vec-end vec) elt (comp-vec-aref vec)) (puthash (comp-vec-end vec) elt (comp-vec-data vec))
(cl-incf (comp-vec-end vec)) (cl-incf (comp-vec-end vec))
elt) elt)
(defsubst comp-vec-prepend (vec elt) (defsubst comp-vec-prepend (vec elt)
"Prepend ELT into VEC. "Prepend ELT into VEC.
ELT is returned." ELT is returned."
(puthash (comp-vec-beg vec) elt (comp-vec-aref vec)) (puthash (1- (comp-vec-beg vec)) elt (comp-vec-data vec))
(cl-decf (comp-vec-beg vec)) (cl-decf (comp-vec-beg vec))
elt) elt)