duke@435: /*
duke@435:  * Copyright 2005-2006 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/_c1_CFGPrinter.cpp.incl"
duke@435: 
duke@435: #ifndef PRODUCT
duke@435: 
duke@435: 
duke@435: class CFGPrinterOutput : public CHeapObj {
duke@435:  private:
duke@435:   outputStream* _output;
duke@435: 
duke@435:   Compilation*  _compilation;
duke@435:   bool _do_print_HIR;
duke@435:   bool _do_print_LIR;
duke@435: 
duke@435:   class PrintBlockClosure: public BlockClosure {
duke@435:     void block_do(BlockBegin* block) { if (block != NULL) CFGPrinter::output()->print_block(block); }
duke@435:   };
duke@435: 
duke@435: 
duke@435:   outputStream* output() { assert(_output != NULL, ""); return _output; }
duke@435: 
duke@435:   void inc_indent();
duke@435:   void dec_indent();
duke@435:   void print(const char* format, ...);
duke@435:   void print_begin(const char* tag);
duke@435:   void print_end(const char* tag);
duke@435: 
duke@435:   char* method_name(ciMethod* method, bool short_name = false);
duke@435: 
duke@435:  public:
duke@435:   CFGPrinterOutput();
duke@435: 
duke@435:   void set_compilation(Compilation* compilation) { _compilation = compilation; }
duke@435:   void set_print_flags(bool do_print_HIR, bool do_print_LIR) { _do_print_HIR = do_print_HIR; _do_print_LIR = do_print_LIR; }
duke@435: 
duke@435:   void print_compilation();
duke@435:   void print_intervals(IntervalList* intervals, const char* name);
duke@435: 
duke@435:   void print_state(BlockBegin* block);
duke@435:   void print_operand(Value instr);
duke@435:   void print_HIR(Value instr);
duke@435:   void print_HIR(BlockBegin* block);
duke@435:   void print_LIR(BlockBegin* block);
duke@435:   void print_block(BlockBegin* block);
duke@435:   void print_cfg(BlockList* blocks, const char* name);
duke@435:   void print_cfg(IR* blocks, const char* name);
duke@435: };
duke@435: 
duke@435: CFGPrinterOutput* CFGPrinter::_output = NULL;
duke@435: 
duke@435: 
duke@435: 
duke@435: 
duke@435: void CFGPrinter::print_compilation(Compilation* compilation) {
duke@435:   if (_output == NULL) {
duke@435:     _output = new CFGPrinterOutput();
duke@435:   }
duke@435:   output()->set_compilation(compilation);
duke@435:   output()->print_compilation();
duke@435: }
duke@435: 
duke@435: void CFGPrinter::print_cfg(BlockList* blocks, const char* name, bool do_print_HIR, bool do_print_LIR) {
duke@435:   output()->set_print_flags(do_print_HIR, do_print_LIR);
duke@435:   output()->print_cfg(blocks, name);
duke@435: }
duke@435: 
duke@435: void CFGPrinter::print_cfg(IR* blocks, const char* name, bool do_print_HIR, bool do_print_LIR) {
duke@435:   output()->set_print_flags(do_print_HIR, do_print_LIR);
duke@435:   output()->print_cfg(blocks, name);
duke@435: }
duke@435: 
duke@435: 
duke@435: void CFGPrinter::print_intervals(IntervalList* intervals, const char* name) {
duke@435:   output()->print_intervals(intervals, name);
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: CFGPrinterOutput::CFGPrinterOutput()
duke@435:  : _output(new(ResourceObj::C_HEAP) fileStream("output.cfg"))
duke@435: {
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::inc_indent() {
duke@435:   output()->inc();
duke@435:   output()->inc();
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::dec_indent() {
duke@435:   output()->dec();
duke@435:   output()->dec();
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print(const char* format, ...) {
duke@435:   output()->indent();
duke@435: 
duke@435:   va_list ap;
duke@435:   va_start(ap, format);
duke@435:   output()->vprint_cr(format, ap);
duke@435:   va_end(ap);
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_begin(const char* tag) {
duke@435:   output()->indent();
duke@435:   output()->print_cr("begin_%s", tag);
duke@435:   inc_indent();
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_end(const char* tag) {
duke@435:   dec_indent();
duke@435:   output()->indent();
duke@435:   output()->print_cr("end_%s", tag);
duke@435: }
duke@435: 
duke@435: 
duke@435: char* CFGPrinterOutput::method_name(ciMethod* method, bool short_name) {
duke@435:   stringStream name;
duke@435:   if (short_name) {
duke@435:     method->print_short_name(&name);
duke@435:   } else {
duke@435:     method->print_name(&name);
duke@435:   }
duke@435:   return name.as_string();
duke@435: 
duke@435: }
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_compilation() {
duke@435:   print_begin("compilation");
duke@435: 
duke@435:   print("name \"%s\"", method_name(_compilation->method(), true));
duke@435:   print("method \"%s\"", method_name(_compilation->method()));
duke@435:   print("date "INT64_FORMAT, os::javaTimeMillis());
duke@435: 
duke@435:   print_end("compilation");
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_state(BlockBegin* block) {
duke@435:   print_begin("states");
duke@435: 
duke@435:   InstructionPrinter ip(true, output());
duke@435: 
duke@435:   ValueStack* state = block->state();
duke@435:   int index;
duke@435:   Value value;
duke@435: 
duke@435:   if (state->stack_size() > 0) {
duke@435:     print_begin("stack");
duke@435:     print("size %d", state->stack_size());
duke@435: 
duke@435:     for_each_stack_value(state, index, value) {
duke@435:       ip.print_phi(index, value, block);
duke@435:       print_operand(value);
duke@435:       output()->cr();
duke@435:     }
duke@435: 
duke@435:     print_end("stack");
duke@435:   }
duke@435: 
duke@435:   if (state->locks_size() > 0) {
duke@435:     print_begin("locks");
duke@435:     print("size %d", state->locks_size());
duke@435: 
duke@435:     for_each_lock_value(state, index, value) {
duke@435:       ip.print_phi(index, value, block);
duke@435:       print_operand(value);
duke@435:       output()->cr();
duke@435:     }
duke@435:     print_end("locks");
duke@435:   }
duke@435: 
duke@435:   for_each_state(state) {
duke@435:     print_begin("locals");
duke@435:     print("size %d", state->locals_size());
duke@435:     print("method \"%s\"", method_name(state->scope()->method()));
duke@435: 
duke@435:     for_each_local_value(state, index, value) {
duke@435:       ip.print_phi(index, value, block);
duke@435:       print_operand(value);
duke@435:       output()->cr();
duke@435:     }
duke@435:     print_end("locals");
duke@435:   }
duke@435: 
duke@435:   print_end("states");
duke@435: }
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_operand(Value instr) {
duke@435:   if (instr->operand()->is_virtual()) {
duke@435:     output()->print(" \"");
duke@435:     instr->operand()->print(output());
duke@435:     output()->print("\" ");
duke@435:   }
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_HIR(Value instr) {
duke@435:   InstructionPrinter ip(true, output());
duke@435: 
duke@435:   if (instr->is_pinned()) {
duke@435:     output()->put('.');
duke@435:   }
duke@435:   output()->print("%d %d ", instr->bci(), instr->use_count());
duke@435: 
duke@435:   print_operand(instr);
duke@435: 
duke@435:   ip.print_temp(instr);
duke@435:   output()->print(" ");
duke@435:   ip.print_instr(instr);
duke@435: 
duke@435:   output()->print_cr(" <|@");
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_HIR(BlockBegin* block) {
duke@435:   print_begin("HIR");
duke@435: 
duke@435:   Value cur = block->next();
duke@435:   while (cur != NULL) {
duke@435:     print_HIR(cur);
duke@435:     cur = cur->next();
duke@435:   }
duke@435: 
duke@435:   print_end("HIR");
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_LIR(BlockBegin* block) {
duke@435:   print_begin("LIR");
duke@435: 
duke@435:   for (int i = 0; i < block->lir()->length(); i++) {
duke@435:     block->lir()->at(i)->print_on(output());
duke@435:     output()->print_cr(" <|@ ");
duke@435:   }
duke@435: 
duke@435:   print_end("LIR");
duke@435: }
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_block(BlockBegin* block) {
duke@435:   print_begin("block");
duke@435: 
duke@435:   print("name \"B%d\"", block->block_id());
duke@435: 
duke@435:   print("from_bci %d", block->bci());
duke@435:   print("to_bci %d", (block->end() == NULL ? -1 : block->end()->bci()));
duke@435: 
duke@435:   output()->indent();
duke@435:   output()->print("predecessors ");
duke@435:   int i;
duke@435:   for (i = 0; i < block->number_of_preds(); i++) {
duke@435:     output()->print("\"B%d\" ", block->pred_at(i)->block_id());
duke@435:   }
duke@435:   output()->cr();
duke@435: 
duke@435:   output()->indent();
duke@435:   output()->print("successors ");
duke@435:   for (i = 0; i < block->number_of_sux(); i++) {
duke@435:     output()->print("\"B%d\" ", block->sux_at(i)->block_id());
duke@435:   }
duke@435:   output()->cr();
duke@435: 
duke@435:   output()->indent();
duke@435:   output()->print("xhandlers");
duke@435:   for (i = 0; i < block->number_of_exception_handlers(); i++) {
duke@435:     output()->print("\"B%d\" ", block->exception_handler_at(i)->block_id());
duke@435:   }
duke@435:   output()->cr();
duke@435: 
duke@435:   output()->indent();
duke@435:   output()->print("flags ");
duke@435:   if (block->is_set(BlockBegin::std_entry_flag))                output()->print("\"std\" ");
duke@435:   if (block->is_set(BlockBegin::osr_entry_flag))                output()->print("\"osr\" ");
duke@435:   if (block->is_set(BlockBegin::exception_entry_flag))          output()->print("\"ex\" ");
duke@435:   if (block->is_set(BlockBegin::subroutine_entry_flag))         output()->print("\"sr\" ");
duke@435:   if (block->is_set(BlockBegin::backward_branch_target_flag))   output()->print("\"bb\" ");
duke@435:   if (block->is_set(BlockBegin::parser_loop_header_flag))       output()->print("\"plh\" ");
duke@435:   if (block->is_set(BlockBegin::critical_edge_split_flag))      output()->print("\"ces\" ");
duke@435:   if (block->is_set(BlockBegin::linear_scan_loop_header_flag))  output()->print("\"llh\" ");
duke@435:   if (block->is_set(BlockBegin::linear_scan_loop_end_flag))     output()->print("\"lle\" ");
duke@435:   output()->cr();
duke@435: 
duke@435:   if (block->dominator() != NULL) {
duke@435:     print("dominator \"B%d\"", block->dominator()->block_id());
duke@435:   }
duke@435:   if (block->loop_index() != -1) {
duke@435:     print("loop_index %d", block->loop_index());
duke@435:     print("loop_depth %d", block->loop_depth());
duke@435:   }
duke@435: 
duke@435:   if (block->first_lir_instruction_id() != -1) {
duke@435:     print("first_lir_id %d", block->first_lir_instruction_id());
duke@435:     print("last_lir_id %d", block->last_lir_instruction_id());
duke@435:   }
duke@435: 
duke@435:   if (_do_print_HIR) {
duke@435:     print_state(block);
duke@435:     print_HIR(block);
duke@435:   }
duke@435: 
duke@435:   if (_do_print_LIR) {
duke@435:     print_LIR(block);
duke@435:   }
duke@435: 
duke@435:   print_end("block");
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_cfg(BlockList* blocks, const char* name) {
duke@435:   print_begin("cfg");
duke@435:   print("name \"%s\"", name);
duke@435: 
duke@435:   PrintBlockClosure print_block;
duke@435:   blocks->iterate_forward(&print_block);
duke@435: 
duke@435:   print_end("cfg");
duke@435:   output()->flush();
duke@435: }
duke@435: 
duke@435: void CFGPrinterOutput::print_cfg(IR* blocks, const char* name) {
duke@435:   print_begin("cfg");
duke@435:   print("name \"%s\"", name);
duke@435: 
duke@435:   PrintBlockClosure print_block;
duke@435:   blocks->iterate_preorder(&print_block);
duke@435: 
duke@435:   print_end("cfg");
duke@435:   output()->flush();
duke@435: }
duke@435: 
duke@435: 
duke@435: 
duke@435: 
duke@435: void CFGPrinterOutput::print_intervals(IntervalList* intervals, const char* name) {
duke@435:   print_begin("intervals");
duke@435:   print("name \"%s\"", name);
duke@435: 
duke@435:   for (int i = 0; i < intervals->length(); i++) {
duke@435:     if (intervals->at(i) != NULL) {
duke@435:       intervals->at(i)->print(output());
duke@435:     }
duke@435:   }
duke@435: 
duke@435:   print_end("intervals");
duke@435:   output()->flush();
duke@435: }
duke@435: 
duke@435: 
duke@435: #endif