/*

 * Copyright 1997-2002 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/_aprofiler.cpp.incl"

bool AllocationProfiler::_active = false;

GrowableArray<klassOop>* AllocationProfiler::_print_array = NULL;

class AllocProfClosure : public ObjectClosure {

 public:

  void do_object(oop obj) {

    Klass* k = obj->blueprint();

    k->set_alloc_count(k->alloc_count() + 1);

    k->set_alloc_size(k->alloc_size() + obj->size());

  }

};

#ifndef PRODUCT

class AllocProfResetClosure : public ObjectClosure {

 public:

  void do_object(oop obj) {

    if (obj->is_klass()) {

      Klass* k = Klass::cast(klassOop(obj));

      k->set_alloc_count(0);

      k->set_alloc_size(0);

    }

  }

};

#endif

void AllocationProfiler::iterate_since_last_gc() {

  if (is_active()) {

    AllocProfClosure blk;

    GenCollectedHeap* heap = GenCollectedHeap::heap();

    heap->object_iterate_since_last_GC(&blk);

  }

}

void AllocationProfiler::engage() {

  _active = true;

}

void AllocationProfiler::disengage() {

  _active = false;

}

void AllocationProfiler::add_class_to_array(klassOop k) {

  _print_array->append(k);

}

void AllocationProfiler::add_classes_to_array(klassOop k) {

  // Iterate over klass and all array klasses for klass

  k->klass_part()->with_array_klasses_do(&AllocationProfiler::add_class_to_array);

}

int AllocationProfiler::compare_classes(klassOop* k1, klassOop* k2) {

  // Sort by total allocation size

  return (*k2)->klass_part()->alloc_size() - (*k1)->klass_part()->alloc_size();

}

int AllocationProfiler::average(size_t alloc_size, int alloc_count) {

  return (int) ((double) (alloc_size * BytesPerWord) / MAX2(alloc_count, 1) + 0.5);

}

void AllocationProfiler::sort_and_print_array(size_t cutoff) {

  _print_array->sort(&AllocationProfiler::compare_classes);

  tty->print_cr("________________Size"

                "__Instances"

                "__Average"

                "__Class________________");

  size_t total_alloc_size = 0;

  int total_alloc_count = 0;

  for (int index = 0; index < _print_array->length(); index++) {

    klassOop k = _print_array->at(index);

    size_t alloc_size = k->klass_part()->alloc_size();

    if (alloc_size > cutoff) {

      int alloc_count = k->klass_part()->alloc_count();

#ifdef PRODUCT

      const char* name = k->klass_part()->external_name();

#else

      const char* name = k->klass_part()->internal_name();

#endif

      tty->print_cr("%20u %10u %8u  %s",

        alloc_size * BytesPerWord,

        alloc_count,

        average(alloc_size, alloc_count),

        name);

      total_alloc_size += alloc_size;

      total_alloc_count += alloc_count;

    }

  }

  tty->print_cr("%20u %10u %8u  --total--",

    total_alloc_size * BytesPerWord,

    total_alloc_count,

    average(total_alloc_size, total_alloc_count));

  tty->cr();

}

void AllocationProfiler::print(size_t cutoff) {

  ResourceMark rm;

  assert(!is_active(), "AllocationProfiler cannot be active while printing profile");

  tty->cr();

  tty->print_cr("Allocation profile (sizes in bytes, cutoff = %ld bytes):", cutoff * BytesPerWord);

  tty->cr();

  // Print regular instance klasses and basic type array klasses

  _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2);

  SystemDictionary::classes_do(&add_classes_to_array);

  Universe::basic_type_classes_do(&add_classes_to_array);

  sort_and_print_array(cutoff);

  #ifndef PRODUCT

  tty->print_cr("Allocation profile for system classes (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord);

  tty->cr();

  // Print system klasses (methods, symbols, constant pools, etc.)

  _print_array = new GrowableArray<klassOop>(64);

  Universe::system_classes_do(&add_classes_to_array);

  sort_and_print_array(cutoff);

  tty->print_cr("Permanent generation dump (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord);

  tty->cr();

  AllocProfResetClosure resetblk;

  Universe::heap()->permanent_object_iterate(&resetblk);

  AllocProfClosure blk;

  Universe::heap()->permanent_object_iterate(&blk);

  _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2);

  SystemDictionary::classes_do(&add_classes_to_array);

  Universe::basic_type_classes_do(&add_classes_to_array);

  Universe::system_classes_do(&add_classes_to_array);

  sort_and_print_array(cutoff);

  #endif

}