mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix peephole optimiser bug for symbolp

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode):
Don't sink 'symbolp' past 'unbind'; it's unsafe.
This commit is contained in:
Mattias Engdegård 2025-10-24 15:49:07 +02:00
parent 0ccc246465
commit 8ad494fc76
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/byte-opt.el
View file

@ -2192,13 +2192,13 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance."
;; Ops that can be sunk past an unbind.
;; This means they have to commute with anything else, which rules
;; out ones like `byte-car-safe' and `byte-equal'.
;; In particular, `byte-eq' isn't here despite `eq' being
;; nominally pure because it is currently affected by
;; In particular, `byte-eq' and `byte-symbolp' aren't here despite
;; being nominally pure because they are currently affected by
;; `symbols-with-pos-enabled'. Yes, this is unsatisfactory.
(after-unbind-ops
'( byte-constant byte-dup byte-stack-ref byte-stack-set byte-discard
byte-discardN byte-discardN-preserve-tos
byte-symbolp byte-consp byte-stringp byte-listp byte-numberp
byte-consp byte-stringp byte-listp byte-numberp
byte-integerp byte-not
byte-cons byte-list1 byte-list2 byte-list3 byte-list4 byte-listN))