[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bb5641d 1/2: Compilation warning fix for disass.el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master bb5641d 1/2: Compilation warning fix for disass.el |
Date: |
Thu, 13 Jun 2019 07:57:18 -0400 (EDT) |
branch: master
commit bb5641d3cc4baecba408ad9d88a33dcd54f12297
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Compilation warning fix for disass.el
* lisp/emacs-lisp/disass.el (disassemble-1): Remove a
string-as-unibyte that probably doesn't do anything, because the
string in question should be unibyte anyway. If the assert fails,
revert the patch.
---
lisp/emacs-lisp/disass.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 3fc2224..7625ff8 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -168,7 +168,8 @@ OBJ should be a call to BYTE-CODE generated by the byte
compiler."
(fetch-bytecode obj)
(setq bytes (aref obj 1)
constvec (aref obj 2)))
- (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec))
+ (cl-assert (not (multibyte-string-p bytes)))
+ (let ((lap (byte-decompile-bytecode bytes constvec))
op arg opname pc-value)
(let ((tagno 0)
tmp