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

@@ -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;