Commit d18a808f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(disassemble-1): Move the call to

string-as-unibyte outside of the if statement.
parent 326b283b
...@@ -171,9 +171,9 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler." ...@@ -171,9 +171,9 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
constvec (car (cdr (cdr obj)))) ;constant vector constvec (car (cdr (cdr obj)))) ;constant vector
;; If it is lazy-loaded, load it now ;; If it is lazy-loaded, load it now
(fetch-bytecode obj) (fetch-bytecode obj)
(setq bytes (string-as-unibyte (aref obj 1)) (setq bytes (aref obj 1)
constvec (aref obj 2))) constvec (aref obj 2)))
(let ((lap (byte-decompile-bytecode bytes constvec)) (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec))
op arg opname pc-value) op arg opname pc-value)
(let ((tagno 0) (let ((tagno 0)
tmp tmp
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment