emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-29 91d2d8439bb: * Handle missing eln file when trying to disassble


From: Andrea Corallo
Subject: emacs-29 91d2d8439bb: * Handle missing eln file when trying to disassble (bug#65455)
Date: Sun, 27 Aug 2023 11:40:49 -0400 (EDT)

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

    * Handle missing eln file when trying to disassble (bug#65455)
    
    * lisp/emacs-lisp/disass.el (disassemble-internal): Handle missing
    eln file.
---
 lisp/emacs-lisp/disass.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 9dd08d00920..859a494a697 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -89,8 +89,10 @@ redefine OBJECT if it is a symbol."
                  (subr-native-elisp-p obj))
             (progn
               (require 'comp)
-              (call-process "objdump" nil (current-buffer) t "-S"
-                            (native-comp-unit-file (subr-native-comp-unit 
obj)))
+              (let ((eln (native-comp-unit-file (subr-native-comp-unit obj))))
+                (if (file-exists-p eln)
+                    (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 "^.*"
                                          (regexp-quote



reply via email to

[Prev in Thread] Current Thread [Next in Thread]