truffle: src/share/vm/services/heapDumper.cpp comparison

comparison src/share/vm/services/heapDumper.cpp @ 615:c6c601a0f2d6

6797870: Add -XX:+{HeapDump,PrintClassHistogram}{Before,After}FullGC Summary: Call newly created CollectedHeap::dump_{pre,post}_full_gc before and after every stop-world full collection cycle on GenCollectedHeap and ParallelScavengeHeap. (Support for G1CollectedHeap forthcoming under CR 6810861.) Small modifications to existing heap dumping and class histogram implementation, especially to allow multiple on-the-fly histos/dumps by the VM thread during a single safepoint. Reviewed-by: jmasa, alanb, mchung

author	ysr
date	Mon, 02 Mar 2009 16:37:04 -0800
parents	e9be0e04635a
children	7bb995fbd3c0

comparison

equal deleted inserted replaced

-:1fa16c3565be
+:c6c601a0f2d6
 enum {
 STACK_TRACE_ID = 1,
 INITIAL_CLASS_COUNT = 200
 };
 // Supports I/O operations on a dump file
 class DumpWriter : public StackObj {
 private:
 enum {
 }
 // The VM operation that performs the heap dump
 class VM_HeapDumper : public VM_GC_Operation {
 private:
-DumpWriter* _writer;
+static VM_HeapDumper* _global_dumper;
+static DumpWriter*    _global_writer;
+DumpWriter*           _local_writer;
 bool _gc_before_heap_dump;
 bool _is_segmented_dump;
 jlong _dump_start;
 GrowableArray<Klass*>* _klass_map;
 ThreadStackTrace** _stack_traces;
 int _num_threads;
-// accessors
+// accessors and setters
-DumpWriter* writer() const                    { return _writer; }
+static VM_HeapDumper* dumper()         {  assert(_global_dumper != NULL, "Error"); return _global_dumper; }
+static DumpWriter* writer()            {  assert(_global_writer != NULL, "Error"); return _global_writer; }
+void set_global_dumper() {
+assert(_global_dumper == NULL, "Error");
+_global_dumper = this;
+}
+void set_global_writer() {
+assert(_global_writer == NULL, "Error");
+_global_writer = _local_writer;
+}
+void clear_global_dumper() { _global_dumper = NULL; }
+void clear_global_writer() { _global_writer = NULL; }
 bool is_segmented_dump() const                { return _is_segmented_dump; }
 void set_segmented_dump()                     { _is_segmented_dump = true; }
 jlong dump_start() const                      { return _dump_start; }
 void set_dump_start(jlong pos);
 public:
 VM_HeapDumper(DumpWriter* writer, bool gc_before_heap_dump) :
 VM_GC_Operation(0 /* total collections,      dummy, ignored */,
 0 /* total full collections, dummy, ignored */,
 gc_before_heap_dump) {
-_writer = writer;
+_local_writer = writer;
 _gc_before_heap_dump = gc_before_heap_dump;
 _is_segmented_dump = false;
 _dump_start = (jlong)-1;
 _klass_map = new (ResourceObj::C_HEAP) GrowableArray<Klass*>(INITIAL_CLASS_COUNT, true);
 _stack_traces = NULL;
 VMOp_Type type() const { return VMOp_HeapDumper; }
 // used to mark sub-record boundary
 void check_segment_length();
 void doit();
 };
+VM_HeapDumper* VM_HeapDumper::_global_dumper = NULL;
+DumpWriter*    VM_HeapDumper::_global_writer = NULL;
 bool VM_HeapDumper::skip_operation() const {
 return false;
 }
 // writes a HPROF_LOAD_CLASS record for the class (and each of its
 // array classes)
 void VM_HeapDumper::do_load_class(klassOop k) {
 static u4 class_serial_num = 0;
-VM_HeapDumper* dumper = ((VM_HeapDumper*)VMThread::vm_operation());
-DumpWriter* writer = dumper->writer();
 // len of HPROF_LOAD_CLASS record
 u4 remaining = 2*oopSize + 2*sizeof(u4);
 // write a HPROF_LOAD_CLASS for the class and each array class
 do {
-DumperSupport::write_header(writer, HPROF_LOAD_CLASS, remaining);
+DumperSupport::write_header(writer(), HPROF_LOAD_CLASS, remaining);
 // class serial number is just a number
-writer->write_u4(++class_serial_num);
+writer()->write_u4(++class_serial_num);
 // class ID
 Klass* klass = Klass::cast(k);
-writer->write_classID(klass);
+writer()->write_classID(klass);
 // add the klassOop and class serial number pair
-dumper->add_class_serial_number(klass, class_serial_num);
+dumper()->add_class_serial_number(klass, class_serial_num);
-writer->write_u4(STACK_TRACE_ID);
+writer()->write_u4(STACK_TRACE_ID);
 // class name ID
 symbolOop name = klass->name();
-writer->write_objectID(name);
+writer()->write_objectID(name);
 // write a LOAD_CLASS record for the array type (if it exists)
 k = klass->array_klass_or_null();
 } while (k != NULL);
 }
 // writes a HPROF_GC_CLASS_DUMP record for the given class
 void VM_HeapDumper::do_class_dump(klassOop k) {
-VM_HeapDumper* dumper = ((VM_HeapDumper*)VMThread::vm_operation());
+DumperSupport::dump_class_and_array_classes(writer(), k);
-DumpWriter* writer = dumper->writer();
-DumperSupport::dump_class_and_array_classes(writer, k);
 }
 // writes a HPROF_GC_CLASS_DUMP records for a given basic type
 // array (and each multi-dimensional array too)
 void VM_HeapDumper::do_basic_type_array_class_dump(klassOop k) {
-VM_HeapDumper* dumper = ((VM_HeapDumper*)VMThread::vm_operation());
+DumperSupport::dump_basic_type_array_class(writer(), k);
-DumpWriter* writer = dumper->writer();
-DumperSupport::dump_basic_type_array_class(writer, k);
 }
 // Walk the stack of the given thread.
 // Dumps a HPROF_GC_ROOT_JAVA_FRAME record for each local
 // Dumps a HPROF_GC_ROOT_JNI_LOCAL record for each JNI local
 } else {
 // make the heap parsable (no need to retire TLABs)
 ch->ensure_parsability(false);
 }
+// At this point we should be the only dumper active, so
+// the following should be safe.
+set_global_dumper();
+set_global_writer();
 // Write the file header - use 1.0.2 for large heaps, otherwise 1.0.1
 size_t used = ch->used();
 const char* header;
 if (used > (size_t)SegmentedHeapDumpThreshold) {
 set_segmented_dump();
 header = "JAVA PROFILE 1.0.2";
 } else {
 header = "JAVA PROFILE 1.0.1";
 }
 // header is few bytes long - no chance to overflow int
 writer()->write_raw((void*)header, (int)strlen(header));
 writer()->write_u1(0); // terminator
 writer()->write_u4(oopSize);
 writer()->write_u8(os::javaTimeMillis());
 SystemDictionary::always_strong_oops_do(&class_dumper);
 // fixes up the length of the dump record. In the case of a segmented
 // heap then the HPROF_HEAP_DUMP_END record is also written.
 end_of_dump();
+// Now we clear the global variables, so that a future dumper might run.
+clear_global_dumper();
+clear_global_writer();
 }
 void VM_HeapDumper::dump_stack_traces() {
 // write a HPROF_TRACE record without any frames to be referenced as object alloc sites
 DumperSupport::write_header(writer(), HPROF_TRACE, 3*sizeof(u4));
 return -1;
 }
 // generate the dump
 VM_HeapDumper dumper(&writer, _gc_before_heap_dump);
-VMThread::execute(&dumper);
+if (Thread::current()->is_VM_thread()) {
+assert(SafepointSynchronize::is_at_safepoint(), "Expected to be called at a safepoint");
+dumper.doit();
+} else {
+VMThread::execute(&dumper);
+}
 // close dump file and record any error that the writer may have encountered
 writer.close();
 set_error(writer.error());
 _error = os::strdup(error);
 assert(_error != NULL, "allocation failure");
 }
 }
+// Called by error reporting by a single Java thread outside of a JVM safepoint,
-// Called by error reporting
+// or by heap dumping by the VM thread during a (GC) safepoint. Thus, these various
+// callers are strictly serialized and guaranteed not to interfere below. For more
+// general use, however, this method will need modification to prevent
+// inteference when updating the static variables base_path and dump_file_seq below.
 void HeapDumper::dump_heap() {
-static char path[JVM_MAXPATHLEN];
+static char base_path[JVM_MAXPATHLEN] = {'\0'};
+static uint dump_file_seq = 0;
+char   my_path[JVM_MAXPATHLEN] = {'\0'};
 // The dump file defaults to java_pid<pid>.hprof in the current working
 // directory. HeapDumpPath=<file> can be used to specify an alternative
 // dump file name or a directory where dump file is created.
-bool use_default_filename = true;
+if (dump_file_seq == 0) { // first time in, we initialize base_path
-if (HeapDumpPath == NULL || HeapDumpPath[0] == '\0') {
+bool use_default_filename = true;
-path[0] = '\0'; // HeapDumpPath=<file> not specified
+if (HeapDumpPath == NULL || HeapDumpPath[0] == '\0') {
-} else {
+// HeapDumpPath=<file> not specified
-assert(strlen(HeapDumpPath) < sizeof(path), "HeapDumpPath too long");
-strcpy(path, HeapDumpPath);
-// check if the path is a directory (must exist)
-DIR* dir = os::opendir(path);
-if (dir == NULL) {
-use_default_filename = false;
 } else {
-// HeapDumpPath specified a directory. We append a file separator
+assert(strlen(HeapDumpPath) < sizeof(base_path), "HeapDumpPath too long");
-// (if needed).
+strcpy(base_path, HeapDumpPath);
-os::closedir(dir);
+// check if the path is a directory (must exist)
-size_t fs_len = strlen(os::file_separator());
+DIR* dir = os::opendir(base_path);
-if (strlen(path) >= fs_len) {
+if (dir == NULL) {
-char* end = path;
+use_default_filename = false;
-end += (strlen(path) - fs_len);
+} else {
-if (strcmp(end, os::file_separator()) != 0) {
+// HeapDumpPath specified a directory. We append a file separator
-assert(strlen(path) + strlen(os::file_separator()) < sizeof(path),
+// (if needed).
-"HeapDumpPath too long");
+os::closedir(dir);
-strcat(path, os::file_separator());
+size_t fs_len = strlen(os::file_separator());
+if (strlen(base_path) >= fs_len) {
+char* end = base_path;
+end += (strlen(base_path) - fs_len);
+if (strcmp(end, os::file_separator()) != 0) {
+assert(strlen(base_path) + strlen(os::file_separator()) < sizeof(base_path),
+"HeapDumpPath too long");
+strcat(base_path, os::file_separator());
+}
 }
 }
 }
-}
+// If HeapDumpPath wasn't a file name then we append the default name
-// If HeapDumpPath wasn't a file name then we append the default name
+if (use_default_filename) {
-if (use_default_filename) {
+char fn[32];
-char fn[32];
+sprintf(fn, "java_pid%d", os::current_process_id());
-sprintf(fn, "java_pid%d.hprof", os::current_process_id());
+assert(strlen(base_path) + strlen(fn) < sizeof(base_path), "HeapDumpPath too long");
-assert(strlen(path) + strlen(fn) < sizeof(path), "HeapDumpPath too long");
+strcat(base_path, fn);
-strcat(path, fn);
+}
-}
+assert(strlen(base_path) < sizeof(my_path), "Buffer too small");
+strcpy(my_path, base_path);
+} else {
+// Append a sequence number id for dumps following the first
+char fn[33];
+sprintf(fn, ".%d", dump_file_seq);
+assert(strlen(base_path) + strlen(fn) < sizeof(my_path), "HeapDumpPath too long");
+strcpy(my_path, base_path);
+strcat(my_path, fn);
+}
+dump_file_seq++;   // increment seq number for next time we dump
+assert(strlen(".hprof") + strlen(my_path) < sizeof(my_path), "HeapDumpPath too long");
+strcat(my_path, ".hprof");
 HeapDumper dumper(false /* no GC before heap dump */,
 true  /* send to tty */);
-dumper.dump(path);
+dumper.dump(my_path);
 }

Mercurial > hg > truffle

comparison src/share/vm/services/heapDumper.cpp @ 615:c6c601a0f2d6