comparison lisp/bytecomp/bytecomp.el @ 118:7d55a9ba150c r20-1b11

Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 8619ce7e4c50
children 538048ae2ab8
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
466 Each element is (INDEX . VALUE)") 466 Each element is (INDEX . VALUE)")
467 (defvar byte-compile-depth 0 "Current depth of execution stack.") 467 (defvar byte-compile-depth 0 "Current depth of execution stack.")
468 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.") 468 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.")
469 469
470 470
471 ;;; The byte codes; this information is duplicated in bytecomp.c 471 ;;; The byte codes; this information is duplicated in bytecode.c
472 472
473 (defconst byte-code-vector nil 473 (defconst byte-code-vector nil
474 "An array containing byte-code names indexed by byte-code values.") 474 "An array containing byte-code names indexed by byte-code values.")
475 475
476 (defconst byte-stack+-info nil 476 (defconst byte-stack+-info nil
2820 (byte-defop-compiler symbol-value 1) 2820 (byte-defop-compiler symbol-value 1)
2821 (byte-defop-compiler symbol-function 1) 2821 (byte-defop-compiler symbol-function 1)
2822 (byte-defop-compiler (1+ byte-add1) 1) 2822 (byte-defop-compiler (1+ byte-add1) 1)
2823 (byte-defop-compiler (1- byte-sub1) 1) 2823 (byte-defop-compiler (1- byte-sub1) 1)
2824 (byte-defop-compiler goto-char 1+1) 2824 (byte-defop-compiler goto-char 1+1)
2825 (byte-defop-compiler char-after 1+1) 2825 (byte-defop-compiler char-after 0-1+1)
2826 (byte-defop-compiler set-buffer 1) 2826 (byte-defop-compiler set-buffer 1)
2827 ;;(byte-defop-compiler set-mark 1) ;; obsolete 2827 ;;(byte-defop-compiler set-mark 1) ;; obsolete
2828 (byte-defop-compiler forward-word 1+1) 2828 (byte-defop-compiler forward-word 1+1)
2829 (byte-defop-compiler char-syntax 1+1) 2829 (byte-defop-compiler char-syntax 1+1)
2830 (byte-defop-compiler nreverse 1) 2830 (byte-defop-compiler nreverse 1)