From 6b2eb5bb380d5618e2d6ad6ca798f45b23b0e108 Mon Sep 17 00:00:00 2001 From: "waterson%netscape.com" Date: Thu, 30 Nov 2000 08:08:47 +0000 Subject: [PATCH] Don't keep around objects: let callers do that. git-svn-id: svn://10.0.0.236/trunk@83123 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/tools/trace-malloc/TraceMalloc.pm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/mozilla/tools/trace-malloc/TraceMalloc.pm b/mozilla/tools/trace-malloc/TraceMalloc.pm index b74921721e3..fd4252cdb63 100644 --- a/mozilla/tools/trace-malloc/TraceMalloc.pm +++ b/mozilla/tools/trace-malloc/TraceMalloc.pm @@ -89,13 +89,7 @@ sub read { next OBJECT unless /^0x(\S+) <(.*)> \((\d+)\)/; my ($addr, $type, $size) = (hex $1, $2, $3); - my $object = $::Objects{$addr}; - if (! $object) { - # Found a new object entry. Record its type and size - $::Objects{$addr} = - $object = - { 'type' => $type, 'size' => $size }; - } + my $object = { 'type' => $type, 'size' => $size }; # Record the object's slots my @slots;