emacs-29 ea5fd6c96bc: * Fix native disassemble on Windows platforms (bug#65455)

[Andrea Corallo]

branch: emacs-29
commit ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    * Fix native disassemble on Windows platforms (bug#65455)
    
    * lisp/emacs-lisp/disass.el (disassemble-internal): Improve regexp.
---
 lisp/emacs-lisp/disass.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 859a494a697..f9f7448d81c 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -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)