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

runtime/vm/service_test.cc

 // Copyright (c) 2013, 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 "include/dart_debugger_api.h"
 #include "vm/dart_api_impl.h"
 #include "vm/dart_entry.h"
 #include "vm/debugger.h"
 #include "vm/globals.h"
 #include "vm/message_handler.h"
@@ skipping 988 matching lines @@
   Instance& service_msg = Instance::Handle();
   service_msg = Eval(lib, "[port, ['heapmap'], [], []]");
   Service::HandleIsolateMessage(isolate, service_msg);
   handler.HandleNextMessage();
   EXPECT_SUBSTRING("\"type\":\"HeapMap\"", handler.msg());
   EXPECT_SUBSTRING("\"pages\":[[", handler.msg());
   EXPECT_SUBSTRING("]]", handler.msg());
 }
 
 
+TEST_CASE(Service_Address) {
+  const char* kScript =
+      "var port;\n"  // Set to our mock port by C++.
+      "\n"
+      "main() {\n"
+      "}";
+
+  Isolate* isolate = Isolate::Current();
+  Dart_Handle lib = TestCase::LoadTestScript(kScript, NULL);
+  EXPECT_VALID(lib);
+
+  // Build a mock message handler and wrap it in a dart port.
+  ServiceTestMessageHandler handler;
+  Dart_Port port_id = PortMap::CreatePort(&handler);
+  Dart_Handle port =
+      Api::NewHandle(isolate, DartLibraryCalls::NewSendPort(port_id));
+  EXPECT_VALID(port);
+  EXPECT_VALID(Dart_SetField(lib, NewString("port"), port));
+
+  const String& str = String::Handle(String::New("foobar", Heap::kOld));
+  Instance& service_msg = Instance::Handle();
+  // Note: If we ever introduce old space compaction, this test might fail.
+  uword start_addr = RawObject::ToAddr(str.raw());
+  // Expect to find 'str', also from internal addresses.
+  for (int offset = 0; offset < kObjectAlignment; ++offset) {
+    uword addr = start_addr + offset;
+    char buf[1024];
+    OS::SNPrint(buf, sizeof(buf),
+                "[port, ['address', '%" Px "'], [], []]", addr);
+    service_msg = Eval(lib, buf);
+    Service::HandleIsolateMessage(isolate, service_msg);
+    handler.HandleNextMessage();
+    EXPECT_SUBSTRING("\"type\":\"@String\"", handler.msg());
+    EXPECT_SUBSTRING("foobar", handler.msg());
+  }
+  // Expect null when no object is found.
+  service_msg = Eval(lib, "[port, ['address', '7'], [], []]");
+  Service::HandleIsolateMessage(isolate, service_msg);
+  handler.HandleNextMessage();
+  EXPECT_SUBSTRING("\"type\":\"null\"", handler.msg());

[turnidge, 2014/03/20 17:01:19]

This result will look a bit different once you use the null_instance() in
service.cc.

+}
+
+
 static const char* alpha_callback(
     const char* name,
     const char** arguments,
     intptr_t num_arguments,
     const char** option_keys,
     const char** option_values,
     intptr_t num_options,
     void* user_data) {
   return strdup("alpha");
 }
@@ skipping 129 matching lines @@
   EXPECT_SUBSTRING("\"type\":\"Profile\"", handler.msg());
 
   service_msg = Eval(h_lib, "[port, ['profile'], ['tags'], ['hidden']]");
   Service::HandleIsolateMessage(isolate, service_msg);
   handler.HandleNextMessage();
   // Expect error.
   EXPECT_SUBSTRING("\"type\":\"Error\"", handler.msg());
 }
 
 }  // namespace dart