/[emacs]/emacs/lisp/emacs-lisp/byte-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64.2.13 by miles, Wed Dec 8 23:30:14 2004 UTC revision 1.64.2.14 by miles, Wed Dec 8 23:31:40 2004 UTC
# Line 231  Line 231 
231    (cons 'progn    (cons 'progn
232          (mapcar          (mapcar
233           (lambda (sexp)           (lambda (sexp)
234              (let ((fn (car-safe sexp)))             (let ((f (car-safe sexp)))
235                (if (and (symbolp fn)               (if (and (symbolp f)
236                      (or (cdr (assq fn byte-compile-function-environment))                        (or (cdr (assq f byte-compile-function-environment))
237                        (and (fboundp fn)                            (not (or (not (fboundp f))
238                          (not (or (cdr (assq fn byte-compile-macro-environment))                                     (cdr (assq f byte-compile-macro-environment))
239                                   (and (consp (setq fn (symbol-function fn)))                                     (and (consp (setq f (symbol-function f)))
240                                        (eq (car fn) 'macro))                                          (eq (car f) 'macro))
241                                   (subrp fn))))))                                     (subrp f)))))
242                    (byte-compile-inline-expand sexp)                   (byte-compile-inline-expand sexp)
243                  sexp)))                 sexp)))
244           (cdr form))))           (cdr form))))
245    
246    
# Line 1367  of FORM by signalling the error at compi Line 1367  of FORM by signalling the error at compi
1367  ;; before each insn (or its label).  ;; before each insn (or its label).
1368  (defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable)  (defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable)
1369    (let ((length (length bytes))    (let ((length (length bytes))
1370          (ptr 0) optr tag tags op offset          (ptr 0) optr tags op offset
1371          lap tmp          lap tmp
1372          endtag          endtag)
         (retcount 0))  
1373      (while (not (= ptr length))      (while (not (= ptr length))
1374        (or make-spliceable        (or make-spliceable
1375            (setq lap (cons ptr lap)))            (setq lap (cons ptr lap)))

Legend:
Removed from v.1.64.2.13  
changed lines
  Added in v.1.64.2.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26