/*

 * Copyright (c) 2012, 2019, Oracle and/or its affiliates. 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 Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 *

 */

// A ClassLoaderData identifies the full set of class types that a class

// loader's name resolution strategy produces for a given configuration of the

// class loader.

// Class types in the ClassLoaderData may be defined by from class file binaries

// provided by the class loader, or from other class loader it interacts with

// according to its name resolution strategy.

//

// Class loaders that implement a deterministic name resolution strategy

// (including with respect to their delegation behavior), such as the boot, the

// platform, and the system loaders of the JDK's built-in class loader

// hierarchy, always produce the same linkset for a given configuration.

//

// ClassLoaderData carries information related to a linkset (e.g.,

// metaspace holding its klass definitions).

// The System Dictionary and related data structures (e.g., placeholder table,

// loader constraints table) as well as the runtime representation of classes

// only reference ClassLoaderData.

//

// Instances of java.lang.ClassLoader holds a pointer to a ClassLoaderData that

// that represent the loader's "linking domain" in the JVM.

//

// The bootstrap loader (represented by NULL) also has a ClassLoaderData,

// the singleton class the_null_class_loader_data().

#include "precompiled.hpp"

#include "classfile/classLoaderData.inline.hpp"

#include "classfile/classLoaderDataGraph.inline.hpp"

#include "classfile/dictionary.hpp"

#include "classfile/javaClasses.hpp"

#include "classfile/moduleEntry.hpp"

#include "classfile/packageEntry.hpp"

#include "classfile/symbolTable.hpp"

#include "classfile/systemDictionary.hpp"

#include "logging/log.hpp"

#include "logging/logStream.hpp"

#include "memory/allocation.inline.hpp"

#include "memory/metadataFactory.hpp"

#include "memory/resourceArea.hpp"

#include "oops/access.inline.hpp"

#include "oops/oop.inline.hpp"

#include "oops/oopHandle.inline.hpp"

#include "oops/weakHandle.inline.hpp"

#include "runtime/atomic.hpp"

#include "runtime/handles.inline.hpp"

#include "runtime/mutex.hpp"

#include "runtime/orderAccess.hpp"

#include "runtime/safepoint.hpp"

#include "utilities/growableArray.hpp"

#include "utilities/macros.hpp"

#include "utilities/ostream.hpp"

ClassLoaderData * ClassLoaderData::_the_null_class_loader_data = NULL;

void ClassLoaderData::init_null_class_loader_data() {

  assert(_the_null_class_loader_data == NULL, "cannot initialize twice");

  assert(ClassLoaderDataGraph::_head == NULL, "cannot initialize twice");

  _the_null_class_loader_data = new ClassLoaderData(Handle(), false);

  ClassLoaderDataGraph::_head = _the_null_class_loader_data;

  assert(_the_null_class_loader_data->is_the_null_class_loader_data(), "Must be");

  LogTarget(Trace, class, loader, data) lt;

  if (lt.is_enabled()) {

    ResourceMark rm;

    LogStream ls(lt);

    ls.print("create ");

    _the_null_class_loader_data->print_value_on(&ls);

    ls.cr();

  }

}

// Obtain and set the class loader's name within the ClassLoaderData so

// it will be available for error messages, logging, JFR, etc.  The name

// and klass are available after the class_loader oop is no longer alive,

// during unloading.

void ClassLoaderData::initialize_name(Handle class_loader) {

  Thread* THREAD = Thread::current();

  ResourceMark rm(THREAD);

  // Obtain the class loader's name.  If the class loader's name was not

  // explicitly set during construction, the CLD's _name field will be null.

  oop cl_name = java_lang_ClassLoader::name(class_loader());

  if (cl_name != NULL) {

    const char* cl_instance_name = java_lang_String::as_utf8_string(cl_name);

    if (cl_instance_name != NULL && cl_instance_name[0] != '\0') {

      _name = SymbolTable::new_symbol(cl_instance_name);

    }

  }

  // Obtain the class loader's name and identity hash.  If the class loader's

  // name was not explicitly set during construction, the class loader's name and id

  // will be set to the qualified class name of the class loader along with its

  // identity hash.

  // If for some reason the ClassLoader's constructor has not been run, instead of

  // leaving the _name_and_id field null, fall back to the external qualified class

  // name.  Thus CLD's _name_and_id field should never have a null value.

  oop cl_name_and_id = java_lang_ClassLoader::nameAndId(class_loader());

  const char* cl_instance_name_and_id =

                  (cl_name_and_id == NULL) ? _class_loader_klass->external_name() :

                                             java_lang_String::as_utf8_string(cl_name_and_id);

  assert(cl_instance_name_and_id != NULL && cl_instance_name_and_id[0] != '\0', "class loader has no name and id");

  _name_and_id = SymbolTable::new_symbol(cl_instance_name_and_id);

}

ClassLoaderData::ClassLoaderData(Handle h_class_loader, bool is_unsafe_anonymous) :

  _metaspace(NULL),

  _metaspace_lock(new Mutex(Mutex::leaf+1, "Metaspace allocation lock", true,

                            Mutex::_safepoint_check_never)),

  _unloading(false), _is_unsafe_anonymous(is_unsafe_anonymous),

  _modified_oops(true), _accumulated_modified_oops(false),

  // An unsafe anonymous class loader data doesn't have anything to keep

  // it from being unloaded during parsing of the unsafe anonymous class.

  // The null-class-loader should always be kept alive.

  _keep_alive((is_unsafe_anonymous || h_class_loader.is_null()) ? 1 : 0),

  _claim(0),

  _handles(),

  _klasses(NULL), _packages(NULL), _modules(NULL), _unnamed_module(NULL), _dictionary(NULL),

  _jmethod_ids(NULL),

  _deallocate_list(NULL),

  _next(NULL),

  _class_loader_klass(NULL), _name(NULL), _name_and_id(NULL) {

  if (!h_class_loader.is_null()) {

    _class_loader = _handles.add(h_class_loader());

    _class_loader_klass = h_class_loader->klass();

    initialize_name(h_class_loader);

  }

  if (!is_unsafe_anonymous) {

    // The holder is initialized later for unsafe anonymous classes, and before calling anything

    // that call class_loader().

    initialize_holder(h_class_loader);

    // A ClassLoaderData created solely for an unsafe anonymous class should never have a

    // ModuleEntryTable or PackageEntryTable created for it. The defining package

    // and module for an unsafe anonymous class will be found in its host class.

    _packages = new PackageEntryTable(PackageEntryTable::_packagetable_entry_size);

    if (h_class_loader.is_null()) {

      // Create unnamed module for boot loader

      _unnamed_module = ModuleEntry::create_boot_unnamed_module(this);

    } else {

      // Create unnamed module for all other loaders

      _unnamed_module = ModuleEntry::create_unnamed_module(this);

    }

    _dictionary = create_dictionary();

  }

  NOT_PRODUCT(_dependency_count = 0); // number of class loader dependencies

  JFR_ONLY(INIT_ID(this);)

}

ClassLoaderData::ChunkedHandleList::~ChunkedHandleList() {

  Chunk* c = _head;

  while (c != NULL) {

    Chunk* next = c->_next;

    delete c;

    c = next;

  }

}

oop* ClassLoaderData::ChunkedHandleList::add(oop o) {

  if (_head == NULL || _head->_size == Chunk::CAPACITY) {

    Chunk* next = new Chunk(_head);

    OrderAccess::release_store(&_head, next);

  }

  oop* handle = &_head->_data[_head->_size];

  NativeAccess<IS_DEST_UNINITIALIZED>::oop_store(handle, o);

  OrderAccess::release_store(&_head->_size, _head->_size + 1);

  return handle;

}

int ClassLoaderData::ChunkedHandleList::count() const {

  int count = 0;

  Chunk* chunk = _head;

  while (chunk != NULL) {

    count += chunk->_size;

    chunk = chunk->_next;

  }

  return count;

}

inline void ClassLoaderData::ChunkedHandleList::oops_do_chunk(OopClosure* f, Chunk* c, const juint size) {

  for (juint i = 0; i < size; i++) {

    if (c->_data[i] != NULL) {

      f->do_oop(&c->_data[i]);

    }

  }

}

void ClassLoaderData::ChunkedHandleList::oops_do(OopClosure* f) {

  Chunk* head = OrderAccess::load_acquire(&_head);

  if (head != NULL) {

    // Must be careful when reading size of head

    oops_do_chunk(f, head, OrderAccess::load_acquire(&head->_size));

    for (Chunk* c = head->_next; c != NULL; c = c->_next) {

      oops_do_chunk(f, c, c->_size);

    }

  }

}

class VerifyContainsOopClosure : public OopClosure {

  oop  _target;

  bool _found;

 public:

  VerifyContainsOopClosure(oop target) : _target(target), _found(false) {}

  void do_oop(oop* p) {

    if (p != NULL && NativeAccess<AS_NO_KEEPALIVE>::oop_load(p) == _target) {

      _found = true;

    }

  }

  void do_oop(narrowOop* p) {

    // The ChunkedHandleList should not contain any narrowOop

    ShouldNotReachHere();

  }

  bool found() const {

    return _found;

  }

};

bool ClassLoaderData::ChunkedHandleList::contains(oop p) {

  VerifyContainsOopClosure cl(p);

  oops_do(&cl);

  return cl.found();

}

#ifndef PRODUCT

bool ClassLoaderData::ChunkedHandleList::owner_of(oop* oop_handle) {

  Chunk* chunk = _head;

  while (chunk != NULL) {

    if (&(chunk->_data[0]) <= oop_handle && oop_handle < &(chunk->_data[chunk->_size])) {

      return true;

    }

    chunk = chunk->_next;

  }

  return false;

}

#endif // PRODUCT

void ClassLoaderData::clear_claim(int claim) {

  for (;;) {

    int old_claim = Atomic::load(&_claim);

    if ((old_claim & claim) == 0) {

      return;

    }

    int new_claim = old_claim & ~claim;

    if (Atomic::cmpxchg(new_claim, &_claim, old_claim) == old_claim) {

      return;

    }

  }

}

bool ClassLoaderData::try_claim(int claim) {

  for (;;) {

    int old_claim = Atomic::load(&_claim);

    if ((old_claim & claim) == claim) {

      return false;

    }

    int new_claim = old_claim | claim;

    if (Atomic::cmpxchg(new_claim, &_claim, old_claim) == old_claim) {

      return true;

    }

  }

}

// Unsafe anonymous classes have their own ClassLoaderData that is marked to keep alive

// while the class is being parsed, and if the class appears on the module fixup list.

// Due to the uniqueness that no other class shares the unsafe anonymous class' name or

// ClassLoaderData, no other non-GC thread has knowledge of the unsafe anonymous class while

// it is being defined, therefore _keep_alive is not volatile or atomic.

void ClassLoaderData::inc_keep_alive() {

  if (is_unsafe_anonymous()) {

    assert(_keep_alive > 0, "Invalid keep alive increment count");

    _keep_alive++;

  }

}

void ClassLoaderData::dec_keep_alive() {

  if (is_unsafe_anonymous()) {

    assert(_keep_alive > 0, "Invalid keep alive decrement count");

    _keep_alive--;

  }

}

void ClassLoaderData::oops_do(OopClosure* f, int claim_value, bool clear_mod_oops) {

  if (claim_value != ClassLoaderData::_claim_none && !try_claim(claim_value)) {

    return;

  }

  // Only clear modified_oops after the ClassLoaderData is claimed.

  if (clear_mod_oops) {

    clear_modified_oops();

  }

  _handles.oops_do(f);

}

void ClassLoaderData::classes_do(KlassClosure* klass_closure) {

  // Lock-free access requires load_acquire

  for (Klass* k = OrderAccess::load_acquire(&_klasses); k != NULL; k = k->next_link()) {

    klass_closure->do_klass(k);

    assert(k != k->next_link(), "no loops!");

  }

}

void ClassLoaderData::classes_do(void f(Klass * const)) {

  // Lock-free access requires load_acquire

  for (Klass* k = OrderAccess::load_acquire(&_klasses); k != NULL; k = k->next_link()) {

    f(k);

    assert(k != k->next_link(), "no loops!");

  }

}

void ClassLoaderData::methods_do(void f(Method*)) {

  // Lock-free access requires load_acquire

  for (Klass* k = OrderAccess::load_acquire(&_klasses); k != NULL; k = k->next_link()) {

    if (k->is_instance_klass() && InstanceKlass::cast(k)->is_loaded()) {

      InstanceKlass::cast(k)->methods_do(f);

    }

  }

}

void ClassLoaderData::loaded_classes_do(KlassClosure* klass_closure) {

  // Lock-free access requires load_acquire

  for (Klass* k = OrderAccess::load_acquire(&_klasses); k != NULL; k = k->next_link()) {

    // Do not filter ArrayKlass oops here...

    if (k->is_array_klass() || (k->is_instance_klass() && InstanceKlass::cast(k)->is_loaded())) {

#ifdef ASSERT

      oop m = k->java_mirror();

      assert(m != NULL, "NULL mirror");

      assert(m->is_a(SystemDictionary::Class_klass()), "invalid mirror");

#endif

      klass_closure->do_klass(k);

    }

  }

}

void ClassLoaderData::classes_do(void f(InstanceKlass*)) {

  // Lock-free access requires load_acquire

  for (Klass* k = OrderAccess::load_acquire(&_klasses); k != NULL; k = k->next_link()) {

    if (k->is_instance_klass()) {

      f(InstanceKlass::cast(k));

    }

    assert(k != k->next_link(), "no loops!");

  }

}

void ClassLoaderData::modules_do(void f(ModuleEntry*)) {

  assert_locked_or_safepoint(Module_lock);

  if (_unnamed_module != NULL) {

    f(_unnamed_module);

  }

  if (_modules != NULL) {

    for (int i = 0; i < _modules->table_size(); i++) {

      for (ModuleEntry* entry = _modules->bucket(i);

           entry != NULL;

           entry = entry->next()) {

        f(entry);

      }

    }

  }

}

void ClassLoaderData::packages_do(void f(PackageEntry*)) {

  assert_locked_or_safepoint(Module_lock);

  if (_packages != NULL) {

    for (int i = 0; i < _packages->table_size(); i++) {

      for (PackageEntry* entry = _packages->bucket(i);

           entry != NULL;

           entry = entry->next()) {

        f(entry);

      }

    }

  }

}

void ClassLoaderData::record_dependency(const Klass* k) {

  assert(k != NULL, "invariant");

  ClassLoaderData * const from_cld = this;

  ClassLoaderData * const to_cld = k->class_loader_data();

  // Do not need to record dependency if the dependency is to a class whose

  // class loader data is never freed.  (i.e. the dependency's class loader

  // is one of the three builtin class loaders and the dependency is not

  // unsafe anonymous.)

  if (to_cld->is_permanent_class_loader_data()) {

    return;

  }

  oop to;

  if (to_cld->is_unsafe_anonymous()) {

    // Just return if an unsafe anonymous class is attempting to record a dependency

    // to itself.  (Note that every unsafe anonymous class has its own unique class

    // loader data.)

    if (to_cld == from_cld) {

      return;

    }

    // Unsafe anonymous class dependencies are through the mirror.

    to = k->java_mirror();

  } else {

    to = to_cld->class_loader();

    oop from = from_cld->class_loader();

    // Just return if this dependency is to a class with the same or a parent

    // class_loader.

    if (from == to || java_lang_ClassLoader::isAncestor(from, to)) {

      return; // this class loader is in the parent list, no need to add it.

    }

  }

  // It's a dependency we won't find through GC, add it.

  if (!_handles.contains(to)) {

    NOT_PRODUCT(Atomic::inc(&_dependency_count));

    LogTarget(Trace, class, loader, data) lt;

    if (lt.is_enabled()) {

      ResourceMark rm;

      LogStream ls(lt);

      ls.print("adding dependency from ");

      print_value_on(&ls);

      ls.print(" to ");

      to_cld->print_value_on(&ls);

      ls.cr();

    }

    Handle dependency(Thread::current(), to);

    add_handle(dependency);

    // Added a potentially young gen oop to the ClassLoaderData

    record_modified_oops();

  }

}

void ClassLoaderData::add_class(Klass* k, bool publicize /* true */) {

  {

    MutexLocker ml(metaspace_lock(), Mutex::_no_safepoint_check_flag);

    Klass* old_value = _klasses;

    k->set_next_link(old_value);

    // Link the new item into the list, making sure the linked class is stable

    // since the list can be walked without a lock

    OrderAccess::release_store(&_klasses, k);

    if (k->is_array_klass()) {

      ClassLoaderDataGraph::inc_array_classes(1);

    } else {

      ClassLoaderDataGraph::inc_instance_classes(1);

    }

  }

  if (publicize) {

    LogTarget(Trace, class, loader, data) lt;

    if (lt.is_enabled()) {

      ResourceMark rm;

      LogStream ls(lt);

      ls.print("Adding k: " PTR_FORMAT " %s to ", p2i(k), k->external_name());

      print_value_on(&ls);

      ls.cr();

    }

  }

}

void ClassLoaderData::initialize_holder(Handle loader_or_mirror) {

  if (loader_or_mirror() != NULL) {

    assert(_holder.is_null(), "never replace holders");