summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/disass.el
diff options
context:
space:
mode:
authorJimmy Yuen Ho Wong <wyuenho@gmail.com>2021-08-03 08:14:38 +0100
committerAndrea Corallo <akrl@sdf.org>2021-08-03 10:27:20 +0200
commitb44abacc8cfee02de45773424dd7b18d8794a6c3 (patch)
treefbb8400ba32303a547de619eeefec9edd9d4c823 /lisp/emacs-lisp/disass.el
parentd50721bf022ba9774cf400c716bbd6c4cac9e45b (diff)
downloademacs-b44abacc8cfee02de45773424dd7b18d8794a6c3.tar.gz
emacs-b44abacc8cfee02de45773424dd7b18d8794a6c3.tar.bz2
emacs-b44abacc8cfee02de45773424dd7b18d8794a6c3.zip
* Fix error while disassembling native code on macOS
* lisp/emacs-lisp/disass.el (disassemble-internal): Make sure the regexp that searches for a symbol takes into account of llvm-objdump's output format.
Diffstat (limited to 'lisp/emacs-lisp/disass.el')
-rw-r--r--lisp/emacs-lisp/disass.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 6ac76f1c19d..712fa511707 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -95,6 +95,8 @@ redefine OBJECT if it is a symbol."
(re-search-forward (concat "^.*"
(regexp-quote
(concat "<"
+ (when (eq system-type 'darwin)
+ "_")
(comp-c-func-name
(subr-name obj) "F" t)
">:"))))