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

* 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
Show stats 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) (call-process "objdump" nil (current-buffer) t "-S" eln)
(error "Missing eln file for #<subr %s>" name))) (error "Missing eln file for #<subr %s>" name)))
(goto-char (point-min)) (goto-char (point-min))
(re-search-forward (concat "^.*" (re-search-forward (concat "^.*<_?"
(regexp-quote (regexp-quote
(concat "<" (comp-c-func-name
(when (eq system-type 'darwin) (subr-name obj) "F" t))
"_") ">:"))
(comp-c-func-name
(subr-name obj) "F" t)
">:"))))
(beginning-of-line) (beginning-of-line)
(delete-region (point-min) (point)) (delete-region (point-min) (point))
(when (re-search-forward "^.*<.*>:" nil t 2) (when (re-search-forward "^.*<.*>:" nil t 2)