procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-decompile-bytecode-1): Don't add pc values

Browse source 
if make-spliceable is non-nil.  (Arg renamed from make-splicable.)
This commit is contained in:
Richard M. Stallman 1994-07-20 06:04:46 +00:00
parent 3c7e6b9d2a
commit cffcfe6652
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1094,16 +1094,21 @@
;; As byte-decompile-bytecode, but updates
;; byte-compile-{constants, variables, tag-number}.
;; If the optional 3rd arg is true, then `return' opcodes are replaced
;; If MAKE-SPLICEABLE is true, then `return' opcodes are replaced
;; with `goto's destined for the end of the code.
(defun byte-decompile-bytecode-1 (bytes constvec &optional make-splicable)
;; That is for use by the compiler.
;; If MAKE-SPLICEABLE is nil, we are being called for the disassembler.
;; In that case, we put a pc value into the list
;; before each insn (or its label).
(defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable)
(let ((length (length bytes))
(ptr 0) optr tag tags op offset
lap tmp
endtag
(retcount 0))
(while (not (= ptr length))
(setq lap (cons ptr lap))
(or make-spliceable
(setq lap (cons ptr lap)))
(setq op (aref bytes ptr)
optr ptr
offset (disassemble-offset)) ; this does dynamic-scope magic
@ -1125,7 +1130,7 @@
(car (setq byte-compile-variables
(cons (list tmp)
byte-compile-variables)))))))
((and make-splicable
((and make-spliceable
(eq op 'byte-return))
(if (= ptr (1- length))
(setq op nil)