duke@435: /*
xdono@631:  * Copyright 1997-2008 Sun Microsystems, Inc.  All Rights Reserved.
duke@435:  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435:  *
duke@435:  * This code is free software; you can redistribute it and/or modify it
duke@435:  * under the terms of the GNU General Public License version 2 only, as
duke@435:  * published by the Free Software Foundation.
duke@435:  *
duke@435:  * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435:  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435:  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
duke@435:  * version 2 for more details (a copy is included in the LICENSE file that
duke@435:  * accompanied this code).
duke@435:  *
duke@435:  * You should have received a copy of the GNU General Public License version
duke@435:  * 2 along with this work; if not, write to the Free Software Foundation,
duke@435:  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435:  *
duke@435:  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
duke@435:  * CA 95054 USA or visit www.sun.com if you need additional information or
duke@435:  * have any questions.
duke@435:  *
duke@435:  */
duke@435: 
duke@435: # include "incls/_precompiled.incl"
duke@435: # include "incls/_fprofiler.cpp.incl"
duke@435: 
duke@435: // Static fields of FlatProfiler
duke@435: int               FlatProfiler::received_gc_ticks   = 0;
duke@435: int               FlatProfiler::vm_operation_ticks  = 0;
duke@435: int               FlatProfiler::threads_lock_ticks  = 0;
duke@435: int               FlatProfiler::class_loader_ticks  = 0;
duke@435: int               FlatProfiler::extra_ticks         = 0;
duke@435: int               FlatProfiler::blocked_ticks       = 0;
duke@435: int               FlatProfiler::deopt_ticks         = 0;
duke@435: int               FlatProfiler::unknown_ticks       = 0;
duke@435: int               FlatProfiler::interpreter_ticks   = 0;
duke@435: int               FlatProfiler::compiler_ticks      = 0;
duke@435: int               FlatProfiler::received_ticks      = 0;
duke@435: int               FlatProfiler::delivered_ticks     = 0;
duke@435: int*              FlatProfiler::bytecode_ticks      = NULL;
duke@435: int*              FlatProfiler::bytecode_ticks_stub = NULL;
duke@435: int               FlatProfiler::all_int_ticks       = 0;
duke@435: int               FlatProfiler::all_comp_ticks      = 0;
duke@435: int               FlatProfiler::all_ticks           = 0;
duke@435: bool              FlatProfiler::full_profile_flag   = false;
duke@435: ThreadProfiler*   FlatProfiler::thread_profiler     = NULL;
duke@435: ThreadProfiler*   FlatProfiler::vm_thread_profiler  = NULL;
duke@435: FlatProfilerTask* FlatProfiler::task                = NULL;
duke@435: elapsedTimer      FlatProfiler::timer;
duke@435: int               FlatProfiler::interval_ticks_previous = 0;
duke@435: IntervalData*     FlatProfiler::interval_data       = NULL;
duke@435: 
duke@435: ThreadProfiler::ThreadProfiler() {
duke@435:   // Space for the ProfilerNodes
duke@435:   const int area_size = 1 * ProfilerNodeSize * 1024;
duke@435:   area_bottom = AllocateHeap(area_size, "fprofiler");
duke@435:   area_top    = area_bottom;
duke@435:   area_limit  = area_bottom + area_size;
duke@435: 
duke@435:   // ProfilerNode pointer table
duke@435:   table = NEW_C_HEAP_ARRAY(ProfilerNode*, table_size);
duke@435:   initialize();
duke@435:   engaged = false;
duke@435: }
duke@435: 
duke@435: ThreadProfiler::~ThreadProfiler() {
duke@435:   FreeHeap(area_bottom);
duke@435:   area_bottom = NULL;
duke@435:   area_top = NULL;
duke@435:   area_limit = NULL;
duke@435:   FreeHeap(table);
duke@435:   table = NULL;
duke@435: }
duke@435: 
duke@435: // Statics for ThreadProfiler
duke@435: int ThreadProfiler::table_size = 1024;
duke@435: 
duke@435: int ThreadProfiler::entry(int  value) {
duke@435:   value = (value > 0) ? value : -value;
duke@435:   return value % table_size;
duke@435: }
duke@435: 
duke@435: ThreadProfilerMark::ThreadProfilerMark(ThreadProfilerMark::Region r) {
duke@435:   _r = r;
duke@435:   _pp = NULL;
duke@435:   assert(((r > ThreadProfilerMark::noRegion) && (r < ThreadProfilerMark::maxRegion)), "ThreadProfilerMark::Region out of bounds");
duke@435:   Thread* tp = Thread::current();
duke@435:   if (tp != NULL && tp->is_Java_thread()) {
duke@435:     JavaThread* jtp = (JavaThread*) tp;
duke@435:     ThreadProfiler* pp = jtp->get_thread_profiler();
duke@435:     _pp = pp;
duke@435:     if (pp != NULL) {
duke@435:       pp->region_flag[r] = true;
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: ThreadProfilerMark::~ThreadProfilerMark() {
duke@435:   if (_pp != NULL) {
duke@435:     _pp->region_flag[_r] = false;
duke@435:   }
duke@435:   _pp = NULL;
duke@435: }
duke@435: 
duke@435: // Random other statics
duke@435: static const int col1 = 2;      // position of output column 1
duke@435: static const int col2 = 11;     // position of output column 2
duke@435: static const int col3 = 25;     // position of output column 3
duke@435: static const int col4 = 55;     // position of output column 4
duke@435: 
duke@435: 
duke@435: // Used for detailed profiling of nmethods.
duke@435: class PCRecorder : AllStatic {
duke@435:  private:
duke@435:   static int*    counters;
duke@435:   static address base;
duke@435:   enum {
duke@435:    bucket_size = 16
duke@435:   };
duke@435:   static int     index_for(address pc) { return (pc - base)/bucket_size;   }
duke@435:   static address pc_for(int index)     { return base + (index * bucket_size); }
duke@435:   static int     size() {
duke@435:     return ((int)CodeCache::max_capacity())/bucket_size * BytesPerWord;
duke@435:   }
duke@435:  public:
duke@435:   static address bucket_start_for(address pc) {
duke@435:     if (counters == NULL) return NULL;
duke@435:     return pc_for(index_for(pc));
duke@435:   }
duke@435:   static int bucket_count_for(address pc)  { return counters[index_for(pc)]; }
duke@435:   static void init();
duke@435:   static void record(address pc);
duke@435:   static void print();
duke@435:   static void print_blobs(CodeBlob* cb);
duke@435: };
duke@435: 
duke@435: int*    PCRecorder::counters = NULL;
duke@435: address PCRecorder::base     = NULL;
duke@435: 
duke@435: void PCRecorder::init() {
duke@435:   MutexLockerEx lm(CodeCache_lock, Mutex::_no_safepoint_check_flag);
duke@435:   int s = size();
duke@435:   counters = NEW_C_HEAP_ARRAY(int, s);
duke@435:   for (int index = 0; index < s; index++) {
duke@435:     counters[index] = 0;
duke@435:   }
duke@435:   base = CodeCache::first_address();
duke@435: }
duke@435: 
duke@435: void PCRecorder::record(address pc) {
duke@435:   if (counters == NULL) return;
duke@435:   assert(CodeCache::contains(pc), "must be in CodeCache");
duke@435:   counters[index_for(pc)]++;
duke@435: }
duke@435: 
duke@435: 
duke@435: address FlatProfiler::bucket_start_for(address pc) {
duke@435:   return PCRecorder::bucket_start_for(pc);
duke@435: }
duke@435: 
duke@435: int FlatProfiler::bucket_count_for(address pc) {
duke@435:   return PCRecorder::bucket_count_for(pc);
duke@435: }
duke@435: 
duke@435: void PCRecorder::print() {
duke@435:   if (counters == NULL) return;
duke@435: 
duke@435:   tty->cr();
duke@435:   tty->print_cr("Printing compiled methods with PC buckets having more than %d ticks", ProfilerPCTickThreshold);
duke@435:   tty->print_cr("===================================================================");
duke@435:   tty->cr();
duke@435: 
duke@435:   GrowableArray<CodeBlob*>* candidates = new GrowableArray<CodeBlob*>(20);
duke@435: 
duke@435: 
duke@435:   int s;
duke@435:   {
duke@435:     MutexLockerEx lm(CodeCache_lock, Mutex::_no_safepoint_check_flag);
duke@435:     s = size();
duke@435:   }
duke@435: 
duke@435:   for (int index = 0; index < s; index++) {
duke@435:     int count = counters[index];
duke@435:     if (count > ProfilerPCTickThreshold) {
duke@435:       address pc = pc_for(index);
duke@435:       CodeBlob* cb = CodeCache::find_blob_unsafe(pc);
duke@435:       if (cb != NULL && candidates->find(cb) < 0) {
duke@435:         candidates->push(cb);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   for (int i = 0; i < candidates->length(); i++) {
duke@435:     print_blobs(candidates->at(i));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void PCRecorder::print_blobs(CodeBlob* cb) {
duke@435:   if (cb != NULL) {
duke@435:     cb->print();
duke@435:     if (cb->is_nmethod()) {
duke@435:       ((nmethod*)cb)->print_code();
duke@435:     }
duke@435:     tty->cr();
duke@435:   } else {
duke@435:     tty->print_cr("stub code");
duke@435:   }
duke@435: }
duke@435: 
duke@435: class tick_counter {            // holds tick info for one node
duke@435:  public:
duke@435:   int ticks_in_code;
duke@435:   int ticks_in_native;
duke@435: 
duke@435:   tick_counter()                     {  ticks_in_code = ticks_in_native = 0; }
duke@435:   tick_counter(int code, int native) {  ticks_in_code = code; ticks_in_native = native; }
duke@435: 
duke@435:   int total() const {
duke@435:     return (ticks_in_code + ticks_in_native);
duke@435:   }
duke@435: 
duke@435:   void add(tick_counter* a) {
duke@435:     ticks_in_code += a->ticks_in_code;
duke@435:     ticks_in_native += a->ticks_in_native;
duke@435:   }
duke@435: 
duke@435:   void update(TickPosition where) {
duke@435:     switch(where) {
duke@435:       case tp_code:     ticks_in_code++;       break;
duke@435:       case tp_native:   ticks_in_native++;      break;
duke@435:     }
duke@435:   }
duke@435: 
duke@435:   void print_code(outputStream* st, int total_ticks) {
duke@435:     st->print("%5.1f%% %5d ", total() * 100.0 / total_ticks, ticks_in_code);
duke@435:   }
duke@435: 
duke@435:   void print_native(outputStream* st) {
duke@435:     st->print(" + %5d ", ticks_in_native);
duke@435:   }
duke@435: };
duke@435: 
duke@435: class ProfilerNode {
duke@435:  private:
duke@435:   ProfilerNode* _next;
duke@435:  public:
duke@435:   tick_counter ticks;
duke@435: 
duke@435:  public:
duke@435: 
duke@435:   void* operator new(size_t size, ThreadProfiler* tp);
duke@435:   void  operator delete(void* p);
duke@435: 
duke@435:   ProfilerNode() {
duke@435:     _next = NULL;
duke@435:   }
duke@435: 
duke@435:   virtual ~ProfilerNode() {
duke@435:     if (_next)
duke@435:       delete _next;
duke@435:   }
duke@435: 
duke@435:   void set_next(ProfilerNode* n) { _next = n; }
duke@435:   ProfilerNode* next()           { return _next; }
duke@435: 
duke@435:   void update(TickPosition where) { ticks.update(where);}
duke@435:   int total_ticks() { return ticks.total(); }
duke@435: 
duke@435:   virtual bool is_interpreted() const { return false; }
duke@435:   virtual bool is_compiled()    const { return false; }
duke@435:   virtual bool is_stub()        const { return false; }
duke@435:   virtual bool is_runtime_stub() const{ return false; }
duke@435:   virtual void oops_do(OopClosure* f) = 0;
duke@435: 
duke@435:   virtual bool interpreted_match(methodOop m) const { return false; }
duke@435:   virtual bool compiled_match(methodOop m ) const { return false; }
duke@435:   virtual bool stub_match(methodOop m, const char* name) const { return false; }
duke@435:   virtual bool adapter_match() const { return false; }
duke@435:   virtual bool runtimeStub_match(const CodeBlob* stub, const char* name) const { return false; }
duke@435:   virtual bool unknown_compiled_match(const CodeBlob* cb) const { return false; }
duke@435: 
duke@435:   static void print_title(outputStream* st) {
duke@435:     st->print(" + native");
duke@435:     st->fill_to(col3);
duke@435:     st->print("Method");
duke@435:     st->fill_to(col4);
duke@435:     st->cr();
duke@435:   }
duke@435: 
duke@435:   static void print_total(outputStream* st, tick_counter* t, int total, const char* msg) {
duke@435:     t->print_code(st, total);
duke@435:     st->fill_to(col2);
duke@435:     t->print_native(st);
duke@435:     st->fill_to(col3);
duke@435:     st->print(msg);
duke@435:     st->cr();
duke@435:   }
duke@435: 
duke@435:   virtual methodOop method()         = 0;
duke@435: 
duke@435:   virtual void print_method_on(outputStream* st) {
duke@435:     int limit;
duke@435:     int i;
duke@435:     methodOop m = method();
duke@435:     symbolOop k = m->klass_name();
duke@435:     // Print the class name with dots instead of slashes
duke@435:     limit = k->utf8_length();
duke@435:     for (i = 0 ; i < limit ; i += 1) {
duke@435:       char c = (char) k->byte_at(i);
duke@435:       if (c == '/') {
duke@435:         c = '.';
duke@435:       }
duke@435:       st->print("%c", c);
duke@435:     }
duke@435:     if (limit > 0) {
duke@435:       st->print(".");
duke@435:     }
duke@435:     symbolOop n = m->name();
duke@435:     limit = n->utf8_length();
duke@435:     for (i = 0 ; i < limit ; i += 1) {
duke@435:       char c = (char) n->byte_at(i);
duke@435:       st->print("%c", c);
duke@435:     }
duke@435:     if( Verbose ) {
duke@435:       // Disambiguate overloaded methods
duke@435:       symbolOop sig = m->signature();
duke@435:       sig->print_symbol_on(st);
duke@435:     }
duke@435:   }
duke@435: 
duke@435:   virtual void print(outputStream* st, int total_ticks) {
duke@435:     ticks.print_code(st, total_ticks);
duke@435:     st->fill_to(col2);
duke@435:     ticks.print_native(st);
duke@435:     st->fill_to(col3);
duke@435:     print_method_on(st);
duke@435:     st->cr();
duke@435:   }
duke@435: 
duke@435:   // for hashing into the table
duke@435:   static int hash(methodOop method) {
duke@435:       // The point here is to try to make something fairly unique
duke@435:       // out of the fields we can read without grabbing any locks
duke@435:       // since the method may be locked when we need the hash.
duke@435:       return (
duke@435:           method->code_size() ^
duke@435:           method->max_stack() ^
duke@435:           method->max_locals() ^
duke@435:           method->size_of_parameters());
duke@435:   }
duke@435: 
duke@435:   // for sorting
duke@435:   static int compare(ProfilerNode** a, ProfilerNode** b) {
duke@435:     return (*b)->total_ticks() - (*a)->total_ticks();
duke@435:   }
duke@435: };
duke@435: 
duke@435: void* ProfilerNode::operator new(size_t size, ThreadProfiler* tp){
duke@435:   void* result = (void*) tp->area_top;
duke@435:   tp->area_top += size;
duke@435: 
duke@435:   if (tp->area_top > tp->area_limit) {
duke@435:     fatal("flat profiler buffer overflow");
duke@435:   }
duke@435:   return result;
duke@435: }
duke@435: 
duke@435: void ProfilerNode::operator delete(void* p){
duke@435: }
duke@435: 
duke@435: class interpretedNode : public ProfilerNode {
duke@435:  private:
duke@435:    methodOop _method;
duke@435:  public:
duke@435:    interpretedNode(methodOop method, TickPosition where) : ProfilerNode() {
duke@435:      _method = method;
duke@435:      update(where);
duke@435:    }
duke@435: 
duke@435:    bool is_interpreted() const { return true; }
duke@435: 
duke@435:    bool interpreted_match(methodOop m) const {
duke@435:       return _method == m;
duke@435:    }
duke@435: 
duke@435:    void oops_do(OopClosure* f) {
duke@435:      f->do_oop((oop*)&_method);
duke@435:    }
duke@435: 
duke@435:    methodOop method() { return _method; }
duke@435: 
duke@435:    static void print_title(outputStream* st) {
duke@435:      st->fill_to(col1);
duke@435:      st->print("%11s", "Interpreted");
duke@435:      ProfilerNode::print_title(st);
duke@435:    }
duke@435: 
duke@435:    void print(outputStream* st, int total_ticks) {
duke@435:      ProfilerNode::print(st, total_ticks);
duke@435:    }
duke@435: 
duke@435:    void print_method_on(outputStream* st) {
duke@435:      ProfilerNode::print_method_on(st);
duke@435:      if (Verbose) method()->invocation_counter()->print_short();
duke@435:    }
duke@435: };
duke@435: 
duke@435: class compiledNode : public ProfilerNode {
duke@435:  private:
duke@435:    methodOop _method;
duke@435:  public:
duke@435:    compiledNode(methodOop method, TickPosition where) : ProfilerNode() {
duke@435:      _method = method;
duke@435:      update(where);
duke@435:   }
duke@435:   bool is_compiled()    const { return true; }
duke@435: 
duke@435:   bool compiled_match(methodOop m) const {
duke@435:     return _method == m;
duke@435:   }
duke@435: 
duke@435:   methodOop method()         { return _method; }
duke@435: 
duke@435:   void oops_do(OopClosure* f) {
duke@435:     f->do_oop((oop*)&_method);
duke@435:   }
duke@435: 
duke@435:   static void print_title(outputStream* st) {
duke@435:     st->fill_to(col1);
duke@435:     st->print("%11s", "Compiled");
duke@435:     ProfilerNode::print_title(st);
duke@435:   }
duke@435: 
duke@435:   void print(outputStream* st, int total_ticks) {
duke@435:     ProfilerNode::print(st, total_ticks);
duke@435:   }
duke@435: 
duke@435:   void print_method_on(outputStream* st) {
duke@435:     ProfilerNode::print_method_on(st);
duke@435:   }
duke@435: };
duke@435: 
duke@435: class stubNode : public ProfilerNode {
duke@435:  private:
duke@435:   methodOop _method;
duke@435:   const char* _symbol;   // The name of the nearest VM symbol (for +ProfileVM). Points to a unique string
duke@435:  public:
duke@435:    stubNode(methodOop method, const char* name, TickPosition where) : ProfilerNode() {
duke@435:      _method = method;
duke@435:      _symbol = name;
duke@435:      update(where);
duke@435:    }
duke@435: 
duke@435:    bool is_stub() const { return true; }
duke@435: 
duke@435:    bool stub_match(methodOop m, const char* name) const {
duke@435:      return (_method == m) && (_symbol == name);
duke@435:    }
duke@435: 
duke@435:    void oops_do(OopClosure* f) {
duke@435:      f->do_oop((oop*)&_method);
duke@435:    }
duke@435: 
duke@435:    methodOop method() { return _method; }
duke@435: 
duke@435:    static void print_title(outputStream* st) {
duke@435:      st->fill_to(col1);
duke@435:      st->print("%11s", "Stub");
duke@435:      ProfilerNode::print_title(st);
duke@435:    }
duke@435: 
duke@435:    void print(outputStream* st, int total_ticks) {
duke@435:      ProfilerNode::print(st, total_ticks);
duke@435:    }
duke@435: 
duke@435:    void print_method_on(outputStream* st) {
duke@435:      ProfilerNode::print_method_on(st);
duke@435:      print_symbol_on(st);
duke@435:    }
duke@435: 
duke@435:   void print_symbol_on(outputStream* st) {
duke@435:     if(_symbol) {
duke@435:       st->print("  (%s)", _symbol);
duke@435:     }
duke@435:   }
duke@435: };
duke@435: 
duke@435: class adapterNode : public ProfilerNode {
duke@435:  public:
duke@435:    adapterNode(TickPosition where) : ProfilerNode() {
duke@435:      update(where);
duke@435:   }
duke@435:   bool is_compiled()    const { return true; }
duke@435: 
duke@435:   bool adapter_match() const { return true; }
duke@435: 
duke@435:   methodOop method()         { return NULL; }
duke@435: 
duke@435:   void oops_do(OopClosure* f) {
duke@435:     ;
duke@435:   }
duke@435: 
duke@435:   void print(outputStream* st, int total_ticks) {
duke@435:     ProfilerNode::print(st, total_ticks);
duke@435:   }
duke@435: 
duke@435:   void print_method_on(outputStream* st) {
duke@435:     st->print("%s", "adapters");
duke@435:   }
duke@435: };
duke@435: 
duke@435: class runtimeStubNode : public ProfilerNode {
duke@435:  private:
duke@435:    const CodeBlob* _stub;
duke@435:   const char* _symbol;     // The name of the nearest VM symbol when ProfileVM is on. Points to a unique string.
duke@435:  public:
duke@435:    runtimeStubNode(const CodeBlob* stub, const char* name, TickPosition where) : ProfilerNode(), _stub(stub),  _symbol(name) {
duke@435:      assert(stub->is_runtime_stub(), "wrong code blob");
duke@435:      update(where);
duke@435:    }
duke@435: 
duke@435:   bool is_runtime_stub() const { return true; }
duke@435: 
duke@435:   bool runtimeStub_match(const CodeBlob* stub, const char* name) const {
duke@435:     assert(stub->is_runtime_stub(), "wrong code blob");
duke@435:     return ((RuntimeStub*)_stub)->entry_point() == ((RuntimeStub*)stub)->entry_point() &&
duke@435:             (_symbol == name);
duke@435:   }
duke@435: 
duke@435:   methodOop method() { return NULL; }
duke@435: 
duke@435:   static void print_title(outputStream* st) {
duke@435:     st->fill_to(col1);
duke@435:     st->print("%11s", "Runtime stub");
duke@435:     ProfilerNode::print_title(st);
duke@435:   }
duke@435: 
duke@435:   void oops_do(OopClosure* f) {
duke@435:     ;
duke@435:   }
duke@435: 
duke@435:   void print(outputStream* st, int total_ticks) {
duke@435:     ProfilerNode::print(st, total_ticks);
duke@435:   }
duke@435: 
duke@435:   void print_method_on(outputStream* st) {
duke@435:     st->print("%s", ((RuntimeStub*)_stub)->name());
duke@435:     print_symbol_on(st);
duke@435:   }
duke@435: 
duke@435:   void print_symbol_on(outputStream* st) {
duke@435:     if(_symbol) {
duke@435:       st->print("  (%s)", _symbol);
duke@435:     }
duke@435:   }
duke@435: };
duke@435: 
duke@435: 
duke@435: class unknown_compiledNode : public ProfilerNode {
duke@435:  const char *_name;
duke@435:  public:
duke@435:    unknown_compiledNode(const CodeBlob* cb, TickPosition where) : ProfilerNode() {
duke@435:      if ( cb->is_buffer_blob() )
duke@435:        _name = ((BufferBlob*)cb)->name();
duke@435:      else
duke@435:        _name = ((SingletonBlob*)cb)->name();
duke@435:      update(where);
duke@435:   }
duke@435:   bool is_compiled()    const { return true; }
duke@435: 
duke@435:   bool unknown_compiled_match(const CodeBlob* cb) const {
duke@435:      if ( cb->is_buffer_blob() )
duke@435:        return !strcmp(((BufferBlob*)cb)->name(), _name);
duke@435:      else
duke@435:        return !strcmp(((SingletonBlob*)cb)->name(), _name);
duke@435:   }
duke@435: 
duke@435:   methodOop method()         { return NULL; }
duke@435: 
duke@435:   void oops_do(OopClosure* f) {
duke@435:     ;
duke@435:   }
duke@435: 
duke@435:   void print(outputStream* st, int total_ticks) {
duke@435:     ProfilerNode::print(st, total_ticks);
duke@435:   }
duke@435: 
duke@435:   void print_method_on(outputStream* st) {
duke@435:     st->print("%s", _name);
duke@435:   }
duke@435: };
duke@435: 
duke@435: class vmNode : public ProfilerNode {
duke@435:  private:
duke@435:   const char* _name; // "optional" name obtained by os means such as dll lookup
duke@435:  public:
duke@435:   vmNode(const TickPosition where) : ProfilerNode() {
duke@435:     _name = NULL;
duke@435:     update(where);
duke@435:   }
duke@435: 
duke@435:   vmNode(const char* name, const TickPosition where) : ProfilerNode() {
duke@435:     _name = name;
duke@435:     update(where);
duke@435:   }
duke@435: 
duke@435:   const char *name()    const { return _name; }
duke@435:   bool is_compiled()    const { return true; }
duke@435: 
duke@435:   bool vm_match(const char* name) const { return strcmp(name, _name) == 0; }
duke@435: 
duke@435:   methodOop method()          { return NULL; }
duke@435: 
duke@435:   static int hash(const char* name){
duke@435:     // Compute a simple hash
duke@435:     const char* cp = name;
duke@435:     int h = 0;
duke@435: 
duke@435:     if(name != NULL){
duke@435:       while(*cp != '\0'){
duke@435:         h = (h << 1) ^ *cp;
duke@435:         cp++;
duke@435:       }
duke@435:     }
duke@435:     return h;
duke@435:   }
duke@435: 
duke@435:   void oops_do(OopClosure* f) {
duke@435:     ;
duke@435:   }
duke@435: 
duke@435:   void print(outputStream* st, int total_ticks) {
duke@435:     ProfilerNode::print(st, total_ticks);
duke@435:   }
duke@435: 
duke@435:   void print_method_on(outputStream* st) {
duke@435:     if(_name==NULL){
duke@435:       st->print("%s", "unknown code");
duke@435:     }
duke@435:     else {
duke@435:       st->print("%s", _name);
duke@435:     }
duke@435:   }
duke@435: };
duke@435: 
duke@435: void ThreadProfiler::interpreted_update(methodOop method, TickPosition where) {
duke@435:   int index = entry(ProfilerNode::hash(method));
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) interpretedNode(method, where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->interpreted_match(method)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) interpretedNode(method, where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::compiled_update(methodOop method, TickPosition where) {
duke@435:   int index = entry(ProfilerNode::hash(method));
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) compiledNode(method, where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->compiled_match(method)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) compiledNode(method, where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::stub_update(methodOop method, const char* name, TickPosition where) {
duke@435:   int index = entry(ProfilerNode::hash(method));
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) stubNode(method, name, where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->stub_match(method, name)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) stubNode(method, name, where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::adapter_update(TickPosition where) {
duke@435:   int index = 0;
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) adapterNode(where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->adapter_match()) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) adapterNode(where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::runtime_stub_update(const CodeBlob* stub, const char* name, TickPosition where) {
duke@435:   int index = 0;
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) runtimeStubNode(stub, name, where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->runtimeStub_match(stub, name)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) runtimeStubNode(stub, name, where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: 
duke@435: void ThreadProfiler::unknown_compiled_update(const CodeBlob* cb, TickPosition where) {
duke@435:   int index = 0;
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) unknown_compiledNode(cb, where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (node->unknown_compiled_match(cb)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) unknown_compiledNode(cb, where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::vm_update(TickPosition where) {
duke@435:   vm_update(NULL, where);
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::vm_update(const char* name, TickPosition where) {
duke@435:   int index = entry(vmNode::hash(name));
duke@435:   assert(index >= 0, "Must be positive");
duke@435:   // Note that we call strdup below since the symbol may be resource allocated
duke@435:   if (!table[index]) {
duke@435:     table[index] = new (this) vmNode(os::strdup(name), where);
duke@435:   } else {
duke@435:     ProfilerNode* prev = table[index];
duke@435:     for(ProfilerNode* node = prev; node; node = node->next()) {
duke@435:       if (((vmNode *)node)->vm_match(name)) {
duke@435:         node->update(where);
duke@435:         return;
duke@435:       }
duke@435:       prev = node;
duke@435:     }
duke@435:     prev->set_next(new (this) vmNode(os::strdup(name), where));
duke@435:   }
duke@435: }
duke@435: 
duke@435: 
duke@435: class FlatProfilerTask : public PeriodicTask {
duke@435: public:
duke@435:   FlatProfilerTask(int interval_time) : PeriodicTask(interval_time) {}
duke@435:   void task();
duke@435: };
duke@435: 
duke@435: void FlatProfiler::record_vm_operation() {
duke@435:   if (Universe::heap()->is_gc_active()) {
duke@435:     FlatProfiler::received_gc_ticks += 1;
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   if (DeoptimizationMarker::is_active()) {
duke@435:     FlatProfiler::deopt_ticks += 1;
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   FlatProfiler::vm_operation_ticks += 1;
duke@435: }
duke@435: 
duke@435: void FlatProfiler::record_vm_tick() {
duke@435:   // Profile the VM Thread itself if needed
duke@435:   // This is done without getting the Threads_lock and we can go deep
duke@435:   // inside Safepoint, etc.
duke@435:   if( ProfileVM  ) {
duke@435:     ResourceMark rm;
duke@435:     ExtendedPC epc;
duke@435:     const char *name = NULL;
duke@435:     char buf[256];
duke@435:     buf[0] = '\0';
duke@435: 
duke@435:     vm_thread_profiler->inc_thread_ticks();
duke@435: 
duke@435:     // Get a snapshot of a current VMThread pc (and leave it running!)
duke@435:     // The call may fail if, for instance the VM thread is interrupted while
duke@435:     // holding the Interrupt_lock or for other reasons.
duke@435:     epc = os::get_thread_pc(VMThread::vm_thread());
duke@435:     if(epc.pc() != NULL) {
duke@435:       if (os::dll_address_to_function_name(epc.pc(), buf, sizeof(buf), NULL)) {
duke@435:          name = buf;
duke@435:       }
duke@435:     }
duke@435:     if (name != NULL) {
duke@435:       vm_thread_profiler->vm_update(name, tp_native);
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: void FlatProfiler::record_thread_ticks() {
duke@435: 
duke@435:   int maxthreads, suspendedthreadcount;
duke@435:   JavaThread** threadsList;
duke@435:   bool interval_expired = false;
duke@435: 
duke@435:   if (ProfileIntervals &&
duke@435:       (FlatProfiler::received_ticks >= interval_ticks_previous + ProfileIntervalsTicks)) {
duke@435:     interval_expired = true;
duke@435:     interval_ticks_previous = FlatProfiler::received_ticks;
duke@435:   }
duke@435: 
duke@435:   // Try not to wait for the Threads_lock
duke@435:   if (Threads_lock->try_lock()) {
duke@435:     {  // Threads_lock scope
duke@435:       maxthreads = Threads::number_of_threads();
duke@435:       threadsList = NEW_C_HEAP_ARRAY(JavaThread *, maxthreads);
duke@435:       suspendedthreadcount = 0;
duke@435:       for (JavaThread* tp = Threads::first(); tp != NULL; tp = tp->next()) {
duke@435:         if (tp->is_Compiler_thread()) {
duke@435:           // Only record ticks for active compiler threads
duke@435:           CompilerThread* cthread = (CompilerThread*)tp;
duke@435:           if (cthread->task() != NULL) {
duke@435:             // The compiler is active.  If we need to access any of the fields
duke@435:             // of the compiler task we should suspend the CompilerThread first.
duke@435:             FlatProfiler::compiler_ticks += 1;
duke@435:             continue;
duke@435:           }
duke@435:         }
duke@435: 
duke@435:         // First externally suspend all threads by marking each for
duke@435:         // external suspension - so it will stop at its next transition
duke@435:         // Then do a safepoint
duke@435:         ThreadProfiler* pp = tp->get_thread_profiler();
duke@435:         if (pp != NULL && pp->engaged) {
duke@435:           MutexLockerEx ml(tp->SR_lock(), Mutex::_no_safepoint_check_flag);
duke@435:           if (!tp->is_external_suspend() && !tp->is_exiting()) {
duke@435:             tp->set_external_suspend();
duke@435:             threadsList[suspendedthreadcount++] = tp;
duke@435:           }
duke@435:         }
duke@435:       }
duke@435:       Threads_lock->unlock();
duke@435:     }
duke@435:     // Suspend each thread. This call should just return
duke@435:     // for any threads that have already self-suspended
duke@435:     // Net result should be one safepoint
duke@435:     for (int j = 0; j < suspendedthreadcount; j++) {
duke@435:       JavaThread *tp = threadsList[j];
duke@435:       if (tp) {
duke@435:         tp->java_suspend();
duke@435:       }
duke@435:     }
duke@435: 
duke@435:     // We are responsible for resuming any thread on this list
duke@435:     for (int i = 0; i < suspendedthreadcount; i++) {
duke@435:       JavaThread *tp = threadsList[i];
duke@435:       if (tp) {
duke@435:         ThreadProfiler* pp = tp->get_thread_profiler();
duke@435:         if (pp != NULL && pp->engaged) {
duke@435:           HandleMark hm;
duke@435:           FlatProfiler::delivered_ticks += 1;
duke@435:           if (interval_expired) {
duke@435:           FlatProfiler::interval_record_thread(pp);
duke@435:           }
duke@435:           // This is the place where we check to see if a user thread is
duke@435:           // blocked waiting for compilation.
duke@435:           if (tp->blocked_on_compilation()) {
duke@435:             pp->compiler_ticks += 1;
duke@435:             pp->interval_data_ref()->inc_compiling();
duke@435:           } else {
duke@435:             pp->record_tick(tp);
duke@435:           }
duke@435:         }
duke@435:         MutexLocker ml(Threads_lock);
duke@435:         tp->java_resume();
duke@435:       }
duke@435:     }
duke@435:     if (interval_expired) {
duke@435:       FlatProfiler::interval_print();
duke@435:       FlatProfiler::interval_reset();
duke@435:     }
duke@435:   } else {
duke@435:     // Couldn't get the threads lock, just record that rather than blocking
duke@435:     FlatProfiler::threads_lock_ticks += 1;
duke@435:   }
duke@435: 
duke@435: }
duke@435: 
duke@435: void FlatProfilerTask::task() {
duke@435:   FlatProfiler::received_ticks += 1;
duke@435: 
duke@435:   if (ProfileVM) {
duke@435:     FlatProfiler::record_vm_tick();
duke@435:   }
duke@435: 
duke@435:   VM_Operation* op = VMThread::vm_operation();
duke@435:   if (op != NULL) {
duke@435:     FlatProfiler::record_vm_operation();
duke@435:     if (SafepointSynchronize::is_at_safepoint()) {
duke@435:       return;
duke@435:     }
duke@435:   }
duke@435:   FlatProfiler::record_thread_ticks();
duke@435: }
duke@435: 
sgoldman@542: void ThreadProfiler::record_interpreted_tick(JavaThread* thread, frame fr, TickPosition where, int* ticks) {
duke@435:   FlatProfiler::all_int_ticks++;
duke@435:   if (!FlatProfiler::full_profile()) {
duke@435:     return;
duke@435:   }
duke@435: 
sgoldman@542:   if (!fr.is_interpreted_frame_valid(thread)) {
duke@435:     // tick came at a bad time
duke@435:     interpreter_ticks += 1;
duke@435:     FlatProfiler::interpreter_ticks += 1;
duke@435:     return;
duke@435:   }
duke@435: 
sgoldman@542:   // The frame has been fully validated so we can trust the method and bci
sgoldman@542: 
sgoldman@542:   methodOop method = *fr.interpreter_frame_method_addr();
sgoldman@542: 
duke@435:   interpreted_update(method, where);
duke@435: 
duke@435:   // update byte code table
duke@435:   InterpreterCodelet* desc = Interpreter::codelet_containing(fr.pc());
duke@435:   if (desc != NULL && desc->bytecode() >= 0) {
duke@435:     ticks[desc->bytecode()]++;
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::record_compiled_tick(JavaThread* thread, frame fr, TickPosition where) {
duke@435:   const char *name = NULL;
duke@435:   TickPosition localwhere = where;
duke@435: 
duke@435:   FlatProfiler::all_comp_ticks++;
duke@435:   if (!FlatProfiler::full_profile()) return;
duke@435: 
duke@435:   CodeBlob* cb = fr.cb();
duke@435: 
duke@435: // For runtime stubs, record as native rather than as compiled
duke@435:    if (cb->is_runtime_stub()) {
duke@435:         RegisterMap map(thread, false);
duke@435:         fr = fr.sender(&map);
duke@435:         cb = fr.cb();
duke@435:         localwhere = tp_native;
duke@435:   }
duke@435:   methodOop method = (cb->is_nmethod()) ? ((nmethod *)cb)->method() :
duke@435:                                           (methodOop)NULL;
duke@435: 
duke@435:   if (method == NULL) {
duke@435:     if (cb->is_runtime_stub())
duke@435:       runtime_stub_update(cb, name, localwhere);
duke@435:     else
duke@435:       unknown_compiled_update(cb, localwhere);
duke@435:   }
duke@435:   else {
duke@435:     if (method->is_native()) {
duke@435:       stub_update(method, name, localwhere);
duke@435:     } else {
duke@435:       compiled_update(method, localwhere);
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: extern "C" void find(int x);
duke@435: 
duke@435: 
duke@435: void ThreadProfiler::record_tick_for_running_frame(JavaThread* thread, frame fr) {
twisti@1040:   // The tick happened in real code -> non VM code
duke@435:   if (fr.is_interpreted_frame()) {
duke@435:     interval_data_ref()->inc_interpreted();
sgoldman@542:     record_interpreted_tick(thread, fr, tp_code, FlatProfiler::bytecode_ticks);
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   if (CodeCache::contains(fr.pc())) {
duke@435:     interval_data_ref()->inc_compiled();
duke@435:     PCRecorder::record(fr.pc());
duke@435:     record_compiled_tick(thread, fr, tp_code);
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   if (VtableStubs::stub_containing(fr.pc()) != NULL) {
duke@435:     unknown_ticks_array[ut_vtable_stubs] += 1;
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   frame caller = fr.profile_find_Java_sender_frame(thread);
duke@435: 
duke@435:   if (caller.sp() != NULL && caller.pc() != NULL) {
duke@435:     record_tick_for_calling_frame(thread, caller);
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   unknown_ticks_array[ut_running_frame] += 1;
duke@435:   FlatProfiler::unknown_ticks += 1;
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::record_tick_for_calling_frame(JavaThread* thread, frame fr) {
twisti@1040:   // The tick happened in VM code
duke@435:   interval_data_ref()->inc_native();
duke@435:   if (fr.is_interpreted_frame()) {
sgoldman@542:     record_interpreted_tick(thread, fr, tp_native, FlatProfiler::bytecode_ticks_stub);
duke@435:     return;
duke@435:   }
duke@435:   if (CodeCache::contains(fr.pc())) {
duke@435:     record_compiled_tick(thread, fr, tp_native);
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   frame caller = fr.profile_find_Java_sender_frame(thread);
duke@435: 
duke@435:   if (caller.sp() != NULL && caller.pc() != NULL) {
duke@435:     record_tick_for_calling_frame(thread, caller);
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   unknown_ticks_array[ut_calling_frame] += 1;
duke@435:   FlatProfiler::unknown_ticks += 1;
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::record_tick(JavaThread* thread) {
duke@435:   FlatProfiler::all_ticks++;
duke@435:   thread_ticks += 1;
duke@435: 
duke@435:   // Here's another way to track global state changes.
duke@435:   // When the class loader starts it marks the ThreadProfiler to tell it it is in the class loader
duke@435:   // and we check that here.
duke@435:   // This is more direct, and more than one thread can be in the class loader at a time,
duke@435:   // but it does mean the class loader has to know about the profiler.
duke@435:   if (region_flag[ThreadProfilerMark::classLoaderRegion]) {
duke@435:     class_loader_ticks += 1;
duke@435:     FlatProfiler::class_loader_ticks += 1;
duke@435:     return;
duke@435:   } else if (region_flag[ThreadProfilerMark::extraRegion]) {
duke@435:     extra_ticks += 1;
duke@435:     FlatProfiler::extra_ticks += 1;
duke@435:     return;
duke@435:   }
duke@435:   // Note that the WatcherThread can now stop for safepoints
duke@435:   uint32_t debug_bits = 0;
duke@435:   if (!thread->wait_for_ext_suspend_completion(SuspendRetryCount,
duke@435:       SuspendRetryDelay, &debug_bits)) {
duke@435:     unknown_ticks_array[ut_unknown_thread_state] += 1;
duke@435:     FlatProfiler::unknown_ticks += 1;
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   frame fr;
duke@435: 
duke@435:   switch (thread->thread_state()) {
duke@435:   case _thread_in_native:
duke@435:   case _thread_in_native_trans:
duke@435:   case _thread_in_vm:
duke@435:   case _thread_in_vm_trans:
duke@435:     if (thread->profile_last_Java_frame(&fr)) {
duke@435:       if (fr.is_runtime_frame()) {
duke@435:         RegisterMap map(thread, false);
duke@435:         fr = fr.sender(&map);
duke@435:       }
duke@435:       record_tick_for_calling_frame(thread, fr);
duke@435:     } else {
duke@435:       unknown_ticks_array[ut_no_last_Java_frame] += 1;
duke@435:       FlatProfiler::unknown_ticks += 1;
duke@435:     }
duke@435:     break;
duke@435:   // handle_special_runtime_exit_condition self-suspends threads in Java
duke@435:   case _thread_in_Java:
duke@435:   case _thread_in_Java_trans:
duke@435:     if (thread->profile_last_Java_frame(&fr)) {
duke@435:       if (fr.is_safepoint_blob_frame()) {
duke@435:         RegisterMap map(thread, false);
duke@435:         fr = fr.sender(&map);
duke@435:       }
duke@435:       record_tick_for_running_frame(thread, fr);
duke@435:     } else {
duke@435:       unknown_ticks_array[ut_no_last_Java_frame] += 1;
duke@435:       FlatProfiler::unknown_ticks += 1;
duke@435:     }
duke@435:     break;
duke@435:   case _thread_blocked:
duke@435:   case _thread_blocked_trans:
duke@435:     if (thread->osthread() && thread->osthread()->get_state() == RUNNABLE) {
duke@435:         if (thread->profile_last_Java_frame(&fr)) {
duke@435:           if (fr.is_safepoint_blob_frame()) {
duke@435:             RegisterMap map(thread, false);
duke@435:             fr = fr.sender(&map);
duke@435:             record_tick_for_running_frame(thread, fr);
duke@435:           } else {
duke@435:             record_tick_for_calling_frame(thread, fr);
duke@435:           }
duke@435:         } else {
duke@435:           unknown_ticks_array[ut_no_last_Java_frame] += 1;
duke@435:           FlatProfiler::unknown_ticks += 1;
duke@435:         }
duke@435:     } else {
duke@435:           blocked_ticks += 1;
duke@435:           FlatProfiler::blocked_ticks += 1;
duke@435:     }
duke@435:     break;
duke@435:   case _thread_uninitialized:
duke@435:   case _thread_new:
duke@435:   // not used, included for completeness
duke@435:   case _thread_new_trans:
duke@435:      unknown_ticks_array[ut_no_last_Java_frame] += 1;
duke@435:      FlatProfiler::unknown_ticks += 1;
duke@435:      break;
duke@435:   default:
duke@435:     unknown_ticks_array[ut_unknown_thread_state] += 1;
duke@435:     FlatProfiler::unknown_ticks += 1;
duke@435:     break;
duke@435:   }
duke@435:   return;
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::engage() {
duke@435:   engaged = true;
duke@435:   timer.start();
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::disengage() {
duke@435:   engaged = false;
duke@435:   timer.stop();
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::initialize() {
duke@435:   for (int index = 0; index < table_size; index++) {
duke@435:     table[index] = NULL;
duke@435:   }
duke@435:   thread_ticks = 0;
duke@435:   blocked_ticks = 0;
duke@435:   compiler_ticks = 0;
duke@435:   interpreter_ticks = 0;
duke@435:   for (int ut = 0; ut < ut_end; ut += 1) {
duke@435:     unknown_ticks_array[ut] = 0;
duke@435:   }
duke@435:   region_flag[ThreadProfilerMark::classLoaderRegion] = false;
duke@435:   class_loader_ticks = 0;
duke@435:   region_flag[ThreadProfilerMark::extraRegion] = false;
duke@435:   extra_ticks = 0;
duke@435:   timer.start();
duke@435:   interval_data_ref()->reset();
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::reset() {
duke@435:   timer.stop();
duke@435:   if (table != NULL) {
duke@435:     for (int index = 0; index < table_size; index++) {
duke@435:       ProfilerNode* n = table[index];
duke@435:       if (n != NULL) {
duke@435:         delete n;
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   initialize();
duke@435: }
duke@435: 
duke@435: void FlatProfiler::allocate_table() {
duke@435:   { // Bytecode table
duke@435:     bytecode_ticks      = NEW_C_HEAP_ARRAY(int, Bytecodes::number_of_codes);
duke@435:     bytecode_ticks_stub = NEW_C_HEAP_ARRAY(int, Bytecodes::number_of_codes);
duke@435:     for(int index = 0; index < Bytecodes::number_of_codes; index++) {
duke@435:       bytecode_ticks[index]      = 0;
duke@435:       bytecode_ticks_stub[index] = 0;
duke@435:     }
duke@435:   }
duke@435: 
duke@435:   if (ProfilerRecordPC) PCRecorder::init();
duke@435: 
duke@435:   interval_data         = NEW_C_HEAP_ARRAY(IntervalData, interval_print_size);
duke@435:   FlatProfiler::interval_reset();
duke@435: }
duke@435: 
duke@435: void FlatProfiler::engage(JavaThread* mainThread, bool fullProfile) {
duke@435:   full_profile_flag = fullProfile;
duke@435:   if (bytecode_ticks == NULL) {
duke@435:     allocate_table();
duke@435:   }
duke@435:   if(ProfileVM && (vm_thread_profiler == NULL)){
duke@435:     vm_thread_profiler = new ThreadProfiler();
duke@435:   }
duke@435:   if (task == NULL) {
duke@435:     task = new FlatProfilerTask(WatcherThread::delay_interval);
duke@435:     task->enroll();
duke@435:   }
duke@435:   timer.start();
duke@435:   if (mainThread != NULL) {
duke@435:     // When mainThread was created, it might not have a ThreadProfiler
duke@435:     ThreadProfiler* pp = mainThread->get_thread_profiler();
duke@435:     if (pp == NULL) {
duke@435:       mainThread->set_thread_profiler(new ThreadProfiler());
duke@435:     } else {
duke@435:       pp->reset();
duke@435:     }
duke@435:     mainThread->get_thread_profiler()->engage();
duke@435:   }
duke@435:   // This is where we would assign thread_profiler
duke@435:   // if we wanted only one thread_profiler for all threads.
duke@435:   thread_profiler = NULL;
duke@435: }
duke@435: 
duke@435: void FlatProfiler::disengage() {
duke@435:   if (!task) {
duke@435:     return;
duke@435:   }
duke@435:   timer.stop();
duke@435:   task->disenroll();
duke@435:   delete task;
duke@435:   task = NULL;
duke@435:   if (thread_profiler != NULL) {
duke@435:     thread_profiler->disengage();
duke@435:   } else {
duke@435:     MutexLocker tl(Threads_lock);
duke@435:     for (JavaThread* tp = Threads::first(); tp != NULL; tp = tp->next()) {
duke@435:       ThreadProfiler* pp = tp->get_thread_profiler();
duke@435:       if (pp != NULL) {
duke@435:         pp->disengage();
duke@435:       }
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: void FlatProfiler::reset() {
duke@435:   if (task) {
duke@435:     disengage();
duke@435:   }
duke@435: 
duke@435:   class_loader_ticks = 0;
duke@435:   extra_ticks        = 0;
duke@435:   received_gc_ticks  = 0;
duke@435:   vm_operation_ticks = 0;
duke@435:   compiler_ticks     = 0;
duke@435:   deopt_ticks        = 0;
duke@435:   interpreter_ticks  = 0;
duke@435:   blocked_ticks      = 0;
duke@435:   unknown_ticks      = 0;
duke@435:   received_ticks     = 0;
duke@435:   delivered_ticks    = 0;
duke@435:   timer.stop();
duke@435: }
duke@435: 
duke@435: bool FlatProfiler::is_active() {
duke@435:   return task != NULL;
duke@435: }
duke@435: 
duke@435: void FlatProfiler::print_byte_code_statistics() {
duke@435:   GrowableArray <ProfilerNode*>* array = new GrowableArray<ProfilerNode*>(200);
duke@435: 
duke@435:   tty->print_cr(" Bytecode ticks:");
duke@435:   for (int index = 0; index < Bytecodes::number_of_codes; index++) {
duke@435:     if (FlatProfiler::bytecode_ticks[index] > 0 || FlatProfiler::bytecode_ticks_stub[index] > 0) {
duke@435:       tty->print_cr("  %4d %4d = %s",
duke@435:         FlatProfiler::bytecode_ticks[index],
duke@435:         FlatProfiler::bytecode_ticks_stub[index],
duke@435:         Bytecodes::name( (Bytecodes::Code) index));
duke@435:     }
duke@435:   }
duke@435:   tty->cr();
duke@435: }
duke@435: 
duke@435: void print_ticks(const char* title, int ticks, int total) {
duke@435:   if (ticks > 0) {
duke@435:     tty->print("%5.1f%% %5d", ticks * 100.0 / total, ticks);
duke@435:     tty->fill_to(col3);
duke@435:     tty->print("%s", title);
duke@435:     tty->cr();
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::print(const char* thread_name) {
duke@435:   ResourceMark rm;
duke@435:   MutexLocker ppl(ProfilePrint_lock);
duke@435:   int index = 0; // Declared outside for loops for portability
duke@435: 
duke@435:   if (table == NULL) {
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   if (thread_ticks <= 0) {
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   const char* title = "too soon to tell";
duke@435:   double secs = timer.seconds();
duke@435: 
duke@435:   GrowableArray <ProfilerNode*>* array = new GrowableArray<ProfilerNode*>(200);
duke@435:   for(index = 0; index < table_size; index++) {
duke@435:     for(ProfilerNode* node = table[index]; node; node = node->next())
duke@435:       array->append(node);
duke@435:   }
duke@435: 
duke@435:   array->sort(&ProfilerNode::compare);
duke@435: 
duke@435:   // compute total (sanity check)
duke@435:   int active =
duke@435:     class_loader_ticks +
duke@435:     compiler_ticks +
duke@435:     interpreter_ticks +
duke@435:     unknown_ticks();
duke@435:   for (index = 0; index < array->length(); index++) {
duke@435:     active += array->at(index)->ticks.total();
duke@435:   }
duke@435:   int total = active + blocked_ticks;
duke@435: 
duke@435:   tty->cr();
duke@435:   tty->print_cr("Flat profile of %3.2f secs (%d total ticks): %s", secs, total, thread_name);
duke@435:   if (total != thread_ticks) {
duke@435:     print_ticks("Lost ticks", thread_ticks-total, thread_ticks);
duke@435:   }
duke@435:   tty->cr();
duke@435: 
duke@435:   // print interpreted methods
duke@435:   tick_counter interpreted_ticks;
duke@435:   bool has_interpreted_ticks = false;
duke@435:   int print_count = 0;
duke@435:   for (index = 0; index < array->length(); index++) {
duke@435:     ProfilerNode* n = array->at(index);
duke@435:     if (n->is_interpreted()) {
duke@435:       interpreted_ticks.add(&n->ticks);
duke@435:       if (!has_interpreted_ticks) {
duke@435:         interpretedNode::print_title(tty);
duke@435:         has_interpreted_ticks = true;
duke@435:       }
duke@435:       if (print_count++ < ProfilerNumberOfInterpretedMethods) {
duke@435:         n->print(tty, active);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   if (has_interpreted_ticks) {
duke@435:     if (print_count <= ProfilerNumberOfInterpretedMethods) {
duke@435:       title = "Total interpreted";
duke@435:     } else {
duke@435:       title = "Total interpreted (including elided)";
duke@435:     }
duke@435:     interpretedNode::print_total(tty, &interpreted_ticks, active, title);
duke@435:     tty->cr();
duke@435:   }
duke@435: 
duke@435:   // print compiled methods
duke@435:   tick_counter compiled_ticks;
duke@435:   bool has_compiled_ticks = false;
duke@435:   print_count = 0;
duke@435:   for (index = 0; index < array->length(); index++) {
duke@435:     ProfilerNode* n = array->at(index);
duke@435:     if (n->is_compiled()) {
duke@435:       compiled_ticks.add(&n->ticks);
duke@435:       if (!has_compiled_ticks) {
duke@435:         compiledNode::print_title(tty);
duke@435:         has_compiled_ticks = true;
duke@435:       }
duke@435:       if (print_count++ < ProfilerNumberOfCompiledMethods) {
duke@435:         n->print(tty, active);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   if (has_compiled_ticks) {
duke@435:     if (print_count <= ProfilerNumberOfCompiledMethods) {
duke@435:       title = "Total compiled";
duke@435:     } else {
duke@435:       title = "Total compiled (including elided)";
duke@435:     }
duke@435:     compiledNode::print_total(tty, &compiled_ticks, active, title);
duke@435:     tty->cr();
duke@435:   }
duke@435: 
duke@435:   // print stub methods
duke@435:   tick_counter stub_ticks;
duke@435:   bool has_stub_ticks = false;
duke@435:   print_count = 0;
duke@435:   for (index = 0; index < array->length(); index++) {
duke@435:     ProfilerNode* n = array->at(index);
duke@435:     if (n->is_stub()) {
duke@435:       stub_ticks.add(&n->ticks);
duke@435:       if (!has_stub_ticks) {
duke@435:         stubNode::print_title(tty);
duke@435:         has_stub_ticks = true;
duke@435:       }
duke@435:       if (print_count++ < ProfilerNumberOfStubMethods) {
duke@435:         n->print(tty, active);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   if (has_stub_ticks) {
duke@435:     if (print_count <= ProfilerNumberOfStubMethods) {
duke@435:       title = "Total stub";
duke@435:     } else {
duke@435:       title = "Total stub (including elided)";
duke@435:     }
duke@435:     stubNode::print_total(tty, &stub_ticks, active, title);
duke@435:     tty->cr();
duke@435:   }
duke@435: 
duke@435:   // print runtime stubs
duke@435:   tick_counter runtime_stub_ticks;
duke@435:   bool has_runtime_stub_ticks = false;
duke@435:   print_count = 0;
duke@435:   for (index = 0; index < array->length(); index++) {
duke@435:     ProfilerNode* n = array->at(index);
duke@435:     if (n->is_runtime_stub()) {
duke@435:       runtime_stub_ticks.add(&n->ticks);
duke@435:       if (!has_runtime_stub_ticks) {
duke@435:         runtimeStubNode::print_title(tty);
duke@435:         has_runtime_stub_ticks = true;
duke@435:       }
duke@435:       if (print_count++ < ProfilerNumberOfRuntimeStubNodes) {
duke@435:         n->print(tty, active);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435:   if (has_runtime_stub_ticks) {
duke@435:     if (print_count <= ProfilerNumberOfRuntimeStubNodes) {
duke@435:       title = "Total runtime stubs";
duke@435:     } else {
duke@435:       title = "Total runtime stubs (including elided)";
duke@435:     }
duke@435:     runtimeStubNode::print_total(tty, &runtime_stub_ticks, active, title);
duke@435:     tty->cr();
duke@435:   }
duke@435: 
duke@435:   if (blocked_ticks + class_loader_ticks + interpreter_ticks + compiler_ticks + unknown_ticks() != 0) {
duke@435:     tty->fill_to(col1);
duke@435:     tty->print_cr("Thread-local ticks:");
duke@435:     print_ticks("Blocked (of total)",  blocked_ticks,      total);
duke@435:     print_ticks("Class loader",        class_loader_ticks, active);
duke@435:     print_ticks("Extra",               extra_ticks,        active);
duke@435:     print_ticks("Interpreter",         interpreter_ticks,  active);
duke@435:     print_ticks("Compilation",         compiler_ticks,     active);
duke@435:     print_ticks("Unknown: vtable stubs",  unknown_ticks_array[ut_vtable_stubs],         active);
duke@435:     print_ticks("Unknown: null method",   unknown_ticks_array[ut_null_method],          active);
duke@435:     print_ticks("Unknown: running frame", unknown_ticks_array[ut_running_frame],        active);
duke@435:     print_ticks("Unknown: calling frame", unknown_ticks_array[ut_calling_frame],        active);
duke@435:     print_ticks("Unknown: no pc",         unknown_ticks_array[ut_no_pc],                active);
duke@435:     print_ticks("Unknown: no last frame", unknown_ticks_array[ut_no_last_Java_frame],   active);
duke@435:     print_ticks("Unknown: thread_state",  unknown_ticks_array[ut_unknown_thread_state], active);
duke@435:     tty->cr();
duke@435:   }
duke@435: 
duke@435:   if (WizardMode) {
duke@435:     tty->print_cr("Node area used: %dKb", (area_top - area_bottom) / 1024);
duke@435:   }
duke@435:   reset();
duke@435: }
duke@435: 
duke@435: /*
duke@435: ThreadProfiler::print_unknown(){
duke@435:   if (table == NULL) {
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   if (thread_ticks <= 0) {
duke@435:     return;
duke@435:   }
duke@435: } */
duke@435: 
duke@435: void FlatProfiler::print(int unused) {
duke@435:   ResourceMark rm;
duke@435:   if (thread_profiler != NULL) {
duke@435:     thread_profiler->print("All threads");
duke@435:   } else {
duke@435:     MutexLocker tl(Threads_lock);
duke@435:     for (JavaThread* tp = Threads::first(); tp != NULL; tp = tp->next()) {
duke@435:       ThreadProfiler* pp = tp->get_thread_profiler();
duke@435:       if (pp != NULL) {
duke@435:         pp->print(tp->get_thread_name());
duke@435:       }
duke@435:     }
duke@435:   }
duke@435: 
duke@435:   if (ProfilerPrintByteCodeStatistics) {
duke@435:     print_byte_code_statistics();
duke@435:   }
duke@435: 
duke@435:   if (non_method_ticks() > 0) {
duke@435:     tty->cr();
duke@435:     tty->print_cr("Global summary of %3.2f seconds:", timer.seconds());
duke@435:     print_ticks("Received ticks",      received_ticks,     received_ticks);
duke@435:     print_ticks("Received GC ticks",   received_gc_ticks,  received_ticks);
duke@435:     print_ticks("Compilation",         compiler_ticks,     received_ticks);
duke@435:     print_ticks("Deoptimization",      deopt_ticks,        received_ticks);
duke@435:     print_ticks("Other VM operations", vm_operation_ticks, received_ticks);
duke@435: #ifndef PRODUCT
duke@435:     print_ticks("Blocked ticks",       blocked_ticks,      received_ticks);
duke@435:     print_ticks("Threads_lock blocks", threads_lock_ticks, received_ticks);
duke@435:     print_ticks("Delivered ticks",     delivered_ticks,    received_ticks);
duke@435:     print_ticks("All ticks",           all_ticks,          received_ticks);
duke@435: #endif
duke@435:     print_ticks("Class loader",        class_loader_ticks, received_ticks);
duke@435:     print_ticks("Extra       ",        extra_ticks,        received_ticks);
duke@435:     print_ticks("Interpreter",         interpreter_ticks,  received_ticks);
duke@435:     print_ticks("Unknown code",        unknown_ticks,      received_ticks);
duke@435:   }
duke@435: 
duke@435:   PCRecorder::print();
duke@435: 
duke@435:   if(ProfileVM){
duke@435:     tty->cr();
duke@435:     vm_thread_profiler->print("VM Thread");
duke@435:   }
duke@435: }
duke@435: 
duke@435: void IntervalData::print_header(outputStream* st) {
duke@435:   st->print("i/c/n/g");
duke@435: }
duke@435: 
duke@435: void IntervalData::print_data(outputStream* st) {
duke@435:   st->print("%d/%d/%d/%d", interpreted(), compiled(), native(), compiling());
duke@435: }
duke@435: 
duke@435: void FlatProfiler::interval_record_thread(ThreadProfiler* tp) {
duke@435:   IntervalData id = tp->interval_data();
duke@435:   int total = id.total();
duke@435:   tp->interval_data_ref()->reset();
duke@435: 
duke@435:   // Insertion sort the data, if it's relevant.
duke@435:   for (int i = 0; i < interval_print_size; i += 1) {
duke@435:     if (total > interval_data[i].total()) {
duke@435:       for (int j = interval_print_size - 1; j > i; j -= 1) {
duke@435:         interval_data[j] = interval_data[j-1];
duke@435:       }
duke@435:       interval_data[i] = id;
duke@435:       break;
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: void FlatProfiler::interval_print() {
duke@435:   if ((interval_data[0].total() > 0)) {
duke@435:     tty->stamp();
duke@435:     tty->print("\t");
duke@435:     IntervalData::print_header(tty);
duke@435:     for (int i = 0; i < interval_print_size; i += 1) {
duke@435:       if (interval_data[i].total() > 0) {
duke@435:         tty->print("\t");
duke@435:         interval_data[i].print_data(tty);
duke@435:       }
duke@435:     }
duke@435:     tty->cr();
duke@435:   }
duke@435: }
duke@435: 
duke@435: void FlatProfiler::interval_reset() {
duke@435:   for (int i = 0; i < interval_print_size; i += 1) {
duke@435:     interval_data[i].reset();
duke@435:   }
duke@435: }
duke@435: 
duke@435: void ThreadProfiler::oops_do(OopClosure* f) {
duke@435:   if (table == NULL) return;
duke@435: 
duke@435:   for(int index = 0; index < table_size; index++) {
duke@435:     for(ProfilerNode* node = table[index]; node; node = node->next())
duke@435:       node->oops_do(f);
duke@435:   }
duke@435: }
duke@435: 
duke@435: void FlatProfiler::oops_do(OopClosure* f) {
duke@435:   if (thread_profiler != NULL) {
duke@435:     thread_profiler->oops_do(f);
duke@435:   } else {
duke@435:     for (JavaThread* tp = Threads::first(); tp != NULL; tp = tp->next()) {
duke@435:       ThreadProfiler* pp = tp->get_thread_profiler();
duke@435:       if (pp != NULL) {
duke@435:         pp->oops_do(f);
duke@435:       }
duke@435:     }
duke@435:   }
duke@435: }