1 /*
   2  * Copyright (c) 1999, 2014, Oracle and/or its affiliates. All rights reserved.
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * This code is free software; you can redistribute it and/or modify it
   6  * under the terms of the GNU General Public License version 2 only, as
   7  * published by the Free Software Foundation.
   8  *
   9  * This code is distributed in the hope that it will be useful, but WITHOUT
  10  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12  * version 2 for more details (a copy is included in the LICENSE file that
  13  * accompanied this code).
  14  *
  15  * You should have received a copy of the GNU General Public License version
  16  * 2 along with this work; if not, write to the Free Software Foundation,
  17  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  18  *
  19  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  20  * or visit www.oracle.com if you need additional information or have any
  21  * questions.
  22  *
  23  */
  24 
  25 #include "precompiled.hpp"
  26 #include "ci/ciConstant.hpp"
  27 #include "ci/ciEnv.hpp"
  28 #include "ci/ciField.hpp"
  29 #include "ci/ciInstance.hpp"
  30 #include "ci/ciInstanceKlass.hpp"
  31 #include "ci/ciMethod.hpp"
  32 #include "ci/ciNullObject.hpp"
  33 #include "ci/ciReplay.hpp"
  34 #include "ci/ciUtilities.hpp"
  35 #include "classfile/systemDictionary.hpp"
  36 #include "classfile/vmSymbols.hpp"
  37 #include "code/scopeDesc.hpp"
  38 #include "compiler/compileBroker.hpp"
  39 #include "compiler/compileLog.hpp"
  40 #include "compiler/compilerOracle.hpp"
  41 #include "gc_interface/collectedHeap.inline.hpp"
  42 #include "interpreter/linkResolver.hpp"
  43 #include "memory/allocation.inline.hpp"
  44 #include "memory/oopFactory.hpp"
  45 #include "memory/universe.inline.hpp"
  46 #include "oops/methodData.hpp"
  47 #include "oops/objArrayKlass.hpp"
  48 #include "oops/oop.inline.hpp"
  49 #include "oops/oop.inline2.hpp"
  50 #include "prims/jvmtiExport.hpp"
  51 #include "runtime/init.hpp"
  52 #include "runtime/reflection.hpp"
  53 #include "runtime/sharedRuntime.hpp"
  54 #include "runtime/thread.inline.hpp"
  55 #include "utilities/dtrace.hpp"
  56 #include "utilities/macros.hpp"
  57 #ifdef COMPILER1
  58 #include "c1/c1_Runtime1.hpp"
  59 #endif
  60 #ifdef COMPILER2
  61 #include "opto/runtime.hpp"
  62 #endif
  63 
  64 // ciEnv
  65 //
  66 // This class is the top level broker for requests from the compiler
  67 // to the VM.
  68 
  69 ciObject*              ciEnv::_null_object_instance;
  70 
  71 #define WK_KLASS_DEFN(name, ignore_s, ignore_o) ciInstanceKlass* ciEnv::_##name = NULL;
  72 WK_KLASSES_DO(WK_KLASS_DEFN)
  73 #undef WK_KLASS_DEFN
  74 
  75 ciSymbol*        ciEnv::_unloaded_cisymbol = NULL;
  76 ciInstanceKlass* ciEnv::_unloaded_ciinstance_klass = NULL;
  77 ciObjArrayKlass* ciEnv::_unloaded_ciobjarrayklass = NULL;
  78 
  79 jobject ciEnv::_ArrayIndexOutOfBoundsException_handle = NULL;
  80 jobject ciEnv::_ArrayStoreException_handle = NULL;
  81 jobject ciEnv::_ClassCastException_handle = NULL;
  82 
  83 #ifndef PRODUCT
  84 static bool firstEnv = true;
  85 #endif /* PRODUCT */
  86 
  87 // ------------------------------------------------------------------
  88 // ciEnv::ciEnv
  89 ciEnv::ciEnv(CompileTask* task, int system_dictionary_modification_counter)
  90   : _ciEnv_arena(mtCompiler) {
  91   VM_ENTRY_MARK;
  92 
  93   // Set up ciEnv::current immediately, for the sake of ciObjectFactory, etc.
  94   thread->set_env(this);
  95   assert(ciEnv::current() == this, "sanity");
  96 
  97   _oop_recorder = NULL;
  98   _debug_info = NULL;
  99   _dependencies = NULL;
 100   _failure_reason = NULL;
 101   _compilable = MethodCompilable;
 102   _break_at_compile = false;
 103   _compiler_data = NULL;
 104 #ifndef PRODUCT
 105   assert(!firstEnv, "not initialized properly");
 106 #endif /* !PRODUCT */
 107 
 108   _system_dictionary_modification_counter = system_dictionary_modification_counter;
 109   _num_inlined_bytecodes = 0;
 110   assert(task == NULL || thread->task() == task, "sanity");
 111   _task = task;
 112   _log = NULL;
 113 
 114   // Temporary buffer for creating symbols and such.
 115   _name_buffer = NULL;
 116   _name_buffer_len = 0;
 117 
 118   _arena   = &_ciEnv_arena;
 119   _factory = new (_arena) ciObjectFactory(_arena, 128);
 120 
 121   // Preload commonly referenced system ciObjects.
 122 
 123   // During VM initialization, these instances have not yet been created.
 124   // Assertions ensure that these instances are not accessed before
 125   // their initialization.
 126 
 127   assert(Universe::is_fully_initialized(), "should be complete");
 128 
 129   oop o = Universe::null_ptr_exception_instance();
 130   assert(o != NULL, "should have been initialized");
 131   _NullPointerException_instance = get_object(o)->as_instance();
 132   o = Universe::arithmetic_exception_instance();
 133   assert(o != NULL, "should have been initialized");
 134   _ArithmeticException_instance = get_object(o)->as_instance();
 135 
 136   _ArrayIndexOutOfBoundsException_instance = NULL;
 137   _ArrayStoreException_instance = NULL;
 138   _ClassCastException_instance = NULL;
 139   _the_null_string = NULL;
 140   _the_min_jint_string = NULL;
 141 }
 142 
 143 ciEnv::ciEnv(Arena* arena) : _ciEnv_arena(mtCompiler) {
 144   ASSERT_IN_VM;
 145 
 146   // Set up ciEnv::current immediately, for the sake of ciObjectFactory, etc.
 147   CompilerThread* current_thread = CompilerThread::current();
 148   assert(current_thread->env() == NULL, "must be");
 149   current_thread->set_env(this);
 150   assert(ciEnv::current() == this, "sanity");
 151 
 152   _oop_recorder = NULL;
 153   _debug_info = NULL;
 154   _dependencies = NULL;
 155   _failure_reason = NULL;
 156   _compilable = MethodCompilable_never;
 157   _break_at_compile = false;
 158   _compiler_data = NULL;
 159 #ifndef PRODUCT
 160   assert(firstEnv, "must be first");
 161   firstEnv = false;
 162 #endif /* !PRODUCT */
 163 
 164   _system_dictionary_modification_counter = 0;
 165   _num_inlined_bytecodes = 0;
 166   _task = NULL;
 167   _log = NULL;
 168 
 169   // Temporary buffer for creating symbols and such.
 170   _name_buffer = NULL;
 171   _name_buffer_len = 0;
 172 
 173   _arena   = arena;
 174   _factory = new (_arena) ciObjectFactory(_arena, 128);
 175 
 176   // Preload commonly referenced system ciObjects.
 177 
 178   // During VM initialization, these instances have not yet been created.
 179   // Assertions ensure that these instances are not accessed before
 180   // their initialization.
 181 
 182   assert(Universe::is_fully_initialized(), "must be");
 183 
 184   _NullPointerException_instance = NULL;
 185   _ArithmeticException_instance = NULL;
 186   _ArrayIndexOutOfBoundsException_instance = NULL;
 187   _ArrayStoreException_instance = NULL;
 188   _ClassCastException_instance = NULL;
 189   _the_null_string = NULL;
 190   _the_min_jint_string = NULL;
 191 }
 192 
 193 ciEnv::~ciEnv() {
 194   CompilerThread* current_thread = CompilerThread::current();
 195   _factory->remove_symbols();
 196   // Need safepoint to clear the env on the thread.  RedefineClasses might
 197   // be reading it.
 198   GUARDED_VM_ENTRY(current_thread->set_env(NULL);)
 199 }
 200 
 201 // ------------------------------------------------------------------
 202 // Cache Jvmti state
 203 void ciEnv::cache_jvmti_state() {
 204   VM_ENTRY_MARK;
 205   // Get Jvmti capabilities under lock to get consistant values.
 206   MutexLocker mu(JvmtiThreadState_lock);
 207   _jvmti_can_hotswap_or_post_breakpoint = JvmtiExport::can_hotswap_or_post_breakpoint();
 208   _jvmti_can_access_local_variables     = JvmtiExport::can_access_local_variables();
 209   _jvmti_can_post_on_exceptions         = JvmtiExport::can_post_on_exceptions();
 210 }
 211 
 212 // ------------------------------------------------------------------
 213 // Cache DTrace flags
 214 void ciEnv::cache_dtrace_flags() {
 215   // Need lock?
 216   _dtrace_extended_probes = ExtendedDTraceProbes;
 217   if (_dtrace_extended_probes) {
 218     _dtrace_monitor_probes  = true;
 219     _dtrace_method_probes   = true;
 220     _dtrace_alloc_probes    = true;
 221   } else {
 222     _dtrace_monitor_probes  = DTraceMonitorProbes;
 223     _dtrace_method_probes   = DTraceMethodProbes;
 224     _dtrace_alloc_probes    = DTraceAllocProbes;
 225   }
 226 }
 227 
 228 // ------------------------------------------------------------------
 229 // helper for lazy exception creation
 230 ciInstance* ciEnv::get_or_create_exception(jobject& handle, Symbol* name) {
 231   VM_ENTRY_MARK;
 232   if (handle == NULL) {
 233     // Cf. universe.cpp, creation of Universe::_null_ptr_exception_instance.
 234     Klass* k = SystemDictionary::find(name, Handle(), Handle(), THREAD);
 235     jobject objh = NULL;
 236     if (!HAS_PENDING_EXCEPTION && k != NULL) {
 237       oop obj = InstanceKlass::cast(k)->allocate_instance(THREAD);
 238       if (!HAS_PENDING_EXCEPTION)
 239         objh = JNIHandles::make_global(obj);
 240     }
 241     if (HAS_PENDING_EXCEPTION) {
 242       CLEAR_PENDING_EXCEPTION;
 243     } else {
 244       handle = objh;
 245     }
 246   }
 247   oop obj = JNIHandles::resolve(handle);
 248   return obj == NULL? NULL: get_object(obj)->as_instance();
 249 }
 250 
 251 ciInstance* ciEnv::ArrayIndexOutOfBoundsException_instance() {
 252   if (_ArrayIndexOutOfBoundsException_instance == NULL) {
 253     _ArrayIndexOutOfBoundsException_instance
 254           = get_or_create_exception(_ArrayIndexOutOfBoundsException_handle,
 255           vmSymbols::java_lang_ArrayIndexOutOfBoundsException());
 256   }
 257   return _ArrayIndexOutOfBoundsException_instance;
 258 }
 259 ciInstance* ciEnv::ArrayStoreException_instance() {
 260   if (_ArrayStoreException_instance == NULL) {
 261     _ArrayStoreException_instance
 262           = get_or_create_exception(_ArrayStoreException_handle,
 263           vmSymbols::java_lang_ArrayStoreException());
 264   }
 265   return _ArrayStoreException_instance;
 266 }
 267 ciInstance* ciEnv::ClassCastException_instance() {
 268   if (_ClassCastException_instance == NULL) {
 269     _ClassCastException_instance
 270           = get_or_create_exception(_ClassCastException_handle,
 271           vmSymbols::java_lang_ClassCastException());
 272   }
 273   return _ClassCastException_instance;
 274 }
 275 
 276 ciInstance* ciEnv::the_null_string() {
 277   if (_the_null_string == NULL) {
 278     VM_ENTRY_MARK;
 279     _the_null_string = get_object(Universe::the_null_string())->as_instance();
 280   }
 281   return _the_null_string;
 282 }
 283 
 284 ciInstance* ciEnv::the_min_jint_string() {
 285   if (_the_min_jint_string == NULL) {
 286     VM_ENTRY_MARK;
 287     _the_min_jint_string = get_object(Universe::the_min_jint_string())->as_instance();
 288   }
 289   return _the_min_jint_string;
 290 }
 291 
 292 // ------------------------------------------------------------------
 293 // ciEnv::get_method_from_handle
 294 ciMethod* ciEnv::get_method_from_handle(Method* method) {
 295   VM_ENTRY_MARK;
 296   return get_metadata(method)->as_method();
 297 }
 298 
 299 // ------------------------------------------------------------------
 300 // ciEnv::array_element_offset_in_bytes
 301 int ciEnv::array_element_offset_in_bytes(ciArray* a_h, ciObject* o_h) {
 302   VM_ENTRY_MARK;
 303   objArrayOop a = (objArrayOop)a_h->get_oop();
 304   assert(a->is_objArray(), "");
 305   int length = a->length();
 306   oop o = o_h->get_oop();
 307   for (int i = 0; i < length; i++) {
 308     if (a->obj_at(i) == o)  return i;
 309   }
 310   return -1;
 311 }
 312 
 313 
 314 // ------------------------------------------------------------------
 315 // ciEnv::check_klass_accessiblity
 316 //
 317 // Note: the logic of this method should mirror the logic of
 318 // ConstantPool::verify_constant_pool_resolve.
 319 bool ciEnv::check_klass_accessibility(ciKlass* accessing_klass,
 320                                       Klass* resolved_klass) {
 321   if (accessing_klass == NULL || !accessing_klass->is_loaded()) {
 322     return true;
 323   }
 324   if (accessing_klass->is_obj_array_klass()) {
 325     accessing_klass = accessing_klass->as_obj_array_klass()->base_element_klass();
 326   }
 327   if (!accessing_klass->is_instance_klass()) {
 328     return true;
 329   }
 330 
 331   if (resolved_klass->oop_is_objArray()) {
 332     // Find the element klass, if this is an array.
 333     resolved_klass = ObjArrayKlass::cast(resolved_klass)->bottom_klass();
 334   }
 335   if (resolved_klass->oop_is_instance()) {
 336     return Reflection::verify_class_access(accessing_klass->get_Klass(),
 337                                            resolved_klass,
 338                                            true);
 339   }
 340   return true;
 341 }
 342 
 343 // ------------------------------------------------------------------
 344 // ciEnv::get_klass_by_name_impl
 345 ciKlass* ciEnv::get_klass_by_name_impl(ciKlass* accessing_klass,
 346                                        constantPoolHandle cpool,
 347                                        ciSymbol* name,
 348                                        bool require_local) {
 349   ASSERT_IN_VM;
 350   EXCEPTION_CONTEXT;
 351 
 352   // Now we need to check the SystemDictionary
 353   Symbol* sym = name->get_symbol();
 354   if (sym->byte_at(0) == 'L' &&
 355     sym->byte_at(sym->utf8_length()-1) == ';') {
 356     // This is a name from a signature.  Strip off the trimmings.
 357     // Call recursive to keep scope of strippedsym.
 358     TempNewSymbol strippedsym = SymbolTable::new_symbol(sym->as_utf8()+1,
 359                     sym->utf8_length()-2,
 360                     KILL_COMPILE_ON_FATAL_(_unloaded_ciinstance_klass));
 361     ciSymbol* strippedname = get_symbol(strippedsym);
 362     return get_klass_by_name_impl(accessing_klass, cpool, strippedname, require_local);
 363   }
 364 
 365   // Check for prior unloaded klass.  The SystemDictionary's answers
 366   // can vary over time but the compiler needs consistency.
 367   ciKlass* unloaded_klass = check_get_unloaded_klass(accessing_klass, name);
 368   if (unloaded_klass != NULL) {
 369     if (require_local)  return NULL;
 370     return unloaded_klass;
 371   }
 372 
 373   Handle loader(THREAD, (oop)NULL);
 374   Handle domain(THREAD, (oop)NULL);
 375   if (accessing_klass != NULL) {
 376     loader = Handle(THREAD, accessing_klass->loader());
 377     domain = Handle(THREAD, accessing_klass->protection_domain());
 378   }
 379 
 380   // setup up the proper type to return on OOM
 381   ciKlass* fail_type;
 382   if (sym->byte_at(0) == '[') {
 383     fail_type = _unloaded_ciobjarrayklass;
 384   } else {
 385     fail_type = _unloaded_ciinstance_klass;
 386   }
 387   KlassHandle found_klass;
 388   {
 389     ttyUnlocker ttyul;  // release tty lock to avoid ordering problems
 390     MutexLocker ml(Compile_lock);
 391     Klass* kls;
 392     if (!require_local) {
 393       kls = SystemDictionary::find_constrained_instance_or_array_klass(sym, loader,
 394                                                                        KILL_COMPILE_ON_FATAL_(fail_type));
 395     } else {
 396       kls = SystemDictionary::find_instance_or_array_klass(sym, loader, domain,
 397                                                            KILL_COMPILE_ON_FATAL_(fail_type));
 398     }
 399     found_klass = KlassHandle(THREAD, kls);
 400   }
 401 
 402   // If we fail to find an array klass, look again for its element type.
 403   // The element type may be available either locally or via constraints.
 404   // In either case, if we can find the element type in the system dictionary,
 405   // we must build an array type around it.  The CI requires array klasses
 406   // to be loaded if their element klasses are loaded, except when memory
 407   // is exhausted.
 408   if (sym->byte_at(0) == '[' &&
 409       (sym->byte_at(1) == '[' || sym->byte_at(1) == 'L')) {
 410     // We have an unloaded array.
 411     // Build it on the fly if the element class exists.
 412     TempNewSymbol elem_sym = SymbolTable::new_symbol(sym->as_utf8()+1,
 413                                                  sym->utf8_length()-1,
 414                                                  KILL_COMPILE_ON_FATAL_(fail_type));
 415 
 416     // Get element ciKlass recursively.
 417     ciKlass* elem_klass =
 418       get_klass_by_name_impl(accessing_klass,
 419                              cpool,
 420                              get_symbol(elem_sym),
 421                              require_local);
 422     if (elem_klass != NULL && elem_klass->is_loaded()) {
 423       // Now make an array for it
 424       return ciObjArrayKlass::make_impl(elem_klass);
 425     }
 426   }
 427 
 428   if (found_klass() == NULL && !cpool.is_null() && cpool->has_preresolution()) {
 429     // Look inside the constant pool for pre-resolved class entries.
 430     for (int i = cpool->length() - 1; i >= 1; i--) {
 431       if (cpool->tag_at(i).is_klass()) {
 432         Klass* kls = cpool->resolved_klass_at(i);
 433         if (kls->name() == sym) {
 434           found_klass = KlassHandle(THREAD, kls);
 435           break;
 436         }
 437       }
 438     }
 439   }
 440 
 441   if (found_klass() != NULL) {
 442     // Found it.  Build a CI handle.
 443     return get_klass(found_klass());
 444   }
 445 
 446   if (require_local)  return NULL;
 447 
 448   // Not yet loaded into the VM, or not governed by loader constraints.
 449   // Make a CI representative for it.
 450   return get_unloaded_klass(accessing_klass, name);
 451 }
 452 
 453 // ------------------------------------------------------------------
 454 // ciEnv::get_klass_by_name
 455 ciKlass* ciEnv::get_klass_by_name(ciKlass* accessing_klass,
 456                                   ciSymbol* klass_name,
 457                                   bool require_local) {
 458   GUARDED_VM_ENTRY(return get_klass_by_name_impl(accessing_klass,
 459                                                  constantPoolHandle(),
 460                                                  klass_name,
 461                                                  require_local);)
 462 }
 463 
 464 // ------------------------------------------------------------------
 465 // ciEnv::get_klass_by_index_impl
 466 //
 467 // Implementation of get_klass_by_index.
 468 ciKlass* ciEnv::get_klass_by_index_impl(constantPoolHandle cpool,
 469                                         int index,
 470                                         bool& is_accessible,
 471                                         ciInstanceKlass* accessor) {
 472   EXCEPTION_CONTEXT;
 473   KlassHandle klass; // = NULL;
 474   Symbol* klass_name = NULL;
 475 
 476   if (cpool->tag_at(index).is_symbol()) {
 477     klass_name = cpool->symbol_at(index);
 478   } else {
 479     // Check if it's resolved if it's not a symbol constant pool entry.
 480     klass = KlassHandle(THREAD, ConstantPool::klass_at_if_loaded(cpool, index));
 481 
 482   if (klass.is_null()) {
 483     // The klass has not been inserted into the constant pool.
 484     // Try to look it up by name.
 485     {
 486       // We have to lock the cpool to keep the oop from being resolved
 487       // while we are accessing it.
 488         MonitorLockerEx ml(cpool->lock());
 489       constantTag tag = cpool->tag_at(index);
 490       if (tag.is_klass()) {
 491         // The klass has been inserted into the constant pool
 492         // very recently.
 493         klass = KlassHandle(THREAD, cpool->resolved_klass_at(index));
 494       } else {
 495         assert(cpool->tag_at(index).is_unresolved_klass(), "wrong tag");
 496         klass_name = cpool->unresolved_klass_at(index);
 497       }
 498     }
 499   }
 500   }
 501 
 502   if (klass.is_null()) {
 503     // Not found in constant pool.  Use the name to do the lookup.
 504     ciKlass* k = get_klass_by_name_impl(accessor,
 505                                         cpool,
 506                                         get_symbol(klass_name),
 507                                         false);
 508     // Calculate accessibility the hard way.
 509     if (!k->is_loaded()) {
 510       is_accessible = false;
 511     } else if (k->loader() != accessor->loader() &&
 512                get_klass_by_name_impl(accessor, cpool, k->name(), true) == NULL) {
 513       // Loaded only remotely.  Not linked yet.
 514       is_accessible = false;
 515     } else {
 516       // Linked locally, and we must also check public/private, etc.
 517       is_accessible = check_klass_accessibility(accessor, k->get_Klass());
 518     }
 519     return k;
 520   }
 521 
 522   // Check for prior unloaded klass.  The SystemDictionary's answers
 523   // can vary over time but the compiler needs consistency.
 524   ciSymbol* name = get_symbol(klass()->name());
 525   ciKlass* unloaded_klass = check_get_unloaded_klass(accessor, name);
 526   if (unloaded_klass != NULL) {
 527     is_accessible = false;
 528     return unloaded_klass;
 529   }
 530 
 531   // It is known to be accessible, since it was found in the constant pool.
 532   is_accessible = true;
 533   return get_klass(klass());
 534 }
 535 
 536 // ------------------------------------------------------------------
 537 // ciEnv::get_klass_by_index
 538 //
 539 // Get a klass from the constant pool.
 540 ciKlass* ciEnv::get_klass_by_index(constantPoolHandle cpool,
 541                                    int index,
 542                                    bool& is_accessible,
 543                                    ciInstanceKlass* accessor) {
 544   GUARDED_VM_ENTRY(return get_klass_by_index_impl(cpool, index, is_accessible, accessor);)
 545 }
 546 
 547 // ------------------------------------------------------------------
 548 // ciEnv::get_constant_by_index_impl
 549 //
 550 // Implementation of get_constant_by_index().
 551 ciConstant ciEnv::get_constant_by_index_impl(constantPoolHandle cpool,
 552                                              int pool_index, int cache_index,
 553                                              ciInstanceKlass* accessor) {
 554   bool ignore_will_link;
 555   EXCEPTION_CONTEXT;
 556   int index = pool_index;
 557   if (cache_index >= 0) {
 558     assert(index < 0, "only one kind of index at a time");
 559     oop obj = cpool->resolved_references()->obj_at(cache_index);
 560     if (obj != NULL) {
 561       ciObject* ciobj = get_object(obj);
 562       if (ciobj->is_array()) {
 563         return ciConstant(T_ARRAY, ciobj);
 564       } else {
 565         assert(ciobj->is_instance(), "should be an instance");
 566         return ciConstant(T_OBJECT, ciobj);
 567       }
 568     }
 569     index = cpool->object_to_cp_index(cache_index);
 570   }
 571   constantTag tag = cpool->tag_at(index);
 572   if (tag.is_int()) {
 573     return ciConstant(T_INT, (jint)cpool->int_at(index));
 574   } else if (tag.is_long()) {
 575     return ciConstant((jlong)cpool->long_at(index));
 576   } else if (tag.is_float()) {
 577     return ciConstant((jfloat)cpool->float_at(index));
 578   } else if (tag.is_double()) {
 579     return ciConstant((jdouble)cpool->double_at(index));
 580   } else if (tag.is_string()) {
 581     oop string = NULL;
 582     assert(cache_index >= 0, "should have a cache index");
 583     if (cpool->is_pseudo_string_at(index)) {
 584       string = cpool->pseudo_string_at(index, cache_index);
 585     } else {
 586       string = cpool->string_at(index, cache_index, THREAD);
 587       if (HAS_PENDING_EXCEPTION) {
 588         CLEAR_PENDING_EXCEPTION;
 589         record_out_of_memory_failure();
 590         return ciConstant();
 591       }
 592     }
 593     ciObject* constant = get_object(string);
 594     if (constant->is_array()) {
 595       return ciConstant(T_ARRAY, constant);
 596     } else {
 597       assert (constant->is_instance(), "must be an instance, or not? ");
 598       return ciConstant(T_OBJECT, constant);
 599     }
 600   } else if (tag.is_klass() || tag.is_unresolved_klass()) {
 601     // 4881222: allow ldc to take a class type
 602     ciKlass* klass = get_klass_by_index_impl(cpool, index, ignore_will_link, accessor);
 603     if (HAS_PENDING_EXCEPTION) {
 604       CLEAR_PENDING_EXCEPTION;
 605       record_out_of_memory_failure();
 606       return ciConstant();
 607     }
 608     assert (klass->is_instance_klass() || klass->is_array_klass(),
 609             "must be an instance or array klass ");
 610     return ciConstant(T_OBJECT, klass->java_mirror());
 611   } else if (tag.is_method_type()) {
 612     // must execute Java code to link this CP entry into cache[i].f1
 613     ciSymbol* signature = get_symbol(cpool->method_type_signature_at(index));
 614     ciObject* ciobj = get_unloaded_method_type_constant(signature);
 615     return ciConstant(T_OBJECT, ciobj);
 616   } else if (tag.is_method_handle()) {
 617     // must execute Java code to link this CP entry into cache[i].f1
 618     int ref_kind        = cpool->method_handle_ref_kind_at(index);
 619     int callee_index    = cpool->method_handle_klass_index_at(index);
 620     ciKlass* callee     = get_klass_by_index_impl(cpool, callee_index, ignore_will_link, accessor);
 621     ciSymbol* name      = get_symbol(cpool->method_handle_name_ref_at(index));
 622     ciSymbol* signature = get_symbol(cpool->method_handle_signature_ref_at(index));
 623     ciObject* ciobj     = get_unloaded_method_handle_constant(callee, name, signature, ref_kind);
 624     return ciConstant(T_OBJECT, ciobj);
 625   } else {
 626     ShouldNotReachHere();
 627     return ciConstant();
 628   }
 629 }
 630 
 631 // ------------------------------------------------------------------
 632 // ciEnv::get_constant_by_index
 633 //
 634 // Pull a constant out of the constant pool.  How appropriate.
 635 //
 636 // Implementation note: this query is currently in no way cached.
 637 ciConstant ciEnv::get_constant_by_index(constantPoolHandle cpool,
 638                                         int pool_index, int cache_index,
 639                                         ciInstanceKlass* accessor) {
 640   GUARDED_VM_ENTRY(return get_constant_by_index_impl(cpool, pool_index, cache_index, accessor);)
 641 }
 642 
 643 // ------------------------------------------------------------------
 644 // ciEnv::get_field_by_index_impl
 645 //
 646 // Implementation of get_field_by_index.
 647 //
 648 // Implementation note: the results of field lookups are cached
 649 // in the accessor klass.
 650 ciField* ciEnv::get_field_by_index_impl(ciInstanceKlass* accessor,
 651                                         int index) {
 652   ciConstantPoolCache* cache = accessor->field_cache();
 653   if (cache == NULL) {
 654     ciField* field = new (arena()) ciField(accessor, index);
 655     return field;
 656   } else {
 657     ciField* field = (ciField*)cache->get(index);
 658     if (field == NULL) {
 659       field = new (arena()) ciField(accessor, index);
 660       cache->insert(index, field);
 661     }
 662     return field;
 663   }
 664 }
 665 
 666 // ------------------------------------------------------------------
 667 // ciEnv::get_field_by_index
 668 //
 669 // Get a field by index from a klass's constant pool.
 670 ciField* ciEnv::get_field_by_index(ciInstanceKlass* accessor,
 671                                    int index) {
 672   GUARDED_VM_ENTRY(return get_field_by_index_impl(accessor, index);)
 673 }
 674 
 675 // ------------------------------------------------------------------
 676 // ciEnv::lookup_method
 677 //
 678 // Perform an appropriate method lookup based on accessor, holder,
 679 // name, signature, and bytecode.
 680 Method* ciEnv::lookup_method(InstanceKlass*  accessor,
 681                                InstanceKlass*  holder,
 682                                Symbol*       name,
 683                                Symbol*       sig,
 684                                Bytecodes::Code bc) {
 685   EXCEPTION_CONTEXT;
 686   KlassHandle h_accessor(THREAD, accessor);
 687   KlassHandle h_holder(THREAD, holder);
 688   LinkResolver::check_klass_accessability(h_accessor, h_holder, KILL_COMPILE_ON_FATAL_(NULL));
 689   methodHandle dest_method;
 690   switch (bc) {
 691   case Bytecodes::_invokestatic:
 692     dest_method =
 693       LinkResolver::resolve_static_call_or_null(h_holder, name, sig, h_accessor);
 694     break;
 695   case Bytecodes::_invokespecial:
 696     dest_method =
 697       LinkResolver::resolve_special_call_or_null(h_holder, name, sig, h_accessor);
 698     break;
 699   case Bytecodes::_invokeinterface:
 700     dest_method =
 701       LinkResolver::linktime_resolve_interface_method_or_null(h_holder, name, sig,
 702                                                               h_accessor, true);
 703     break;
 704   case Bytecodes::_invokevirtual:
 705     dest_method =
 706       LinkResolver::linktime_resolve_virtual_method_or_null(h_holder, name, sig,
 707                                                             h_accessor, true);
 708     break;
 709   default: ShouldNotReachHere();
 710   }
 711 
 712   return dest_method();
 713 }
 714 
 715 
 716 // ------------------------------------------------------------------
 717 // ciEnv::get_method_by_index_impl
 718 ciMethod* ciEnv::get_method_by_index_impl(constantPoolHandle cpool,
 719                                           int index, Bytecodes::Code bc,
 720                                           ciInstanceKlass* accessor) {
 721   if (bc == Bytecodes::_invokedynamic) {
 722     ConstantPoolCacheEntry* cpce = cpool->invokedynamic_cp_cache_entry_at(index);
 723     bool is_resolved = !cpce->is_f1_null();
 724     // FIXME: code generation could allow for null (unlinked) call site
 725     // The call site could be made patchable as follows:
 726     // Load the appendix argument from the constant pool.
 727     // Test the appendix argument and jump to a known deopt routine if it is null.
 728     // Jump through a patchable call site, which is initially a deopt routine.
 729     // Patch the call site to the nmethod entry point of the static compiled lambda form.
 730     // As with other two-component call sites, both values must be independently verified.
 731 
 732     if (is_resolved) {
 733       // Get the invoker Method* from the constant pool.
 734       // (The appendix argument, if any, will be noted in the method's signature.)
 735       Method* adapter = cpce->f1_as_method();
 736       return get_method(adapter);
 737     }
 738 
 739     // Fake a method that is equivalent to a declared method.
 740     ciInstanceKlass* holder    = get_instance_klass(SystemDictionary::MethodHandle_klass());
 741     ciSymbol*        name      = ciSymbol::invokeBasic_name();
 742     ciSymbol*        signature = get_symbol(cpool->signature_ref_at(index));
 743     return get_unloaded_method(holder, name, signature, accessor);
 744   } else {
 745     const int holder_index = cpool->klass_ref_index_at(index);
 746     bool holder_is_accessible;
 747     ciKlass* holder = get_klass_by_index_impl(cpool, holder_index, holder_is_accessible, accessor);
 748     ciInstanceKlass* declared_holder = get_instance_klass_for_declared_method_holder(holder);
 749 
 750     // Get the method's name and signature.
 751     Symbol* name_sym = cpool->name_ref_at(index);
 752     Symbol* sig_sym  = cpool->signature_ref_at(index);
 753 
 754     if (cpool->has_preresolution()
 755         || (holder == ciEnv::MethodHandle_klass() &&
 756             MethodHandles::is_signature_polymorphic_name(holder->get_Klass(), name_sym))) {
 757       // Short-circuit lookups for JSR 292-related call sites.
 758       // That is, do not rely only on name-based lookups, because they may fail
 759       // if the names are not resolvable in the boot class loader (7056328).
 760       switch (bc) {
 761       case Bytecodes::_invokevirtual:
 762       case Bytecodes::_invokeinterface:
 763       case Bytecodes::_invokespecial:
 764       case Bytecodes::_invokestatic:
 765         {
 766           Method* m = ConstantPool::method_at_if_loaded(cpool, index);
 767           if (m != NULL) {
 768             return get_method(m);
 769           }
 770         }
 771         break;
 772       }
 773     }
 774 
 775     if (holder_is_accessible) {  // Our declared holder is loaded.
 776       InstanceKlass* lookup = declared_holder->get_instanceKlass();
 777       Method* m = lookup_method(accessor->get_instanceKlass(), lookup, name_sym, sig_sym, bc);
 778       if (m != NULL &&
 779           (bc == Bytecodes::_invokestatic
 780            ?  m->method_holder()->is_not_initialized()
 781            : !m->method_holder()->is_loaded())) {
 782         m = NULL;
 783       }
 784 #ifdef ASSERT
 785       if (m != NULL && ReplayCompiles && !ciReplay::is_loaded(m)) {
 786         m = NULL;
 787       }
 788 #endif
 789       if (m != NULL) {
 790         // We found the method.
 791         return get_method(m);
 792       }
 793     }
 794 
 795     // Either the declared holder was not loaded, or the method could
 796     // not be found.  Create a dummy ciMethod to represent the failed
 797     // lookup.
 798     ciSymbol* name      = get_symbol(name_sym);
 799     ciSymbol* signature = get_symbol(sig_sym);
 800     return get_unloaded_method(declared_holder, name, signature, accessor);
 801   }
 802 }
 803 
 804 
 805 // ------------------------------------------------------------------
 806 // ciEnv::get_instance_klass_for_declared_method_holder
 807 ciInstanceKlass* ciEnv::get_instance_klass_for_declared_method_holder(ciKlass* method_holder) {
 808   // For the case of <array>.clone(), the method holder can be a ciArrayKlass
 809   // instead of a ciInstanceKlass.  For that case simply pretend that the
 810   // declared holder is Object.clone since that's where the call will bottom out.
 811   // A more correct fix would trickle out through many interfaces in CI,
 812   // requiring ciInstanceKlass* to become ciKlass* and many more places would
 813   // require checks to make sure the expected type was found.  Given that this
 814   // only occurs for clone() the more extensive fix seems like overkill so
 815   // instead we simply smear the array type into Object.
 816   guarantee(method_holder != NULL, "no method holder");
 817   if (method_holder->is_instance_klass()) {
 818     return method_holder->as_instance_klass();
 819   } else if (method_holder->is_array_klass()) {
 820     return current()->Object_klass();
 821   } else {
 822     ShouldNotReachHere();
 823   }
 824   return NULL;
 825 }
 826 
 827 
 828 // ------------------------------------------------------------------
 829 // ciEnv::get_method_by_index
 830 ciMethod* ciEnv::get_method_by_index(constantPoolHandle cpool,
 831                                      int index, Bytecodes::Code bc,
 832                                      ciInstanceKlass* accessor) {
 833   GUARDED_VM_ENTRY(return get_method_by_index_impl(cpool, index, bc, accessor);)
 834 }
 835 
 836 
 837 // ------------------------------------------------------------------
 838 // ciEnv::name_buffer
 839 char *ciEnv::name_buffer(int req_len) {
 840   if (_name_buffer_len < req_len) {
 841     if (_name_buffer == NULL) {
 842       _name_buffer = (char*)arena()->Amalloc(sizeof(char)*req_len);
 843       _name_buffer_len = req_len;
 844     } else {
 845       _name_buffer =
 846         (char*)arena()->Arealloc(_name_buffer, _name_buffer_len, req_len);
 847       _name_buffer_len = req_len;
 848     }
 849   }
 850   return _name_buffer;
 851 }
 852 
 853 // ------------------------------------------------------------------
 854 // ciEnv::is_in_vm
 855 bool ciEnv::is_in_vm() {
 856   return JavaThread::current()->thread_state() == _thread_in_vm;
 857 }
 858 
 859 bool ciEnv::system_dictionary_modification_counter_changed() {
 860   return _system_dictionary_modification_counter != SystemDictionary::number_of_modifications();
 861 }
 862 
 863 // ------------------------------------------------------------------
 864 // ciEnv::validate_compile_task_dependencies
 865 //
 866 // Check for changes during compilation (e.g. class loads, evolution,
 867 // breakpoints, call site invalidation).
 868 void ciEnv::validate_compile_task_dependencies(ciMethod* target) {
 869   if (failing())  return;  // no need for further checks
 870 
 871   // First, check non-klass dependencies as we might return early and
 872   // not check klass dependencies if the system dictionary
 873   // modification counter hasn't changed (see below).
 874   for (Dependencies::DepStream deps(dependencies()); deps.next(); ) {
 875     if (deps.is_klass_type())  continue;  // skip klass dependencies
 876     Klass* witness = deps.check_dependency();
 877     if (witness != NULL) {
 878       record_failure("invalid non-klass dependency");
 879       return;
 880     }
 881   }
 882 
 883   // Klass dependencies must be checked when the system dictionary
 884   // changes.  If logging is enabled all violated dependences will be
 885   // recorded in the log.  In debug mode check dependencies even if
 886   // the system dictionary hasn't changed to verify that no invalid
 887   // dependencies were inserted.  Any violated dependences in this
 888   // case are dumped to the tty.
 889   bool counter_changed = system_dictionary_modification_counter_changed();
 890 
 891   bool verify_deps = trueInDebug;
 892   if (!counter_changed && !verify_deps)  return;
 893 
 894   int klass_violations = 0;
 895   for (Dependencies::DepStream deps(dependencies()); deps.next(); ) {
 896     if (!deps.is_klass_type())  continue;  // skip non-klass dependencies
 897     Klass* witness = deps.check_dependency();
 898     if (witness != NULL) {
 899       klass_violations++;
 900       if (!counter_changed) {
 901         // Dependence failed but counter didn't change.  Log a message
 902         // describing what failed and allow the assert at the end to
 903         // trigger.
 904         deps.print_dependency(witness);
 905       } else if (xtty == NULL) {
 906         // If we're not logging then a single violation is sufficient,
 907         // otherwise we want to log all the dependences which were
 908         // violated.
 909         break;
 910       }
 911     }
 912   }
 913 
 914   if (klass_violations != 0) {
 915 #ifdef ASSERT
 916     if (!counter_changed && !PrintCompilation) {
 917       // Print out the compile task that failed
 918       _task->print_line();
 919     }
 920 #endif
 921     assert(counter_changed, "failed dependencies, but counter didn't change");
 922     record_failure("concurrent class loading");
 923   }
 924 }
 925 
 926 // ------------------------------------------------------------------
 927 // ciEnv::register_method
 928 void ciEnv::register_method(ciMethod* target,
 929                             int entry_bci,
 930                             CodeOffsets* offsets,
 931                             int orig_pc_offset,
 932                             CodeBuffer* code_buffer,
 933                             int frame_words,
 934                             OopMapSet* oop_map_set,
 935                             ExceptionHandlerTable* handler_table,
 936                             ImplicitExceptionTable* inc_table,
 937                             AbstractCompiler* compiler,
 938                             int comp_level,
 939                             bool has_unsafe_access,
 940                             bool has_wide_vectors,
 941                             RTMState  rtm_state) {
 942   VM_ENTRY_MARK;
 943   nmethod* nm = NULL;
 944   {
 945     // To prevent compile queue updates.
 946     MutexLocker locker(MethodCompileQueue_lock, THREAD);
 947 
 948     // Prevent SystemDictionary::add_to_hierarchy from running
 949     // and invalidating our dependencies until we install this method.
 950     // No safepoints are allowed. Otherwise, class redefinition can occur in between.
 951     MutexLocker ml(Compile_lock);
 952     No_Safepoint_Verifier nsv;
 953 
 954     // Change in Jvmti state may invalidate compilation.
 955     if (!failing() &&
 956         ( (!jvmti_can_hotswap_or_post_breakpoint() &&
 957            JvmtiExport::can_hotswap_or_post_breakpoint()) ||
 958           (!jvmti_can_access_local_variables() &&
 959            JvmtiExport::can_access_local_variables()) ||
 960           (!jvmti_can_post_on_exceptions() &&
 961            JvmtiExport::can_post_on_exceptions()) )) {
 962       record_failure("Jvmti state change invalidated dependencies");
 963     }
 964 
 965     // Change in DTrace flags may invalidate compilation.
 966     if (!failing() &&
 967         ( (!dtrace_extended_probes() && ExtendedDTraceProbes) ||
 968           (!dtrace_method_probes() && DTraceMethodProbes) ||
 969           (!dtrace_alloc_probes() && DTraceAllocProbes) )) {
 970       record_failure("DTrace flags change invalidated dependencies");
 971     }
 972 
 973     if (!failing()) {
 974       if (log() != NULL) {
 975         // Log the dependencies which this compilation declares.
 976         dependencies()->log_all_dependencies();
 977       }
 978 
 979       // Encode the dependencies now, so we can check them right away.
 980       dependencies()->encode_content_bytes();
 981 
 982       // Check for {class loads, evolution, breakpoints, ...} during compilation
 983       validate_compile_task_dependencies(target);
 984     }
 985 
 986     methodHandle method(THREAD, target->get_Method());
 987 
 988 #if INCLUDE_RTM_OPT
 989     if (!failing() && (rtm_state != NoRTM) &&
 990         (method()->method_data() != NULL) &&
 991         (method()->method_data()->rtm_state() != rtm_state)) {
 992       // Preemptive decompile if rtm state was changed.
 993       record_failure("RTM state change invalidated rtm code");
 994     }
 995 #endif
 996 
 997     if (failing()) {
 998       // While not a true deoptimization, it is a preemptive decompile.
 999       MethodData* mdo = method()->method_data();
1000       if (mdo != NULL) {
1001         mdo->inc_decompile_count();
1002       }
1003 
1004       // All buffers in the CodeBuffer are allocated in the CodeCache.
1005       // If the code buffer is created on each compile attempt
1006       // as in C2, then it must be freed.
1007       code_buffer->free_blob();
1008       return;
1009     }
1010 
1011     assert(offsets->value(CodeOffsets::Deopt) != -1, "must have deopt entry");
1012     assert(offsets->value(CodeOffsets::Exceptions) != -1, "must have exception entry");
1013 
1014     nm =  nmethod::new_nmethod(method,
1015                                compile_id(),
1016                                entry_bci,
1017                                offsets,
1018                                orig_pc_offset,
1019                                debug_info(), dependencies(), code_buffer,
1020                                frame_words, oop_map_set,
1021                                handler_table, inc_table,
1022                                compiler, comp_level);
1023     // Free codeBlobs
1024     code_buffer->free_blob();
1025 
1026     if (nm != NULL) {
1027       nm->set_has_unsafe_access(has_unsafe_access);
1028       nm->set_has_wide_vectors(has_wide_vectors);
1029 #if INCLUDE_RTM_OPT
1030       nm->set_rtm_state(rtm_state);
1031 #endif
1032 
1033       // Record successful registration.
1034       // (Put nm into the task handle *before* publishing to the Java heap.)
1035       if (task() != NULL) {
1036         task()->set_code(nm);
1037       }
1038 
1039       if (entry_bci == InvocationEntryBci) {
1040         if (TieredCompilation) {
1041           // If there is an old version we're done with it
1042           nmethod* old = method->code();
1043           if (TraceMethodReplacement && old != NULL) {
1044             ResourceMark rm;
1045             char *method_name = method->name_and_sig_as_C_string();
1046             tty->print_cr("Replacing method %s", method_name);
1047           }
1048           if (old != NULL) {
1049             old->make_not_entrant();
1050           }
1051         }
1052         if (TraceNMethodInstalls) {
1053           ResourceMark rm;
1054           char *method_name = method->name_and_sig_as_C_string();
1055           ttyLocker ttyl;
1056           tty->print_cr("Installing method (%d) %s ",
1057                         comp_level,
1058                         method_name);
1059         }
1060         // Allow the code to be executed
1061         method->set_code(method, nm);
1062       } else {
1063         if (TraceNMethodInstalls) {
1064           ResourceMark rm;
1065           char *method_name = method->name_and_sig_as_C_string();
1066           ttyLocker ttyl;
1067           tty->print_cr("Installing osr method (%d) %s @ %d",
1068                         comp_level,
1069                         method_name,
1070                         entry_bci);
1071         }
1072         method->method_holder()->add_osr_nmethod(nm);
1073       }
1074     }
1075   }  // safepoints are allowed again
1076 
1077   if (nm != NULL) {
1078     // JVMTI -- compiled method notification (must be done outside lock)
1079     nm->post_compiled_method_load_event();
1080   } else {
1081     // The CodeCache is full. Print out warning and disable compilation.
1082     record_failure("code cache is full");
1083     CompileBroker::handle_full_code_cache();
1084   }
1085 }
1086 
1087 
1088 // ------------------------------------------------------------------
1089 // ciEnv::find_system_klass
1090 ciKlass* ciEnv::find_system_klass(ciSymbol* klass_name) {
1091   VM_ENTRY_MARK;
1092   return get_klass_by_name_impl(NULL, constantPoolHandle(), klass_name, false);
1093 }
1094 
1095 // ------------------------------------------------------------------
1096 // ciEnv::comp_level
1097 int ciEnv::comp_level() {
1098   if (task() == NULL)  return CompLevel_highest_tier;
1099   return task()->comp_level();
1100 }
1101 
1102 // ------------------------------------------------------------------
1103 // ciEnv::compile_id
1104 uint ciEnv::compile_id() {
1105   if (task() == NULL)  return 0;
1106   return task()->compile_id();
1107 }
1108 
1109 // ------------------------------------------------------------------
1110 // ciEnv::notice_inlined_method()
1111 void ciEnv::notice_inlined_method(ciMethod* method) {
1112   _num_inlined_bytecodes += method->code_size_for_inlining();
1113 }
1114 
1115 // ------------------------------------------------------------------
1116 // ciEnv::num_inlined_bytecodes()
1117 int ciEnv::num_inlined_bytecodes() const {
1118   return _num_inlined_bytecodes;
1119 }
1120 
1121 // ------------------------------------------------------------------
1122 // ciEnv::record_failure()
1123 void ciEnv::record_failure(const char* reason) {
1124   if (_failure_reason == NULL) {
1125     // Record the first failure reason.
1126     _failure_reason = reason;
1127   }
1128 }
1129 
1130 // ------------------------------------------------------------------
1131 // ciEnv::record_method_not_compilable()
1132 void ciEnv::record_method_not_compilable(const char* reason, bool all_tiers) {
1133   int new_compilable =
1134     all_tiers ? MethodCompilable_never : MethodCompilable_not_at_tier ;
1135 
1136   // Only note transitions to a worse state
1137   if (new_compilable > _compilable) {
1138     if (log() != NULL) {
1139       if (all_tiers) {
1140         log()->elem("method_not_compilable");
1141       } else {
1142         log()->elem("method_not_compilable_at_tier level='%d'",
1143                     current()->task()->comp_level());
1144       }
1145     }
1146     _compilable = new_compilable;
1147 
1148     // Reset failure reason; this one is more important.
1149     _failure_reason = NULL;
1150     record_failure(reason);
1151   }
1152 }
1153 
1154 // ------------------------------------------------------------------
1155 // ciEnv::record_out_of_memory_failure()
1156 void ciEnv::record_out_of_memory_failure() {
1157   // If memory is low, we stop compiling methods.
1158   record_method_not_compilable("out of memory");
1159 }
1160 
1161 ciInstance* ciEnv::unloaded_ciinstance() {
1162   GUARDED_VM_ENTRY(return _factory->get_unloaded_object_constant();)
1163 }
1164 
1165 // ------------------------------------------------------------------
1166 // ciEnv::dump_replay_data*
1167 
1168 // Don't change thread state and acquire any locks.
1169 // Safe to call from VM error reporter.
1170 
1171 void ciEnv::dump_compile_data(outputStream* out) {
1172   CompileTask* task = this->task();
1173   Method* method = task->method();
1174   int entry_bci = task->osr_bci();
1175   int comp_level = task->comp_level();
1176   out->print("compile %s %s %s %d %d",
1177                 method->klass_name()->as_quoted_ascii(),
1178                 method->name()->as_quoted_ascii(),
1179                 method->signature()->as_quoted_ascii(),
1180                 entry_bci, comp_level);
1181   if (compiler_data() != NULL) {
1182     if (is_c2_compile(comp_level)) { // C2 or Shark
1183 #ifdef COMPILER2
1184       // Dump C2 inlining data.
1185       ((Compile*)compiler_data())->dump_inline_data(out);
1186 #endif
1187     } else if (is_c1_compile(comp_level)) { // C1
1188 #ifdef COMPILER1
1189       // Dump C1 inlining data.
1190       ((Compilation*)compiler_data())->dump_inline_data(out);
1191 #endif
1192     }
1193   }
1194   out->cr();
1195 }
1196 
1197 void ciEnv::dump_replay_data_unsafe(outputStream* out) {
1198   ResourceMark rm;
1199 #if INCLUDE_JVMTI
1200   out->print_cr("JvmtiExport can_access_local_variables %d",     _jvmti_can_access_local_variables);
1201   out->print_cr("JvmtiExport can_hotswap_or_post_breakpoint %d", _jvmti_can_hotswap_or_post_breakpoint);
1202   out->print_cr("JvmtiExport can_post_on_exceptions %d",         _jvmti_can_post_on_exceptions);
1203 #endif // INCLUDE_JVMTI
1204 
1205   GrowableArray<ciMetadata*>* objects = _factory->get_ci_metadata();
1206   out->print_cr("# %d ciObject found", objects->length());
1207   for (int i = 0; i < objects->length(); i++) {
1208     objects->at(i)->dump_replay_data(out);
1209   }
1210   dump_compile_data(out);
1211   out->flush();
1212 }
1213 
1214 void ciEnv::dump_replay_data(outputStream* out) {
1215   GUARDED_VM_ENTRY(
1216     MutexLocker ml(Compile_lock);
1217     dump_replay_data_unsafe(out);
1218   )
1219 }
1220 
1221 void ciEnv::dump_replay_data(int compile_id) {
1222   static char buffer[O_BUFLEN];
1223   int ret = jio_snprintf(buffer, O_BUFLEN, "replay_pid%p_compid%d.log", os::current_process_id(), compile_id);
1224   if (ret > 0) {
1225     int fd = open(buffer, O_RDWR | O_CREAT | O_TRUNC, 0666);
1226     if (fd != -1) {
1227       FILE* replay_data_file = os::open(fd, "w");
1228       if (replay_data_file != NULL) {
1229         fileStream replay_data_stream(replay_data_file, /*need_close=*/true);
1230         dump_replay_data(&replay_data_stream);
1231         tty->print_cr("# Compiler replay data is saved as: %s", buffer);
1232       } else {
1233         tty->print_cr("# Can't open file to dump replay data.");
1234       }
1235     }
1236   }
1237 }
1238 
1239 void ciEnv::dump_inline_data(int compile_id) {
1240   static char buffer[O_BUFLEN];
1241   int ret = jio_snprintf(buffer, O_BUFLEN, "inline_pid%p_compid%d.log", os::current_process_id(), compile_id);
1242   if (ret > 0) {
1243     int fd = open(buffer, O_RDWR | O_CREAT | O_TRUNC, 0666);
1244     if (fd != -1) {
1245       FILE* inline_data_file = os::open(fd, "w");
1246       if (inline_data_file != NULL) {
1247         fileStream replay_data_stream(inline_data_file, /*need_close=*/true);
1248         GUARDED_VM_ENTRY(
1249           MutexLocker ml(Compile_lock);
1250           dump_compile_data(&replay_data_stream);
1251         )
1252         replay_data_stream.flush();
1253         tty->print("# Compiler inline data is saved as: ");
1254         tty->print_cr("%s", buffer);
1255       } else {
1256         tty->print_cr("# Can't open file to dump inline data.");
1257       }
1258     }
1259   }
1260 }