1 /*
   2  * Copyright (c) 1999, 2018, 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/ciField.hpp"
  27 #include "ci/ciInstance.hpp"
  28 #include "ci/ciInstanceKlass.hpp"
  29 #include "ci/ciUtilities.inline.hpp"
  30 #include "ci/ciValueKlass.hpp"
  31 #include "classfile/systemDictionary.hpp"
  32 #include "memory/allocation.hpp"
  33 #include "memory/allocation.inline.hpp"
  34 #include "memory/resourceArea.hpp"
  35 #include "oops/oop.inline.hpp"
  36 #include "oops/fieldStreams.hpp"
  37 #include "oops/valueKlass.hpp"
  38 #include "runtime/fieldDescriptor.inline.hpp"
  39 #include "runtime/handles.inline.hpp"
  40 #include "runtime/jniHandles.inline.hpp"
  41 
  42 // ciInstanceKlass
  43 //
  44 // This class represents a Klass* in the HotSpot virtual machine
  45 // whose Klass part in an InstanceKlass.
  46 
  47 
  48 // ------------------------------------------------------------------
  49 // ciInstanceKlass::ciInstanceKlass
  50 //
  51 // Loaded instance klass.
  52 ciInstanceKlass::ciInstanceKlass(Klass* k) :
  53   ciKlass(k)
  54 {
  55   assert(get_Klass()->is_instance_klass(), "wrong type");
  56   assert(get_instanceKlass()->is_loaded(), "must be at least loaded");
  57   InstanceKlass* ik = get_instanceKlass();
  58 
  59   AccessFlags access_flags = ik->access_flags();
  60   _flags = ciFlags(access_flags);
  61   _has_finalizer = access_flags.has_finalizer();
  62   _has_subklass = flags().is_final() ? subklass_false : subklass_unknown;
  63   _init_state = ik->init_state();
  64   _nonstatic_field_size = ik->nonstatic_field_size();
  65   _has_nonstatic_fields = ik->has_nonstatic_fields();
  66   _has_nonstatic_concrete_methods = ik->has_nonstatic_concrete_methods();
  67   _is_unsafe_anonymous = ik->is_unsafe_anonymous();
  68   _nonstatic_fields = NULL;            // initialized lazily by compute_nonstatic_fields
  69   _has_injected_fields = -1;
  70   _vcc_klass = NULL;
  71   _implementor = NULL; // we will fill these lazily
  72 
  73   // Ensure that the metadata wrapped by the ciMetadata is kept alive by GC.
  74   // This is primarily useful for metadata which is considered as weak roots
  75   // by the GC but need to be strong roots if reachable from a current compilation.
  76   // InstanceKlass are created for both weak and strong metadata.  Ensuring this metadata
  77   // alive covers the cases where there are weak roots without performance cost.
  78   oop holder = ik->klass_holder();
  79   if (ik->is_unsafe_anonymous()) {
  80     // Though ciInstanceKlass records class loader oop, it's not enough to keep
  81     // VM unsafe anonymous classes alive (loader == NULL). Klass holder should
  82     // be used instead. It is enough to record a ciObject, since cached elements are never removed
  83     // during ciObjectFactory lifetime. ciObjectFactory itself is created for
  84     // every compilation and lives for the whole duration of the compilation.
  85     assert(holder != NULL, "holder of unsafe anonymous class is the mirror which is never null");
  86     (void)CURRENT_ENV->get_object(holder);
  87   }
  88 
  89   Thread *thread = Thread::current();
  90   if (ciObjectFactory::is_initialized()) {
  91     _loader = JNIHandles::make_local(thread, ik->class_loader());
  92     _protection_domain = JNIHandles::make_local(thread,
  93                                                 ik->protection_domain());
  94     _is_shared = false;
  95   } else {
  96     Handle h_loader(thread, ik->class_loader());
  97     Handle h_protection_domain(thread, ik->protection_domain());
  98     _loader = JNIHandles::make_global(h_loader);
  99     _protection_domain = JNIHandles::make_global(h_protection_domain);
 100     _is_shared = true;
 101   }
 102 
 103   // Lazy fields get filled in only upon request.
 104   _super  = NULL;
 105   _java_mirror = NULL;
 106 
 107   if (is_shared()) {
 108     if (k != SystemDictionary::Object_klass()) {
 109       super();
 110     }
 111     //compute_nonstatic_fields();  // done outside of constructor
 112   }
 113 
 114   _field_cache = NULL;
 115 }
 116 
 117 // Version for unloaded classes:
 118 ciInstanceKlass::ciInstanceKlass(ciSymbol* name,
 119                                  jobject loader, jobject protection_domain,
 120                                  BasicType bt)
 121   : ciKlass(name, bt)
 122 {
 123   assert(name->char_at(0) != '[', "not an instance klass");
 124   _init_state = (InstanceKlass::ClassState)0;
 125   _nonstatic_field_size = -1;
 126   _has_nonstatic_fields = false;
 127   _nonstatic_fields = NULL;            // initialized lazily by compute_nonstatic_fields
 128   _has_injected_fields = -1;
 129   _vcc_klass = NULL;
 130   _is_unsafe_anonymous = false;
 131   _loader = loader;
 132   _protection_domain = protection_domain;
 133   _is_shared = false;
 134   _super = NULL;
 135   _java_mirror = NULL;
 136   _field_cache = NULL;
 137 }
 138 
 139 
 140 
 141 // ------------------------------------------------------------------
 142 // ciInstanceKlass::compute_shared_is_initialized
 143 void ciInstanceKlass::compute_shared_init_state() {
 144   GUARDED_VM_ENTRY(
 145     InstanceKlass* ik = get_instanceKlass();
 146     _init_state = ik->init_state();
 147   )
 148 }
 149 
 150 // ------------------------------------------------------------------
 151 // ciInstanceKlass::compute_shared_has_subklass
 152 bool ciInstanceKlass::compute_shared_has_subklass() {
 153   GUARDED_VM_ENTRY(
 154     InstanceKlass* ik = get_instanceKlass();
 155     _has_subklass = ik->subklass() != NULL ? subklass_true : subklass_false;
 156     return _has_subklass == subklass_true;
 157   )
 158 }
 159 
 160 // ------------------------------------------------------------------
 161 // ciInstanceKlass::loader
 162 oop ciInstanceKlass::loader() {
 163   ASSERT_IN_VM;
 164   return JNIHandles::resolve(_loader);
 165 }
 166 
 167 // ------------------------------------------------------------------
 168 // ciInstanceKlass::loader_handle
 169 jobject ciInstanceKlass::loader_handle() {
 170   return _loader;
 171 }
 172 
 173 // ------------------------------------------------------------------
 174 // ciInstanceKlass::protection_domain
 175 oop ciInstanceKlass::protection_domain() {
 176   ASSERT_IN_VM;
 177   return JNIHandles::resolve(_protection_domain);
 178 }
 179 
 180 // ------------------------------------------------------------------
 181 // ciInstanceKlass::protection_domain_handle
 182 jobject ciInstanceKlass::protection_domain_handle() {
 183   return _protection_domain;
 184 }
 185 
 186 // ------------------------------------------------------------------
 187 // ciInstanceKlass::field_cache
 188 //
 189 // Get the field cache associated with this klass.
 190 ciConstantPoolCache* ciInstanceKlass::field_cache() {
 191   if (is_shared()) {
 192     return NULL;
 193   }
 194   if (_field_cache == NULL) {
 195     assert(!is_java_lang_Object(), "Object has no fields");
 196     Arena* arena = CURRENT_ENV->arena();
 197     _field_cache = new (arena) ciConstantPoolCache(arena, 5);
 198   }
 199   return _field_cache;
 200 }
 201 
 202 // ------------------------------------------------------------------
 203 // ciInstanceKlass::get_canonical_holder
 204 //
 205 ciInstanceKlass* ciInstanceKlass::get_canonical_holder(int offset) {
 206   #ifdef ASSERT
 207   if (!(offset >= 0 && offset < layout_helper())) {
 208     tty->print("*** get_canonical_holder(%d) on ", offset);
 209     this->print();
 210     tty->print_cr(" ***");
 211   };
 212   assert(offset >= 0 && offset < layout_helper(), "offset must be tame");
 213   #endif
 214 
 215   if (offset < instanceOopDesc::base_offset_in_bytes()) {
 216     // All header offsets belong properly to java/lang/Object.
 217     return CURRENT_ENV->Object_klass();
 218   }
 219 
 220   ciInstanceKlass* self = this;
 221   for (;;) {
 222     assert(self->is_loaded(), "must be loaded to have size");
 223     ciInstanceKlass* super = self->super();
 224     if (super == NULL || super->nof_nonstatic_fields() == 0 ||
 225         !super->contains_field_offset(offset)) {
 226       return self;
 227     } else {
 228       self = super;  // return super->get_canonical_holder(offset)
 229     }
 230   }
 231 }
 232 
 233 // ------------------------------------------------------------------
 234 // ciInstanceKlass::is_java_lang_Object
 235 //
 236 // Is this klass java.lang.Object?
 237 bool ciInstanceKlass::is_java_lang_Object() const {
 238   return equals(CURRENT_ENV->Object_klass());
 239 }
 240 
 241 // ------------------------------------------------------------------
 242 // ciInstanceKlass::uses_default_loader
 243 bool ciInstanceKlass::uses_default_loader() const {
 244   // Note:  We do not need to resolve the handle or enter the VM
 245   // in order to test null-ness.
 246   return _loader == NULL;
 247 }
 248 
 249 // ------------------------------------------------------------------
 250 
 251 /**
 252  * Return basic type of boxed value for box klass or T_OBJECT if not.
 253  */
 254 BasicType ciInstanceKlass::box_klass_type() const {
 255   if (uses_default_loader() && is_loaded()) {
 256     return SystemDictionary::box_klass_type(get_Klass());
 257   } else {
 258     return T_OBJECT;
 259   }
 260 }
 261 
 262 /**
 263  * Is this boxing klass?
 264  */
 265 bool ciInstanceKlass::is_box_klass() const {
 266   return is_java_primitive(box_klass_type());
 267 }
 268 
 269 /**
 270  *  Is this boxed value offset?
 271  */
 272 bool ciInstanceKlass::is_boxed_value_offset(int offset) const {
 273   BasicType bt = box_klass_type();
 274   return is_java_primitive(bt) &&
 275          (offset == java_lang_boxing_object::value_offset_in_bytes(bt));
 276 }
 277 
 278 // ------------------------------------------------------------------
 279 // ciInstanceKlass::is_in_package
 280 //
 281 // Is this klass in the given package?
 282 bool ciInstanceKlass::is_in_package(const char* packagename, int len) {
 283   // To avoid class loader mischief, this test always rejects application classes.
 284   if (!uses_default_loader())
 285     return false;
 286   GUARDED_VM_ENTRY(
 287     return is_in_package_impl(packagename, len);
 288   )
 289 }
 290 
 291 bool ciInstanceKlass::is_in_package_impl(const char* packagename, int len) {
 292   ASSERT_IN_VM;
 293 
 294   // If packagename contains trailing '/' exclude it from the
 295   // prefix-test since we test for it explicitly.
 296   if (packagename[len - 1] == '/')
 297     len--;
 298 
 299   if (!name()->starts_with(packagename, len))
 300     return false;
 301 
 302   // Test if the class name is something like "java/lang".
 303   if ((len + 1) > name()->utf8_length())
 304     return false;
 305 
 306   // Test for trailing '/'
 307   if (name()->char_at(len) != '/')
 308     return false;
 309 
 310   // Make sure it's not actually in a subpackage:
 311   if (name()->index_of_at(len+1, "/", 1) >= 0)
 312     return false;
 313 
 314   return true;
 315 }
 316 
 317 // ------------------------------------------------------------------
 318 // ciInstanceKlass::print_impl
 319 //
 320 // Implementation of the print method.
 321 void ciInstanceKlass::print_impl(outputStream* st) {
 322   ciKlass::print_impl(st);
 323   GUARDED_VM_ENTRY(st->print(" loader=" INTPTR_FORMAT, p2i((address)loader()));)
 324   if (is_loaded()) {
 325     st->print(" loaded=true initialized=%s finalized=%s subklass=%s size=%d flags=",
 326               bool_to_str(is_initialized()),
 327               bool_to_str(has_finalizer()),
 328               bool_to_str(has_subklass()),
 329               layout_helper());
 330 
 331     _flags.print_klass_flags();
 332 
 333     if (_super) {
 334       st->print(" super=");
 335       _super->print_name();
 336     }
 337     if (_java_mirror) {
 338       st->print(" mirror=PRESENT");
 339     }
 340   } else {
 341     st->print(" loaded=false");
 342   }
 343 }
 344 
 345 // ------------------------------------------------------------------
 346 // ciInstanceKlass::super
 347 //
 348 // Get the superklass of this klass.
 349 ciInstanceKlass* ciInstanceKlass::super() {
 350   assert(is_loaded(), "must be loaded");
 351   if (_super == NULL && !is_java_lang_Object()) {
 352     GUARDED_VM_ENTRY(
 353       Klass* super_klass = get_instanceKlass()->super();
 354       _super = CURRENT_ENV->get_instance_klass(super_klass);
 355     )
 356   }
 357   return _super;
 358 }
 359 
 360 // ------------------------------------------------------------------
 361 // ciInstanceKlass::java_mirror
 362 //
 363 // Get the instance of java.lang.Class corresponding to this klass.
 364 // Cache it on this->_java_mirror.
 365 ciInstance* ciInstanceKlass::java_mirror() {
 366   if (is_shared()) {
 367     return ciKlass::java_mirror();
 368   }
 369   if (_java_mirror == NULL) {
 370     _java_mirror = ciKlass::java_mirror();
 371   }
 372   return _java_mirror;
 373 }
 374 
 375 // ------------------------------------------------------------------
 376 // ciInstanceKlass::unique_concrete_subklass
 377 ciInstanceKlass* ciInstanceKlass::unique_concrete_subklass() {
 378   if (!is_loaded())     return NULL; // No change if class is not loaded
 379   if (!is_abstract())   return NULL; // Only applies to abstract classes.
 380   if (!has_subklass())  return NULL; // Must have at least one subklass.
 381   VM_ENTRY_MARK;
 382   InstanceKlass* ik = get_instanceKlass();
 383   Klass* up = ik->up_cast_abstract();
 384   assert(up->is_instance_klass(), "must be InstanceKlass");
 385   if (ik == up) {
 386     return NULL;
 387   }
 388   return CURRENT_THREAD_ENV->get_instance_klass(up);
 389 }
 390 
 391 // ------------------------------------------------------------------
 392 // ciInstanceKlass::has_finalizable_subclass
 393 bool ciInstanceKlass::has_finalizable_subclass() {
 394   if (!is_loaded())     return true;
 395   VM_ENTRY_MARK;
 396   return Dependencies::find_finalizable_subclass(get_instanceKlass()) != NULL;
 397 }
 398 
 399 // ------------------------------------------------------------------
 400 // ciInstanceKlass::get_field_by_offset
 401 ciField* ciInstanceKlass::get_field_by_offset(int field_offset, bool is_static) {
 402   if (!is_static) {
 403     for (int i = 0, len = nof_nonstatic_fields(); i < len; i++) {
 404       ciField* field = _nonstatic_fields->at(i);
 405       int  field_off = field->offset_in_bytes();
 406       if (field_off == field_offset)
 407         return field;
 408       if (field_off > field_offset)
 409         break;
 410       // could do binary search or check bins, but probably not worth it
 411     }
 412     return NULL;
 413   }
 414   VM_ENTRY_MARK;
 415   InstanceKlass* k = get_instanceKlass();
 416   fieldDescriptor fd;
 417   if (!k->find_field_from_offset(field_offset, is_static, &fd)) {
 418     return NULL;
 419   }
 420   ciField* field = new (CURRENT_THREAD_ENV->arena()) ciField(&fd);
 421   return field;
 422 }
 423 
 424 ciField* ciInstanceKlass::get_non_flattened_field_by_offset(int field_offset) {
 425   if (super() != NULL && super()->has_nonstatic_fields()) {
 426     ciField* f = super()->get_non_flattened_field_by_offset(field_offset);
 427     if (f != NULL) {
 428       return f;
 429     }
 430   }
 431 
 432   VM_ENTRY_MARK;
 433   InstanceKlass* k = get_instanceKlass();
 434   Arena* arena = CURRENT_ENV->arena();
 435   for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
 436     if (fs.access_flags().is_static())  continue;
 437     fieldDescriptor& fd = fs.field_descriptor();
 438     if (fd.offset() == field_offset) {
 439       ciField* f = new (arena) ciField(&fd);
 440       return f;
 441     }
 442   }
 443 
 444   return NULL;
 445 }
 446 
 447 // ------------------------------------------------------------------
 448 // ciInstanceKlass::get_field_by_name
 449 ciField* ciInstanceKlass::get_field_by_name(ciSymbol* name, ciSymbol* signature, bool is_static) {
 450   VM_ENTRY_MARK;
 451   InstanceKlass* k = get_instanceKlass();
 452   fieldDescriptor fd;
 453   Klass* def = k->find_field(name->get_symbol(), signature->get_symbol(), is_static, &fd);
 454   if (def == NULL) {
 455     return NULL;
 456   }
 457   ciField* field = new (CURRENT_THREAD_ENV->arena()) ciField(&fd);
 458   return field;
 459 }
 460 
 461 
 462 static int sort_field_by_offset(ciField** a, ciField** b) {
 463   return (*a)->offset_in_bytes() - (*b)->offset_in_bytes();
 464   // (no worries about 32-bit overflow...)
 465 }
 466 
 467 // ------------------------------------------------------------------
 468 // ciInstanceKlass::compute_nonstatic_fields
 469 int ciInstanceKlass::compute_nonstatic_fields() {
 470   assert(is_loaded(), "must be loaded");
 471 
 472   if (_nonstatic_fields != NULL)
 473     return _nonstatic_fields->length();
 474 
 475   if (!has_nonstatic_fields()) {
 476     Arena* arena = CURRENT_ENV->arena();
 477     _nonstatic_fields = new (arena) GrowableArray<ciField*>(arena, 0, 0, NULL);
 478     return 0;
 479   }
 480   assert(!is_java_lang_Object(), "bootstrap OK");
 481 
 482   // Size in bytes of my fields, including inherited fields.
 483   int fsize = nonstatic_field_size() * heapOopSize;
 484 
 485   ciInstanceKlass* super = this->super();
 486   GrowableArray<ciField*>* super_fields = NULL;
 487   if (super != NULL && super->has_nonstatic_fields()) {
 488     int super_fsize  = super->nonstatic_field_size() * heapOopSize;
 489     int super_flen   = super->nof_nonstatic_fields();
 490     super_fields = super->_nonstatic_fields;
 491     assert(super_flen == 0 || super_fields != NULL, "first get nof_fields");
 492     // See if I am no larger than my super; if so, I can use his fields.
 493     if (fsize == super_fsize) {
 494       _nonstatic_fields = super_fields;
 495       return super_fields->length();
 496     }
 497   }
 498 
 499   GrowableArray<ciField*>* fields = NULL;
 500   GUARDED_VM_ENTRY({
 501       fields = compute_nonstatic_fields_impl(super_fields);
 502     });
 503 
 504   if (fields == NULL) {
 505     // This can happen if this class (java.lang.Class) has invisible fields.
 506     if (super_fields != NULL) {
 507       _nonstatic_fields = super_fields;
 508       return super_fields->length();
 509     } else {
 510       return 0;
 511     }
 512   }
 513 
 514   _nonstatic_fields = fields;
 515   return fields->length();
 516 }
 517 
 518 GrowableArray<ciField*>* ciInstanceKlass::compute_nonstatic_fields_impl(GrowableArray<ciField*>* super_fields, bool flatten) {
 519   ASSERT_IN_VM;
 520   Arena* arena = CURRENT_ENV->arena();
 521   int flen = 0;
 522   GrowableArray<ciField*>* fields = NULL;
 523   InstanceKlass* k = get_instanceKlass();
 524   for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
 525     if (fs.access_flags().is_static())  continue;
 526     flen += 1;
 527   }
 528 
 529   // allocate the array:
 530   if (flen == 0) {
 531     return NULL;  // return nothing if none are locally declared
 532   }
 533   if (super_fields != NULL) {
 534     flen += super_fields->length();
 535   }
 536 
 537   fields = new (arena) GrowableArray<ciField*>(arena, flen, 0, NULL);
 538   if (super_fields != NULL) {
 539     fields->appendAll(super_fields);
 540   }
 541 
 542   for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
 543     if (fs.access_flags().is_static())  continue;
 544     fieldDescriptor& fd = fs.field_descriptor();
 545     if (fd.is_flattened() && flatten) {
 546       // Value type fields are embedded
 547       int field_offset = fd.offset();
 548       // Get ValueKlass and adjust number of fields
 549       Klass* k = get_instanceKlass()->get_value_field_klass(fd.index());
 550       ciValueKlass* vk = CURRENT_ENV->get_klass(k)->as_value_klass();
 551       flen += vk->nof_nonstatic_fields() - 1;
 552       // Iterate over fields of the flattened value type and copy them to 'this'
 553       for (int i = 0; i < vk->nof_nonstatic_fields(); ++i) {
 554         ciField* flattened_field = vk->nonstatic_field_at(i);
 555         // Adjust offset to account for missing oop header
 556         int offset = field_offset + (flattened_field->offset() - vk->first_field_offset());
 557         // A flattened field can be treated as final if the non-flattened
 558         // field is declared final or the holder klass is a value type itself.
 559         bool is_final = fd.is_final() || is_valuetype();
 560         ciField* field = new (arena) ciField(flattened_field, this, offset, is_final);
 561         fields->append(field);
 562       }
 563     } else {
 564       ciField* field = new (arena) ciField(&fd);
 565       fields->append(field);
 566     }
 567   }
 568   assert(fields->length() == flen, "sanity");
 569   // Now sort them by offset, ascending.
 570   // (In principle, they could mix with superclass fields.)
 571   fields->sort(sort_field_by_offset);
 572   return fields;
 573 }
 574 
 575 bool ciInstanceKlass::compute_injected_fields_helper() {
 576   ASSERT_IN_VM;
 577   InstanceKlass* k = get_instanceKlass();
 578 
 579   for (InternalFieldStream fs(k); !fs.done(); fs.next()) {
 580     if (fs.access_flags().is_static())  continue;
 581     return true;
 582   }
 583   return false;
 584 }
 585 
 586 void ciInstanceKlass::compute_injected_fields() {
 587   assert(is_loaded(), "must be loaded");
 588 
 589   int has_injected_fields = 0;
 590   if (super() != NULL && super()->has_injected_fields()) {
 591     has_injected_fields = 1;
 592   } else {
 593     GUARDED_VM_ENTRY({
 594         has_injected_fields = compute_injected_fields_helper() ? 1 : 0;
 595       });
 596   }
 597   // may be concurrently initialized for shared ciInstanceKlass objects
 598   assert(_has_injected_fields == -1 || _has_injected_fields == has_injected_fields, "broken concurrent initialization");
 599   _has_injected_fields = has_injected_fields;
 600 }
 601 
 602 bool ciInstanceKlass::has_object_fields() const {
 603   GUARDED_VM_ENTRY(
 604       return get_instanceKlass()->nonstatic_oop_map_size() > 0;
 605     );
 606 }
 607 
 608 // ------------------------------------------------------------------
 609 // ciInstanceKlass::find_method
 610 //
 611 // Find a method in this klass.
 612 ciMethod* ciInstanceKlass::find_method(ciSymbol* name, ciSymbol* signature) {
 613   VM_ENTRY_MARK;
 614   InstanceKlass* k = get_instanceKlass();
 615   Symbol* name_sym = name->get_symbol();
 616   Symbol* sig_sym= signature->get_symbol();
 617 
 618   Method* m = k->find_method(name_sym, sig_sym);
 619   if (m == NULL)  return NULL;
 620 
 621   return CURRENT_THREAD_ENV->get_method(m);
 622 }
 623 
 624 // ------------------------------------------------------------------
 625 // ciInstanceKlass::is_leaf_type
 626 bool ciInstanceKlass::is_leaf_type() {
 627   assert(is_loaded(), "must be loaded");
 628   if (is_shared()) {
 629     return is_final();  // approximately correct
 630   } else {
 631     return !has_subklass() && (nof_implementors() == 0);
 632   }
 633 }
 634 
 635 // ------------------------------------------------------------------
 636 // ciInstanceKlass::implementor
 637 //
 638 // Report an implementor of this interface.
 639 // Note that there are various races here, since my copy
 640 // of _nof_implementors might be out of date with respect
 641 // to results returned by InstanceKlass::implementor.
 642 // This is OK, since any dependencies we decide to assert
 643 // will be checked later under the Compile_lock.
 644 ciInstanceKlass* ciInstanceKlass::implementor() {
 645   ciInstanceKlass* impl = _implementor;
 646   if (impl == NULL) {
 647     // Go into the VM to fetch the implementor.
 648     {
 649       VM_ENTRY_MARK;
 650       MutexLocker ml(Compile_lock);
 651       Klass* k = get_instanceKlass()->implementor();
 652       if (k != NULL) {
 653         if (k == get_instanceKlass()) {
 654           // More than one implementors. Use 'this' in this case.
 655           impl = this;
 656         } else {
 657           impl = CURRENT_THREAD_ENV->get_instance_klass(k);
 658         }
 659       }
 660     }
 661     // Memoize this result.
 662     if (!is_shared()) {
 663       _implementor = impl;
 664     }
 665   }
 666   return impl;
 667 }
 668 
 669 ciInstanceKlass* ciInstanceKlass::unsafe_anonymous_host() {
 670   assert(is_loaded(), "must be loaded");
 671   if (is_unsafe_anonymous()) {
 672     VM_ENTRY_MARK
 673     Klass* unsafe_anonymous_host = get_instanceKlass()->unsafe_anonymous_host();
 674     return CURRENT_ENV->get_instance_klass(unsafe_anonymous_host);
 675   }
 676   return NULL;
 677 }
 678 
 679 ciInstanceKlass* ciInstanceKlass::vcc_klass() {
 680   return NULL;
 681 }
 682 
 683 // Utility class for printing of the contents of the static fields for
 684 // use by compilation replay.  It only prints out the information that
 685 // could be consumed by the compiler, so for primitive types it prints
 686 // out the actual value.  For Strings it's the actual string value.
 687 // For array types it it's first level array size since that's the
 688 // only value which statically unchangeable.  For all other reference
 689 // types it simply prints out the dynamic type.
 690 
 691 class StaticFieldPrinter : public FieldClosure {
 692 protected:
 693   outputStream* _out;
 694 public:
 695   StaticFieldPrinter(outputStream* out) :
 696     _out(out) {
 697   }
 698   void do_field_helper(fieldDescriptor* fd, oop obj, bool flattened);
 699 };
 700 
 701 class StaticFinalFieldPrinter : public StaticFieldPrinter {
 702   const char*   _holder;
 703  public:
 704   StaticFinalFieldPrinter(outputStream* out, const char* holder) :
 705     StaticFieldPrinter(out), _holder(holder) {
 706   }
 707   void do_field(fieldDescriptor* fd) {
 708     if (fd->is_final() && !fd->has_initial_value()) {
 709       ResourceMark rm;
 710       InstanceKlass* holder = fd->field_holder();
 711       oop mirror = holder->java_mirror();
 712       _out->print("staticfield %s %s ", _holder, fd->name()->as_quoted_ascii());
 713       BasicType bt = fd->field_type();
 714       if (bt != T_OBJECT && bt != T_ARRAY) {
 715         _out->print("%s ", fd->signature()->as_quoted_ascii());
 716       }
 717       do_field_helper(fd, mirror, false);
 718       _out->cr();
 719     }
 720   }
 721 };
 722 
 723 class ValueTypeFieldPrinter : public StaticFieldPrinter {
 724   oop _obj;
 725 public:
 726   ValueTypeFieldPrinter(outputStream* out, oop obj) :
 727     StaticFieldPrinter(out), _obj(obj) {
 728   }
 729   void do_field(fieldDescriptor* fd) {
 730     do_field_helper(fd, _obj, true);
 731     _out->print(" ");
 732   }
 733 };
 734 
 735 void StaticFieldPrinter::do_field_helper(fieldDescriptor* fd, oop mirror, bool flattened) {
 736   BasicType bt = fd->field_type();
 737   switch (bt) {
 738     case T_BYTE:    _out->print("%d", mirror->byte_field(fd->offset()));   break;
 739     case T_BOOLEAN: _out->print("%d", mirror->bool_field(fd->offset()));   break;
 740     case T_SHORT:   _out->print("%d", mirror->short_field(fd->offset()));  break;
 741     case T_CHAR:    _out->print("%d", mirror->char_field(fd->offset()));   break;
 742     case T_INT:     _out->print("%d", mirror->int_field(fd->offset()));    break;
 743     case T_LONG:    _out->print(INT64_FORMAT, (int64_t)(mirror->long_field(fd->offset())));   break;
 744     case T_FLOAT: {
 745       float f = mirror->float_field(fd->offset());
 746       _out->print("%d", *(int*)&f);
 747       break;
 748     }
 749     case T_DOUBLE: {
 750       double d = mirror->double_field(fd->offset());
 751       _out->print(INT64_FORMAT, *(int64_t*)&d);
 752       break;
 753     }
 754     case T_ARRAY:  // fall-through
 755     case T_OBJECT: {
 756       _out->print("%s ", fd->signature()->as_quoted_ascii());
 757       oop value =  mirror->obj_field_acquire(fd->offset());
 758       if (value == NULL) {
 759         _out->print_cr("null");
 760       } else if (value->is_instance()) {
 761         assert(fd->field_type() == T_OBJECT, "");
 762         if (value->is_a(SystemDictionary::String_klass())) {
 763           const char* ascii_value = java_lang_String::as_quoted_ascii(value);
 764           _out->print("\"%s\"", (ascii_value != NULL) ? ascii_value : "");
 765          } else {
 766           const char* klass_name  = value->klass()->name()->as_quoted_ascii();
 767           _out->print("%s", klass_name);
 768         }
 769       } else if (value->is_array()) {
 770         typeArrayOop ta = (typeArrayOop)value;
 771         _out->print("%d", ta->length());
 772         if (value->is_objArray() || value->is_valueArray()) {
 773           objArrayOop oa = (objArrayOop)value;
 774           const char* klass_name  = value->klass()->name()->as_quoted_ascii();
 775           _out->print(" %s", klass_name);
 776         }
 777       } else {
 778         ShouldNotReachHere();
 779       }
 780       break;
 781     }
 782     case T_VALUETYPE: {
 783       ResetNoHandleMark rnhm;
 784       Thread* THREAD = Thread::current();
 785       SignatureStream ss(fd->signature(), false);
 786       Symbol* name = ss.as_symbol();
 787       assert(!HAS_PENDING_EXCEPTION, "can resolve klass?");
 788       InstanceKlass* holder = fd->field_holder();
 789       Klass* k = SystemDictionary::find(name, Handle(THREAD, holder->class_loader()),
 790                                         Handle(THREAD, holder->protection_domain()), THREAD);
 791       assert(k != NULL && !HAS_PENDING_EXCEPTION, "can resolve klass?");
 792       ValueKlass* vk = ValueKlass::cast(k);
 793       oop obj;
 794       if (flattened) {
 795         int field_offset = fd->offset() - vk->first_field_offset();
 796         obj = (oop)((address)mirror + field_offset);
 797       } else {
 798         obj =  mirror->obj_field_acquire(fd->offset());
 799       }
 800       ValueTypeFieldPrinter print_field(_out, obj);
 801       vk->do_nonstatic_fields(&print_field);
 802       break;
 803     }
 804     default:
 805       ShouldNotReachHere();
 806   }
 807 }
 808 
 809 
 810 void ciInstanceKlass::dump_replay_data(outputStream* out) {
 811   ResourceMark rm;
 812 
 813   InstanceKlass* ik = get_instanceKlass();
 814   ConstantPool*  cp = ik->constants();
 815 
 816   // Try to record related loaded classes
 817   Klass* sub = ik->subklass();
 818   while (sub != NULL) {
 819     if (sub->is_instance_klass()) {
 820       out->print_cr("instanceKlass %s", sub->name()->as_quoted_ascii());
 821     }
 822     sub = sub->next_sibling();
 823   }
 824 
 825   // Dump out the state of the constant pool tags.  During replay the
 826   // tags will be validated for things which shouldn't change and
 827   // classes will be resolved if the tags indicate that they were
 828   // resolved at compile time.
 829   out->print("ciInstanceKlass %s %d %d %d", ik->name()->as_quoted_ascii(),
 830              is_linked(), is_initialized(), cp->length());
 831   for (int index = 1; index < cp->length(); index++) {
 832     out->print(" %d", cp->tags()->at(index));
 833   }
 834   out->cr();
 835   if (is_initialized()) {
 836     //  Dump out the static final fields in case the compilation relies
 837     //  on their value for correct replay.
 838     StaticFinalFieldPrinter sffp(out, ik->name()->as_quoted_ascii());
 839     ik->do_local_static_fields(&sffp);
 840   }
 841 }
 842 
 843 #ifdef ASSERT
 844 bool ciInstanceKlass::debug_final_field_at(int offset) {
 845   GUARDED_VM_ENTRY(
 846     InstanceKlass* ik = get_instanceKlass();
 847     fieldDescriptor fd;
 848     if (ik->find_field_from_offset(offset, false, &fd)) {
 849       return fd.is_final();
 850     }
 851   );
 852   return false;
 853 }
 854 
 855 bool ciInstanceKlass::debug_stable_field_at(int offset) {
 856   GUARDED_VM_ENTRY(
 857     InstanceKlass* ik = get_instanceKlass();
 858     fieldDescriptor fd;
 859     if (ik->find_field_from_offset(offset, false, &fd)) {
 860       return fd.is_stable();
 861     }
 862   );
 863   return false;
 864 }
 865 #endif
--- EOF ---