mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 14:11:38 -08:00
Code Issues Projects Releases Wiki Activity

Change old backquote syntax.

Browse source 
(byte-compile-trueconstp): Include keywords.
(byte-optimize-quote, byte-optimize-lapcode): Use
byte-compile-const-symbol-p.
(byte-optimize-char-before): New optimization.
This commit is contained in:
Dave Love 2000-02-23 12:28:09 +00:00
parent e5a00c9c86
commit e1f0df6214
1 changed files with 21 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,9 +1,10 @@
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
;;; Copyright (c) 1991, 1994 Free Software Foundation, Inc.
;;; Copyright (c) 1991, 1994, 2000 Free Software Foundation, Inc.
;; Author: Jamie Zawinski <jwz@lucid.com>
;; Hallvard Furuseth <hbf@ulrik.uio.no>
;; Maintainer: FSF
;; Keywords: internal
;; This file is part of GNU Emacs.
@ -592,9 +593,10 @@
;; I'd like this to be a defsubst, but let's not be self-referential...
(defmacro byte-compile-trueconstp (form)
;; Returns non-nil if FORM is a non-nil constant.
(` (cond ((consp (, form)) (eq (car (, form)) 'quote))
((not (symbolp (, form))))
((eq (, form) t)))))
`(cond ((consp ,form) (eq (car ,form) 'quote))
((not (symbolp ,form)))
((eq ,form t))
((keywordp ,form))))
;; If the function is being called with constant numeric args,
;; evaluate as much as possible at compile-time. This optimizer
@ -895,7 +897,7 @@
(defun byte-optimize-quote (form)
(if (or (consp (nth 1 form))
(and (symbolp (nth 1 form))
(not (memq (nth 1 form) '(nil t)))))
(not (byte-compile-const-symbol-p form))))
form
(nth 1 form)))
@ -1116,6 +1118,14 @@
((= 1 (safe-length form))
'(forward-char -1))
(t form)))
(put 'char-before 'byte-optimizer 'byte-optimize-char-before)
(defun byte-optimize-char-before (form)
(cond ((= 2 (safe-length form))
`(char-after (1- ,(nth 1 form))))
((= 1 (safe-length form))
'(char-after (1- (point))))
(t form)))
;;; enumerating those functions which need not be called if the returned
;;; value is not used. That is, something like
@ -1132,7 +1142,8 @@
assoc assq
boundp buffer-file-name buffer-local-variables buffer-modified-p
buffer-substring
capitalize car-less-than-car car cdr ceiling concat coordinates-in-window-p
capitalize car-less-than-car car cdr ceiling concat
coordinates-in-window-p
char-width copy-marker cos count-lines
default-boundp default-value documentation downcase
elt exp expt fboundp featurep
@ -1143,7 +1154,8 @@
hash-table-count
int-to-string
keymap-parent
length local-variable-if-set-p local-variable-p log log10 logand logb logior lognot logxor lsh
length local-variable-if-set-p local-variable-p log log10 logand
logb logior lognot logxor lsh
marker-buffer max member memq min mod
next-window nth nthcdr number-to-string
parse-colon-path prefix-numeric-value previous-window
@ -1484,7 +1496,8 @@
(if (memq (car lap0) '(byte-constant byte-dup))
(progn
(setq tmp (if (or (not tmp)
(memq (car (cdr lap0)) '(nil t)))
(byte-compile-const-symbol-p
(car (cdr lap0))))
(cdr lap0)
(byte-compile-get-constant t)))
(byte-compile-log-lap " %s %s %s\t-->\t%s %s %s"