duke@435: /*
duke@435:  * Copyright 1997-2007 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/_disassembler_x86.cpp.incl"
duke@435: 
duke@435: #ifndef PRODUCT
duke@435: 
duke@435: void*    Disassembler::_library            = NULL;
duke@435: Disassembler::decode_func Disassembler::_decode_instruction = NULL;
duke@435: 
duke@435: bool Disassembler::load_library() {
duke@435:   if (_library == NULL) {
duke@435:     char buf[1024];
duke@435:     char ebuf[1024];
duke@435:     sprintf(buf, "disassembler%s", os::dll_file_extension());
duke@435:     _library = hpi::dll_load(buf, ebuf, sizeof ebuf);
duke@435:     if (_library != NULL) {
duke@435:       tty->print_cr("Loaded disassembler");
duke@435:       _decode_instruction = CAST_TO_FN_PTR(Disassembler::decode_func, hpi::dll_lookup(_library, "decode_instruction"));
duke@435:     }
duke@435:   }
duke@435:   return (_library != NULL) && (_decode_instruction != NULL);
duke@435: }
duke@435: 
duke@435: class x86_env : public DisassemblerEnv {
duke@435:  private:
duke@435:   nmethod*      code;
duke@435:   outputStream* output;
duke@435:  public:
duke@435:   x86_env(nmethod* rcode, outputStream* routput) {
duke@435:     code   = rcode;
duke@435:     output = routput;
duke@435:   }
duke@435:   void print_label(intptr_t value);
duke@435:   void print_raw(char* str) { output->print_raw(str); }
duke@435:   void print(char* format, ...);
duke@435:   char* string_for_offset(intptr_t value);
duke@435:   char* string_for_constant(unsigned char* pc, intptr_t value, int is_decimal);
duke@435: };
duke@435: 
duke@435: 
duke@435: void x86_env::print_label(intptr_t value) {
duke@435:   if (!Universe::is_fully_initialized()) {
duke@435:     output->print(INTPTR_FORMAT, value);
duke@435:     return;
duke@435:   }
duke@435:   address adr = (address) value;
duke@435:   if (StubRoutines::contains(adr)) {
duke@435:     StubCodeDesc* desc = StubCodeDesc::desc_for(adr);
duke@435:     const char * desc_name = "unknown stub";
duke@435:     if (desc != NULL) {
duke@435:       desc_name = desc->name();
duke@435:     }
duke@435:     output->print("Stub::%s", desc_name);
duke@435:     if (WizardMode) output->print(" " INTPTR_FORMAT, value);
duke@435:   } else {
duke@435:     output->print(INTPTR_FORMAT, value);
duke@435:   }
duke@435: }
duke@435: 
duke@435: void x86_env::print(char* format, ...) {
duke@435:   va_list ap;
duke@435:   va_start(ap, format);
duke@435:   output->vprint(format, ap);
duke@435:   va_end(ap);
duke@435: }
duke@435: 
duke@435: char* x86_env::string_for_offset(intptr_t value) {
duke@435:   stringStream st;
duke@435:   if (!Universe::is_fully_initialized()) {
duke@435:     st.print(INTX_FORMAT, value);
duke@435:     return st.as_string();
duke@435:   }
duke@435:   BarrierSet* bs = Universe::heap()->barrier_set();
duke@435:   BarrierSet::Name bsn = bs->kind();
duke@435:   if (bs->kind() == BarrierSet::CardTableModRef &&
duke@435:       (jbyte*) value == ((CardTableModRefBS*)(bs))->byte_map_base) {
duke@435:     st.print("word_map_base");
duke@435:   } else {
duke@435:     st.print(INTX_FORMAT, value);
duke@435:   }
duke@435:   return st.as_string();
duke@435: }
duke@435: 
duke@435: char* x86_env::string_for_constant(unsigned char* pc, intptr_t value, int is_decimal) {
duke@435:   stringStream st;
duke@435:   oop obj = NULL;
duke@435:   if (code && ((obj = code->embeddedOop_at(pc)) != NULL)) {
duke@435:     obj->print_value_on(&st);
duke@435:   } else {
duke@435:     if (is_decimal == 1) {
duke@435:       st.print(INTX_FORMAT, value);
duke@435:     } else {
duke@435:       st.print(INTPTR_FORMAT, value);
duke@435:     }
duke@435:   }
duke@435:   return st.as_string();
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: address Disassembler::decode_instruction(address start, DisassemblerEnv* env) {
duke@435:   return ((decode_func) _decode_instruction)(start, env);
duke@435: }
duke@435: 
duke@435: 
duke@435: void Disassembler::decode(CodeBlob* cb, outputStream* st) {
duke@435:   st = st ? st : tty;
duke@435:   st->print_cr("Decoding CodeBlob " INTPTR_FORMAT, cb);
duke@435:   decode(cb->instructions_begin(), cb->instructions_end(), st);
duke@435: }
duke@435: 
duke@435: 
duke@435: void Disassembler::decode(u_char* begin, u_char* end, outputStream* st) {
duke@435:   st = st ? st : tty;
duke@435: 
duke@435:   const int show_bytes = false; // for disassembler debugging
duke@435: 
duke@435:   if (!load_library()) {
duke@435:     st->print_cr("Could not load disassembler");
duke@435:     return;
duke@435:   }
duke@435: 
duke@435:   x86_env env(NULL, st);
duke@435:   unsigned char*  p = (unsigned char*) begin;
duke@435:   CodeBlob* cb = CodeCache::find_blob_unsafe(begin);
duke@435:   while (p < (unsigned char*) end) {
duke@435:     if (cb != NULL) {
duke@435:       cb->print_block_comment(st, (intptr_t)(p - cb->instructions_begin()));
duke@435:     }
duke@435: 
duke@435:     unsigned char* p0 = p;
duke@435:     st->print("  " INTPTR_FORMAT ": ", p);
duke@435:     p = decode_instruction(p, &env);
duke@435:     if (show_bytes) {
duke@435:       st->print("\t\t\t");
duke@435:       while (p0 < p) st->print("%x ", *p0++);
duke@435:     }
duke@435:     st->cr();
duke@435:   }
duke@435: }
duke@435: 
duke@435: 
duke@435: void Disassembler::decode(nmethod* nm, outputStream* st) {
duke@435:   st = st ? st : tty;
duke@435: 
duke@435:   st->print_cr("Decoding compiled method " INTPTR_FORMAT ":", nm);
duke@435:   st->print("Code:");
duke@435:   st->cr();
duke@435: 
duke@435:   if (!load_library()) {
duke@435:     st->print_cr("Could not load disassembler");
duke@435:     return;
duke@435:   }
duke@435:   x86_env env(nm, st);
duke@435:   unsigned char* p = nm->instructions_begin();
duke@435:   unsigned char* end = nm->instructions_end();
duke@435:   while (p < end) {
duke@435:     if (p == nm->entry_point())             st->print_cr("[Entry Point]");
duke@435:     if (p == nm->verified_entry_point())    st->print_cr("[Verified Entry Point]");
duke@435:     if (p == nm->exception_begin())         st->print_cr("[Exception Handler]");
duke@435:     if (p == nm->stub_begin())              st->print_cr("[Stub Code]");
duke@435:     if (p == nm->consts_begin())            st->print_cr("[Constants]");
duke@435:     nm->print_block_comment(st, (intptr_t)(p - nm->instructions_begin()));
duke@435:     unsigned char* p0 = p;
duke@435:     st->print("  " INTPTR_FORMAT ": ", p);
duke@435:     p = decode_instruction(p, &env);
duke@435:     nm->print_code_comment_on(st, 40, p0, p);
duke@435:     st->cr();
duke@435:     // Output pc bucket ticks if we have any
duke@435:     address bucket_pc = FlatProfiler::bucket_start_for(p);
duke@435:     if (bucket_pc != NULL && bucket_pc > p0 && bucket_pc <= p) {
duke@435:       int bucket_count = FlatProfiler::bucket_count_for(bucket_pc);
duke@435:       tty->print_cr("[%d]", bucket_count);
duke@435:     }
duke@435:   }
duke@435: }
duke@435: 
duke@435: #endif // PRODUCT