Add 'address' vm service message that finds heap objects.

runtime/vm/heap_test.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "platform/assert.h"
 #include "vm/dart_api_impl.h"
 #include "vm/globals.h"
 #include "vm/heap.h"
 #include "vm/unit_test.h"
 
@@ skipping 143 matching lines @@
   EXPECT_EQ(1, class_stats->pre_gc.old_count);
   EXPECT_EQ(0, class_stats->post_gc.old_count);
   EXPECT_EQ(0, class_stats->recent.old_count);
   // Perform GC.
   heap->CollectGarbage(Heap::kOld);
   EXPECT_EQ(0, class_stats->pre_gc.old_count);
   EXPECT_EQ(0, class_stats->post_gc.old_count);
   EXPECT_EQ(0, class_stats->recent.old_count);
 }
 
+
+class FindOnly : public FindObjectVisitor {
+ public:
+  FindOnly(Isolate* isolate, RawObject* target)
+      : FindObjectVisitor(isolate), target_(target) {
+    ASSERT(isolate->no_gc_scope_depth() != 0);
+  }
+  virtual ~FindOnly() { }
+
+  virtual bool FindObject(RawObject* obj) const {
+    return obj == target_;
+  }
+ private:
+  RawObject* target_;
+};
+
+
+class FindNothing : public FindObjectVisitor {
+ public:
+  FindNothing() : FindObjectVisitor(Isolate::Current()) { }
+  virtual ~FindNothing() { }
+  virtual bool FindObject(RawObject* obj) const { return false; }
+};
+
+
+TEST_CASE(FindObject) {
+  Isolate* isolate = Isolate::Current();
+  Heap* heap = isolate->heap();
+  Heap::Space spaces[2] = {Heap::kOld, Heap::kNew};
+  for (size_t space = 0; space < ARRAY_SIZE(spaces); ++space) {
+    const String& obj = String::Handle(String::New("x", spaces[space]));
+    {
+      NoGCScope no_gc;
+      FindOnly find_only(isolate, obj.raw());
+      EXPECT(obj.raw() == heap->FindObject(&find_only));
+    }
+  }
+  {
+    NoGCScope no_gc;
+    FindNothing find_nothing;
+    EXPECT(Object::null() == heap->FindObject(&find_nothing));
+  }
+}
+
 }  // namespace dart.