--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/share/vm/runtime/memprofiler.cpp	Sat Dec 01 00:00:00 2007 +0000
@@ -0,0 +1,125 @@
+/*
+ * Copyright 1998-2007 Sun Microsystems, Inc.  All Rights Reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
+ * CA 95054 USA or visit www.sun.com if you need additional information or
+ * have any questions.
+ *
+ */
+
+# include "incls/_precompiled.incl"
+# include "incls/_memprofiler.cpp.incl"
+
+#ifndef PRODUCT
+
+// --------------------------------------------------------
+// MemProfilerTask
+
+class MemProfilerTask : public PeriodicTask {
+ public:
+  MemProfilerTask(int interval_time) : PeriodicTask(interval_time) {}
+  void task();
+};
+
+
+void MemProfilerTask::task() {
+  // Get thread lock to provide mutual exclusion, and so we can iterate safely over the thread list.
+  MutexLocker mu(Threads_lock);
+  MemProfiler::do_trace();
+}
+
+
+//----------------------------------------------------------
+// Implementation of MemProfiler
+
+MemProfilerTask* MemProfiler::_task   = NULL;
+FILE*            MemProfiler::_log_fp = NULL;
+
+
+bool MemProfiler::is_active() {
+  return _task != NULL;
+}
+
+
+void MemProfiler::engage() {
+  const char *log_name = "mprofile.log";
+  if (!is_active()) {
+    // Create log file
+    _log_fp = fopen(log_name , "w+");
+    if (_log_fp == NULL) {
+      fatal1("MemProfiler: Cannot create log file: %s", log_name);
+    }
+    fprintf(_log_fp, "MemProfiler: sizes are in Kb, time is in seconds since startup\n\n");
+    fprintf(_log_fp, "  time, #thr, #cls,  heap,  heap,  perm,  perm,  code, hndls, rescs, oopmp\n");
+    fprintf(_log_fp, "                     used, total,  used, total, total, total, total, total\n");
+    fprintf(_log_fp, "--------------------------------------------------------------------------\n");
+
+    _task = new MemProfilerTask(MemProfilingInterval);
+    _task->enroll();
+  }
+}
+
+
+void MemProfiler::disengage() {
+  if (!is_active()) return;
+  // Do one last trace at disengage time
+  do_trace();
+
+  // Close logfile
+  fprintf(_log_fp, "MemProfiler detached\n");
+  fclose(_log_fp);
+
+  // remove MemProfilerTask
+  assert(_task != NULL, "sanity check");
+  _task->disenroll();
+  delete _task;
+  _task = NULL;
+}
+
+
+void MemProfiler::do_trace() {
+  // Calculate thread local sizes
+  size_t handles_memory_usage    = VMThread::vm_thread()->handle_area()->size_in_bytes();
+  size_t resource_memory_usage   = VMThread::vm_thread()->resource_area()->size_in_bytes();
+  JavaThread *cur = Threads::first();
+  while (cur != NULL) {
+    handles_memory_usage  += cur->handle_area()->size_in_bytes();
+    resource_memory_usage += cur->resource_area()->size_in_bytes();
+    cur = cur->next();
+  }
+
+  // Print trace line in log
+  fprintf(_log_fp, "%6.1f,%5d,%5d,%6ld,%6ld,%6ld,%6ld,",
+      os::elapsedTime(),
+      Threads::number_of_threads(),
+      SystemDictionary::number_of_classes(),
+      Universe::heap()->used() / K,
+      Universe::heap()->capacity() / K,
+      Universe::heap()->permanent_used() / HWperKB,
+      Universe::heap()->permanent_capacity() / HWperKB);
+
+  fprintf(_log_fp, "%6ld,", CodeCache::capacity() / K);
+
+  fprintf(_log_fp, "%6ld,%6ld,%6ld\n",
+      handles_memory_usage / K,
+      resource_memory_usage / K,
+      OopMapCache::memory_usage() / K);
+  fflush(_log_fp);
+}
+
+#endif