* dwarf-mode.el (dwarf-do-insert-substructure): Call

[deliverable/binutils-gdb.git] / binutils / dwarf-mode.el

diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 3362bc4419d6fa62483876887ea78636d24ae7a1..f95319ded5cfcd7bd2152d2a9ff553dd921035fd 100644 (file)
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -47,7 +47,7 @@
     (save-excursion
       (apply #'call-process dwarf-objdump-program nil (current-buffer) nil
             "-Wi" (concat "--dwarf-start=0x" die)
-            dwarf-file
+            (expand-file-name dwarf-file)
             (if new-depth (list (concat "--dwarf-depth="
                                         (int-to-string new-depth))))))
     (set-buffer-modified-p nil)))
@@ -136,7 +136,7 @@ A prefix argument means expand all children."
       (call-process dwarf-objdump-program
                    nil (current-buffer) nil
                    "-Wi" "--dwarf-depth=1"
-                   dwarf-file))
+                   (expand-file-name dwarf-file)))
     (set-buffer-modified-p nil)))
 
 ;;;###autoload