--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hotspot/src/share/vm/oops/constantPoolKlass.cpp	Sat Dec 01 00:00:00 2007 +0000
@@ -0,0 +1,439 @@
+/*
+ * Copyright 1997-2006 Sun Microsystems, Inc.  All Rights Reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
+ * CA 95054 USA or visit www.sun.com if you need additional information or
+ * have any questions.
+ *
+ */
+
+# include "incls/_precompiled.incl"
+# include "incls/_constantPoolKlass.cpp.incl"
+
+constantPoolOop constantPoolKlass::allocate(int length, TRAPS) {
+  int size = constantPoolOopDesc::object_size(length);
+  KlassHandle klass (THREAD, as_klassOop());
+  constantPoolOop c =
+    (constantPoolOop)CollectedHeap::permanent_array_allocate(klass, size, length, CHECK_NULL);
+
+  c->set_tags(NULL);
+  c->set_cache(NULL);
+  c->set_pool_holder(NULL);
+  // only set to non-zero if constant pool is merged by RedefineClasses
+  c->set_orig_length(0);
+  // all fields are initialized; needed for GC
+
+  // initialize tag array
+  // Note: cannot introduce constant pool handle before since it is not
+  //       completely initialized (no class) -> would cause assertion failure
+  constantPoolHandle pool (THREAD, c);
+  typeArrayOop t_oop = oopFactory::new_permanent_byteArray(length, CHECK_NULL);
+  typeArrayHandle tags (THREAD, t_oop);
+  for (int index = 0; index < length; index++) {
+    tags()->byte_at_put(index, JVM_CONSTANT_Invalid);
+  }
+  pool->set_tags(tags());
+
+  return pool();
+}
+
+klassOop constantPoolKlass::create_klass(TRAPS) {
+  constantPoolKlass o;
+  KlassHandle klassklass(THREAD, Universe::arrayKlassKlassObj());
+  arrayKlassHandle k = base_create_array_klass(o.vtbl_value(), header_size(), klassklass, CHECK_NULL);
+  arrayKlassHandle super (THREAD, k->super());
+  complete_create_array_klass(k, super, CHECK_NULL);
+  return k();
+}
+
+
+int constantPoolKlass::oop_size(oop obj) const {
+  assert(obj->is_constantPool(), "must be constantPool");
+  return constantPoolOop(obj)->object_size();
+}
+
+
+void constantPoolKlass::oop_follow_contents(oop obj) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  constantPoolOop cp = (constantPoolOop) obj;
+  // Performance tweak: We skip iterating over the klass pointer since we
+  // know that Universe::constantPoolKlassObj never moves.
+
+  // If the tags array is null we are in the middle of allocating this constant pool
+  if (cp->tags() != NULL) {
+    // gc of constant pool contents
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i < cp->length(); i++) {
+      if (cp->is_pointer_entry(i)) {
+        if (*base != NULL) MarkSweep::mark_and_push(base);
+      }
+      base++;
+    }
+    // gc of constant pool instance variables
+    MarkSweep::mark_and_push(cp->tags_addr());
+    MarkSweep::mark_and_push(cp->cache_addr());
+    MarkSweep::mark_and_push(cp->pool_holder_addr());
+  }
+}
+
+#ifndef SERIALGC
+void constantPoolKlass::oop_follow_contents(ParCompactionManager* cm,
+                                            oop obj) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  constantPoolOop cp = (constantPoolOop) obj;
+  // Performance tweak: We skip iterating over the klass pointer since we
+  // know that Universe::constantPoolKlassObj never moves.
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    // gc of constant pool contents
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i < cp->length(); i++) {
+      if (cp->is_pointer_entry(i)) {
+        if (*base != NULL) PSParallelCompact::mark_and_push(cm, base);
+      }
+      base++;
+    }
+    // gc of constant pool instance variables
+    PSParallelCompact::mark_and_push(cm, cp->tags_addr());
+    PSParallelCompact::mark_and_push(cm, cp->cache_addr());
+    PSParallelCompact::mark_and_push(cm, cp->pool_holder_addr());
+  }
+}
+#endif // SERIALGC
+
+
+int constantPoolKlass::oop_adjust_pointers(oop obj) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  constantPoolOop cp = (constantPoolOop) obj;
+  // Get size before changing pointers.
+  // Don't call size() or oop_size() since that is a virtual call.
+  int size = cp->object_size();
+  // Performance tweak: We skip iterating over the klass pointer since we
+  // know that Universe::constantPoolKlassObj never moves.
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i< cp->length();  i++) {
+      if (cp->is_pointer_entry(i)) {
+        MarkSweep::adjust_pointer(base);
+      }
+      base++;
+    }
+  }
+  MarkSweep::adjust_pointer(cp->tags_addr());
+  MarkSweep::adjust_pointer(cp->cache_addr());
+  MarkSweep::adjust_pointer(cp->pool_holder_addr());
+  return size;
+}
+
+
+int constantPoolKlass::oop_oop_iterate(oop obj, OopClosure* blk) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  // Performance tweak: We skip iterating over the klass pointer since we
+  // know that Universe::constantPoolKlassObj never moves.
+  constantPoolOop cp = (constantPoolOop) obj;
+  // Get size before changing pointers.
+  // Don't call size() or oop_size() since that is a virtual call.
+  int size = cp->object_size();
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i < cp->length(); i++) {
+      if (cp->is_pointer_entry(i)) {
+        blk->do_oop(base);
+      }
+      base++;
+    }
+  }
+  blk->do_oop(cp->tags_addr());
+  blk->do_oop(cp->cache_addr());
+  blk->do_oop(cp->pool_holder_addr());
+  return size;
+}
+
+
+int constantPoolKlass::oop_oop_iterate_m(oop obj, OopClosure* blk, MemRegion mr) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  // Performance tweak: We skip iterating over the klass pointer since we
+  // know that Universe::constantPoolKlassObj never moves.
+  constantPoolOop cp = (constantPoolOop) obj;
+  // Get size before changing pointers.
+  // Don't call size() or oop_size() since that is a virtual call.
+  int size = cp->object_size();
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i < cp->length(); i++) {
+      if (mr.contains(base)) {
+        if (cp->is_pointer_entry(i)) {
+          blk->do_oop(base);
+        }
+      }
+      base++;
+    }
+  }
+  oop* addr;
+  addr = cp->tags_addr();
+  blk->do_oop(addr);
+  addr = cp->cache_addr();
+  blk->do_oop(addr);
+  addr = cp->pool_holder_addr();
+  blk->do_oop(addr);
+  return size;
+}
+
+#ifndef SERIALGC
+int constantPoolKlass::oop_update_pointers(ParCompactionManager* cm, oop obj) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  constantPoolOop cp = (constantPoolOop) obj;
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i < cp->length(); ++i, ++base) {
+      if (cp->is_pointer_entry(i)) {
+        PSParallelCompact::adjust_pointer(base);
+      }
+    }
+  }
+  PSParallelCompact::adjust_pointer(cp->tags_addr());
+  PSParallelCompact::adjust_pointer(cp->cache_addr());
+  PSParallelCompact::adjust_pointer(cp->pool_holder_addr());
+  return cp->object_size();
+}
+
+int
+constantPoolKlass::oop_update_pointers(ParCompactionManager* cm, oop obj,
+                                       HeapWord* beg_addr, HeapWord* end_addr) {
+  assert (obj->is_constantPool(), "obj must be constant pool");
+  constantPoolOop cp = (constantPoolOop) obj;
+
+  // If the tags array is null we are in the middle of allocating this constant
+  // pool.
+  if (cp->tags() != NULL) {
+    oop* base = (oop*)cp->base();
+    oop* const beg_oop = MAX2((oop*)beg_addr, base);
+    oop* const end_oop = MIN2((oop*)end_addr, base + cp->length());
+    const size_t beg_idx = pointer_delta(beg_oop, base, sizeof(oop*));
+    const size_t end_idx = pointer_delta(end_oop, base, sizeof(oop*));
+    for (size_t cur_idx = beg_idx; cur_idx < end_idx; ++cur_idx, ++base) {
+      if (cp->is_pointer_entry(int(cur_idx))) {
+        PSParallelCompact::adjust_pointer(base);
+      }
+    }
+  }
+
+  oop* p;
+  p = cp->tags_addr();
+  PSParallelCompact::adjust_pointer(p, beg_addr, end_addr);
+  p = cp->cache_addr();
+  PSParallelCompact::adjust_pointer(p, beg_addr, end_addr);
+  p = cp->pool_holder_addr();
+  PSParallelCompact::adjust_pointer(p, beg_addr, end_addr);
+
+  return cp->object_size();
+}
+
+void constantPoolKlass::oop_copy_contents(PSPromotionManager* pm, oop obj) {
+  assert(obj->is_constantPool(), "should be constant pool");
+}
+
+void constantPoolKlass::oop_push_contents(PSPromotionManager* pm, oop obj) {
+  assert(obj->is_constantPool(), "should be constant pool");
+}
+#endif // SERIALGC
+
+#ifndef PRODUCT
+
+// Printing
+
+void constantPoolKlass::oop_print_on(oop obj, outputStream* st) {
+  EXCEPTION_MARK;
+  oop anObj;
+  assert(obj->is_constantPool(), "must be constantPool");
+  arrayKlass::oop_print_on(obj, st);
+  constantPoolOop cp = constantPoolOop(obj);
+
+  // Temp. remove cache so we can do lookups with original indicies.
+  constantPoolCacheHandle cache (THREAD, cp->cache());
+  cp->set_cache(NULL);
+
+  for (int index = 1; index < cp->length(); index++) {      // Index 0 is unused
+    st->print(" - %3d : ", index);
+    cp->tag_at(index).print_on(st);
+    st->print(" : ");
+    switch (cp->tag_at(index).value()) {
+      case JVM_CONSTANT_Class :
+        { anObj = cp->klass_at(index, CATCH);
+          anObj->print_value_on(st);
+          st->print(" {0x%lx}", (address)anObj);
+        }
+        break;
+      case JVM_CONSTANT_Fieldref :
+      case JVM_CONSTANT_Methodref :
+      case JVM_CONSTANT_InterfaceMethodref :
+        st->print("klass_index=%d", cp->klass_ref_index_at(index));
+        st->print(" name_and_type_index=%d", cp->name_and_type_ref_index_at(index));
+        break;
+      case JVM_CONSTANT_UnresolvedString :
+      case JVM_CONSTANT_String :
+        anObj = cp->string_at(index, CATCH);
+        anObj->print_value_on(st);
+        st->print(" {0x%lx}", (address)anObj);
+        break;
+      case JVM_CONSTANT_Integer :
+        st->print("%d", cp->int_at(index));
+        break;
+      case JVM_CONSTANT_Float :
+        st->print("%f", cp->float_at(index));
+        break;
+      case JVM_CONSTANT_Long :
+        st->print_jlong(cp->long_at(index));
+        index++;   // Skip entry following eigth-byte constant
+        break;
+      case JVM_CONSTANT_Double :
+        st->print("%lf", cp->double_at(index));
+        index++;   // Skip entry following eigth-byte constant
+        break;
+      case JVM_CONSTANT_NameAndType :
+        st->print("name_index=%d", cp->name_ref_index_at(index));
+        st->print(" signature_index=%d", cp->signature_ref_index_at(index));
+        break;
+      case JVM_CONSTANT_Utf8 :
+        cp->symbol_at(index)->print_value_on(st);
+        break;
+      case JVM_CONSTANT_UnresolvedClass :               // fall-through
+      case JVM_CONSTANT_UnresolvedClassInError: {
+        // unresolved_klass_at requires lock or safe world.
+        oop entry = *cp->obj_at_addr(index);
+        entry->print_value_on(st);
+        }
+        break;
+      default:
+        ShouldNotReachHere();
+        break;
+    }
+    st->cr();
+  }
+  st->cr();
+
+  // Restore cache
+  cp->set_cache(cache());
+}
+
+
+#endif
+
+const char* constantPoolKlass::internal_name() const {
+  return "{constant pool}";
+}
+
+// Verification
+
+void constantPoolKlass::oop_verify_on(oop obj, outputStream* st) {
+  Klass::oop_verify_on(obj, st);
+  guarantee(obj->is_constantPool(), "object must be constant pool");
+  constantPoolOop cp = constantPoolOop(obj);
+  guarantee(cp->is_perm(), "should be in permspace");
+  if (!cp->partially_loaded()) {
+    oop* base = (oop*)cp->base();
+    for (int i = 0; i< cp->length();  i++) {
+      if (cp->tag_at(i).is_klass()) {
+        guarantee((*base)->is_perm(),     "should be in permspace");
+        guarantee((*base)->is_klass(),    "should be klass");
+      }
+      if (cp->tag_at(i).is_unresolved_klass()) {
+        guarantee((*base)->is_perm(),     "should be in permspace");
+        guarantee((*base)->is_symbol() || (*base)->is_klass(),
+                  "should be symbol or klass");
+      }
+      if (cp->tag_at(i).is_symbol()) {
+        guarantee((*base)->is_perm(),     "should be in permspace");
+        guarantee((*base)->is_symbol(),   "should be symbol");
+      }
+      if (cp->tag_at(i).is_unresolved_string()) {
+        guarantee((*base)->is_perm(),     "should be in permspace");
+        guarantee((*base)->is_symbol() || (*base)->is_instance(),
+                  "should be symbol or instance");
+      }
+      if (cp->tag_at(i).is_string()) {
+        guarantee((*base)->is_perm(),     "should be in permspace");
+        guarantee((*base)->is_instance(), "should be instance");
+      }
+      base++;
+    }
+    guarantee(cp->tags()->is_perm(),         "should be in permspace");
+    guarantee(cp->tags()->is_typeArray(),    "should be type array");
+    if (cp->cache() != NULL) {
+      // Note: cache() can be NULL before a class is completely setup or
+      // in temporary constant pools used during constant pool merging
+      guarantee(cp->cache()->is_perm(),              "should be in permspace");
+      guarantee(cp->cache()->is_constantPoolCache(), "should be constant pool cache");
+    }
+    if (cp->pool_holder() != NULL) {
+      // Note: pool_holder() can be NULL in temporary constant pools
+      // used during constant pool merging
+      guarantee(cp->pool_holder()->is_perm(),  "should be in permspace");
+      guarantee(cp->pool_holder()->is_klass(), "should be klass");
+    }
+  }
+}
+
+bool constantPoolKlass::oop_partially_loaded(oop obj) const {
+  assert(obj->is_constantPool(), "object must be constant pool");
+  constantPoolOop cp = constantPoolOop(obj);
+  return cp->tags() == NULL || cp->pool_holder() == (klassOop) cp;   // Check whether pool holder points to self
+}
+
+
+void constantPoolKlass::oop_set_partially_loaded(oop obj) {
+  assert(obj->is_constantPool(), "object must be constant pool");
+  constantPoolOop cp = constantPoolOop(obj);
+  assert(cp->pool_holder() == NULL, "just checking");
+  cp->set_pool_holder((klassOop) cp);   // Temporarily set pool holder to point to self
+}
+
+#ifndef PRODUCT
+// CompileTheWorld support. Preload all classes loaded references in the passed in constantpool
+void constantPoolKlass::preload_and_initialize_all_classes(oop obj, TRAPS) {
+  guarantee(obj->is_constantPool(), "object must be constant pool");
+  constantPoolHandle cp(THREAD, (constantPoolOop)obj);
+  guarantee(!cp->partially_loaded(), "must be fully loaded");
+
+  for (int i = 0; i< cp->length();  i++) {
+    if (cp->tag_at(i).is_unresolved_klass()) {
+      // This will force loading of the class
+      klassOop klass = cp->klass_at(i, CHECK);
+      if (klass->is_instance()) {
+        // Force initialization of class
+        instanceKlass::cast(klass)->initialize(CHECK);
+      }
+    }
+  }
+}
+
+#endif