[binutils-gdb] gprofng: fix the Dwarf reader

[binutils-gdb] gprofng: fix the Dwarf reader

[Vladimir Mezentsev]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=10577a3b13de151a795fe5f60a64dd2e98bca642

commit 10577a3b13de151a795fe5f60a64dd2e98bca642
Author: Vladimir Mezentsev <vladimir.mezentsev@oracle.com>
Date:   Fri Mar 10 16:16:49 2023 -0800

    gprofng: fix the Dwarf reader
    
    gprofng/ChangeLog
    2023-03-10  Vladimir Mezentsev  <vladimir.mezentsev@oracle.com>
    
            gprofng/src/DwarfLib.cc (DwrLineRegs::getPath): Add a DW_AT_comp_dir
            string if the directoty table has relative names.

Diff:
---
 gprofng/src/DwarfLib.cc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gprofng/src/DwarfLib.cc b/gprofng/src/DwarfLib.cc
index 64003797d25..90c3e6e95a2 100644
--- a/gprofng/src/DwarfLib.cc
+++ b/gprofng/src/DwarfLib.cc
@@ -1779,7 +1779,15 @@ DwrLineRegs::getPath (int fn)
     }
   if (dir == NULL || *dir == 0)
     return fnp->path;
-  fnp->path = canonical_path (dbe_sprintf ("%s/%s", dir, fnp->fname));
+
+  char *dir1 = NULL;
+  if (*dir != '/')
+    dir1 = dir_names->get(0)->fname;
+  if (dir1 && *dir != 0)
+    fnp->path = dbe_sprintf ("%s/%s/%s", dir1, dir, fnp->fname);
+  else 
+    fnp->path = dbe_sprintf ("%s/%s", dir, fnp->fname);
+  fnp->path = canonical_path (fnp->path);
   return fnp->path;
 }