src/share/vm/compiler/compilerOracle.cpp

rev 10101 : 8138756: Compiler Control: Print directives in hs_err
Summary: Add directive print in hs_err
Reviewed-by:

*** 292,301 ****
--- 292,321 ----
    return ((lists[command] != NULL) &&
            !method.is_null() &&
            lists[command]->match(method));
  }
  
+ static void print_commandlist(OracleCommand command, outputStream* st) {
+   if (lists[command] != NULL) {
+     st->print("    %s: ", command_names[command]);
+     lists[command]->print_all(st);
+     st->cr();
+   }
+ }
+ 
+ void CompilerOracle::print_inlinecommands(outputStream* st) {
+   if (lists[InlineCommand] || lists[DontInlineCommand] || lists[ExcludeCommand] || lists[CompileOnlyCommand]) {
+     st->print_cr(" Following compile commands are in use: ");
+   } else {
+     st->cr();
+   }
+   print_commandlist(InlineCommand, st);
+   print_commandlist(DontInlineCommand, st);
+   print_commandlist(ExcludeCommand, st);
+   print_commandlist(CompileOnlyCommand, st);
+ }
+ 
  static void add_predicate(OracleCommand command, BasicMatcher* bm) {
    assert(command != OptionCommand, "must use add_option_string");
    if (command == LogCommand && !LogCompilation && lists[LogCommand] == NULL) {
      tty->print_cr("Warning:  +LogCompilation must be enabled in order for individual methods to be logged.");
    }