Provide a mechanism for dumping of heap profiles on predefined events.

runtime/vm/dart.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 "vm/dart.h"
 
 #include "vm/code_observers.h"
 #include "vm/dart_api_state.h"
 #include "vm/flags.h"
 #include "vm/freelist.h"
 #include "vm/handles.h"
 #include "vm/heap.h"
 #include "vm/isolate.h"
 #include "vm/object.h"
 #include "vm/object_store.h"
 #include "vm/port.h"
 #include "vm/snapshot.h"
 #include "vm/stub_code.h"
 #include "vm/symbols.h"
 #include "vm/thread_pool.h"
 #include "vm/virtual_memory.h"
 #include "vm/zone.h"
 
 namespace dart {
 
+DEFINE_FLAG(bool, heap_profile_isolate_initialize, false,
+            "Writes a heap profile on isolate initialization.");
 DECLARE_FLAG(bool, print_bootstrap);
 DECLARE_FLAG(bool, print_class_table);
 DECLARE_FLAG(bool, trace_isolates);
 
 Isolate* Dart::vm_isolate_ = NULL;
 ThreadPool* Dart::thread_pool_ = NULL;
 void* Dart::perf_events_file_ = NULL;
 DebugInfo* Dart::pprof_symbol_generator_ = NULL;
 
 // An object visitor which will mark all visited objects. This is used to
@@ skipping 125 matching lines @@
     ASSERT(snapshot->kind() == Snapshot::kFull);
     if (FLAG_trace_isolates) {
       OS::Print("Size of isolate snapshot = %d\n", snapshot->length());
     }
     SnapshotReader reader(snapshot->content(), snapshot->length(),
                           Snapshot::kFull, isolate);
     reader.ReadFullSnapshot();
     if (FLAG_trace_isolates) {
       isolate->heap()->PrintSizes();
     }
+
+    if (FLAG_heap_profile_isolate_initialize) {
+      const char* format = "%s-isolate-initialize.hprof";
+      intptr_t len = OS::SNPrint(NULL, 0, format, isolate->name());
+      char* filename = isolate->current_zone()->Alloc<char>(len + 1);
+      OS::SNPrint(filename, len + 1, format, isolate->name());
+      isolate->heap()->ProfileToFile(filename);
+    }
+
     if (FLAG_print_bootstrap) {
       PrintLibrarySources(isolate);
     }
   }
 
   StubCode::Init(isolate);
   isolate->heap()->EnableGrowthControl();
   isolate->set_init_callback_data(data);
   if (FLAG_print_class_table) {
     isolate->class_table()->Print();
@@ skipping 12 matching lines @@
   delete isolate;
 
   Dart_IsolateShutdownCallback callback = Isolate::ShutdownCallback();
   if (callback != NULL) {
     (callback)(callback_data);
   }
 }
 
 
 }  // namespace dart