about summary refs log tree commit diff
path: root/malloc/mtrace.pl
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>2004-10-04 23:22:47 +0000
committerUlrich Drepper <drepper@redhat.com>2004-10-04 23:22:47 +0000
commite582c5eda2fea3cdb336f35a070997588b8ccf96 (patch)
tree1a9d9863a0c5902d9f4233fd8fd9d75752a9a2df /malloc/mtrace.pl
parent92e2bb245f0fe7528d57b0750c9714db8b16da17 (diff)
downloadglibc-e582c5eda2fea3cdb336f35a070997588b8ccf96.tar.gz
glibc-e582c5eda2fea3cdb336f35a070997588b8ccf96.tar.xz
glibc-e582c5eda2fea3cdb336f35a070997588b8ccf96.zip
Update.
2004-10-04  Ulrich Drepper  <drepper@redhat.com>

	* malloc/mtrace.pl: Avoid calling location unless it is needed for
	output.  Patch by Edward Bishop <binutils@gmail.com>.

	* nscd/Makefile (CFLAGS-gai.c): Add -fpie.
Diffstat (limited to 'malloc/mtrace.pl')
-rw-r--r--malloc/mtrace.pl15
1 files changed, 8 insertions, 7 deletions
diff --git a/malloc/mtrace.pl b/malloc/mtrace.pl
index 2d12929432..1640fa652d 100644
--- a/malloc/mtrace.pl
+++ b/malloc/mtrace.pl
@@ -165,17 +165,18 @@ while (<DATA>) {
 	if ($cols[$n] eq "+") {
 	    if (defined $allocated{$allocaddr}) {
 		printf ("+ %#0@XXX@x Alloc %d duplicate: %s %s\n",
-			hex($allocaddr), $nr, $wherewas{$allocaddr}, $where);
+			hex($allocaddr), $nr, &location($addrwas{$allocaddr}),
+			$where);
 	    } else {
 		$allocated{$allocaddr}=$howmuch;
-		$wherewas{$allocaddr}=&location($where);
+		$addrwas{$allocaddr}=$where;
 	    }
 	    last SWITCH;
 	}
 	if ($cols[$n] eq "-") {
 	    if (defined $allocated{$allocaddr}) {
 		undef $allocated{$allocaddr};
-		undef $wherewas{$allocaddr};
+		undef $addrwas{$allocaddr};
 	    } else {
 		printf ("- %#0@XXX@x Free %d was never alloc'd %s\n",
 			hex($allocaddr), $nr, &location($where));
@@ -185,7 +186,7 @@ while (<DATA>) {
 	if ($cols[$n] eq "<") {
 	    if (defined $allocated{$allocaddr}) {
 		undef $allocated{$allocaddr};
-		undef $wherewas{$allocaddr};
+		undef $addrwas{$allocaddr};
 	    } else {
 		printf ("- %#0@XXX@x Realloc %d was never alloc'd %s\n",
 			hex($allocaddr), $nr, &location($where));
@@ -196,10 +197,10 @@ while (<DATA>) {
 	    if (defined $allocated{$allocaddr}) {
 		printf ("+ %#0@XXX@x Realloc %d duplicate: %#010x %s %s\n",
 			hex($allocaddr), $nr, $allocated{$allocaddr},
-			$wherewas{$allocaddr}, &location($where));
+			&location($addrwas{$allocaddr}), &location($where));
 	    } else {
 		$allocated{$allocaddr}=$howmuch;
-		$wherewas{$allocaddr}=&location($where);
+		$addrwas{$allocaddr}=$where;
 	    }
 	    last SWITCH;
 	}
@@ -227,7 +228,7 @@ if ($#addrs >= 0) {
 		$anything=1;
 	    }
 	    printf ("%#0@XXX@x %#8x  at %s\n", hex($addr), $allocated{$addr},
-		    $wherewas{$addr});
+		    &location($addrwas{$addr}));
 	}
     }
 }