martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fix native disassemble on Windows platforms (bug#65455)

Browse Source 
* lisp/emacs-lisp/disass.el (disassemble-internal): Improve regexp.
This commit is contained in:
Andrea Corallo
2023-08-27 18:59:40 +02:00
parent 91d2d8439b
commit ea5fd6c96b
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/disass.el
View File

@@ -94,14 +94,11 @@ redefine OBJECT if it is a symbol."
(call-process "objdump" nil (current-buffer) t "-S" eln)
(error "Missing eln file for #<subr %s>" name)))
(goto-char (point-min))
(re-search-forward (concat "^.*"
(re-search-forward (concat "^.*<_?"
(regexp-quote
(concat "<"
(when (eq system-type 'darwin)
"_")
(comp-c-func-name
(subr-name obj) "F" t)
">:"))))
(comp-c-func-name
(subr-name obj) "F" t))
">:"))
(beginning-of-line)
(delete-region (point-min) (point))
(when (re-search-forward "^.*<.*>:" nil t 2)