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

(byte-optimize-lapcode): Don't bind

Browse source 
unused vars.  Treat byte-constant2 like byte-constant.  Fix bogus
comparison of opcode with operand.
This commit is contained in:
Dave Love 2000-10-02 17:44:51 +00:00
parent 2a099bccab
commit 944425c0c3
2 changed files with 9 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

@ -1415,9 +1415,9 @@
(defun byte-optimize-lapcode (lap &optional for-effect)
"Simple peephole optimizer. LAP is both modified and returned."
(let (lap0 off0
lap1 off1
lap2 off2
(let (lap0
lap1
lap2
(keep-going 'first-time)
(add-depth 0)
rest tmp tmp2 tmp3