]> git.ipfire.org Git - thirdparty/glibc.git/commitdiff
mtrace: Fix output with PIE and ASLR [BZ #22716]
authorSiddhesh Poyarekar <siddhesh@sourceware.org>
Mon, 23 Aug 2021 02:41:54 +0000 (08:11 +0530)
committerSiddhesh Poyarekar <siddhesh@sourceware.org>
Mon, 23 Aug 2021 02:44:22 +0000 (08:14 +0530)
Record only the relative address of the caller in mtrace file.  Use
LD_TRACE_PRELINKING to get the executable as well as binary vs
executable load offsets so that we may compute a base to add to the
relative address in the mtrace file.  This allows us to get a valid
address to pass to addr2line in all cases.

Fixes BZ #22716.

Co-authored-by: John Ogness <john.ogness@linutronix.de>
Reviewed-by: Andreas Schwab <schwab@linux-m68k.org>
Reviewed-by: DJ Delorie <dj@redhat.com>
malloc/mtrace-impl.c
malloc/mtrace.pl

index 83008ca18fc707b42c5c6ad0f8d7bc8b5563abe2..f5f19c265c912e18a9fb7921717a3bf353d1ea85 100644 (file)
@@ -65,9 +65,9 @@ tr_where (const void *caller, Dl_info *info)
                       offset);
             }
 
-         fprintf (mallstream, "@ %s%s%s[%p] ", info->dli_fname ? : "",
-                  info->dli_fname ? ":" : "",
-                   buf, caller);
+         fprintf (mallstream, "@ %s%s%s[0x%" PRIxPTR "] ",
+                  info->dli_fname ? : "", info->dli_fname ? ":" : "", buf,
+                  caller - info->dli_fbase);
         }
       else
         fprintf (mallstream, "@ [%p] ", caller);
index 6f49c8338dca658087838a84936de4f2268b77cf..b1073a193103972d94ac05c8fac1b1c7b9fe507b 100644 (file)
@@ -75,11 +75,15 @@ if ($#ARGV == 0) {
     } else {
        $prog = "./$binary";
     }
-    if (open (LOCS, "env LD_TRACE_LOADED_OBJECTS=1 $prog |")) {
+    # Set the environment variable LD_TRACE_PRELINKING to an empty string so
+    # that we trigger tracing but do not match with the executable or any of
+    # its dependencies.
+    if (open (LOCS, "env LD_TRACE_PRELINKING= $prog |")) {
        while (<LOCS>) {
            chop;
-           if (/^.*=> (.*) .(0x[0123456789abcdef]*).$/) {
+           if (/^.*=> (.*) \((0x[0123456789abcdef]*), (0x[0123456789abcdef]*).*/) {
                $locs{$1} = $2;
+               $rel{$1} = hex($2) - hex($3);
            }
        }
        close (LOCS);
@@ -110,12 +114,7 @@ sub location {
        my $addr = $2;
        my $searchaddr;
        return $cache{$addr} if (exists $cache{$addr});
-       if ($locs{$prog} ne "") {
-           $searchaddr = sprintf "%#x", $addr - $locs{$prog};
-       } else {
-           $searchaddr = $addr;
-           $prog = $binary;
-       }
+       $searchaddr = sprintf "%#x", hex($addr) + $rel{$prog};
        if ($binary ne "" && open (ADDR, "addr2line -e $prog $searchaddr|")) {
            my $line = <ADDR>;
            chomp $line;