/*

 * Copyright (c) 2011, 2016, 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.

 */

#include "precompiled.hpp"

#include "classfile/javaClasses.inline.hpp"

#include "code/codeCache.hpp"

#include "code/scopeDesc.hpp"

#include "interpreter/linkResolver.hpp"

#include "memory/oopFactory.hpp"

#include "memory/resourceArea.hpp"

#include "oops/generateOopMap.hpp"

#include "oops/fieldStreams.hpp"

#include "oops/oop.inline.hpp"

#include "oops/objArrayOop.inline.hpp"

#include "runtime/fieldDescriptor.hpp"

#include "runtime/javaCalls.hpp"

#include "jvmci/jvmciRuntime.hpp"

#include "compiler/abstractCompiler.hpp"

#include "compiler/compileBroker.hpp"

#include "compiler/compilerOracle.hpp"

#include "compiler/disassembler.hpp"

#include "compiler/oopMap.hpp"

#include "jvmci/jvmciCompilerToVM.hpp"

#include "jvmci/jvmciCompiler.hpp"

#include "jvmci/jvmciEnv.hpp"

#include "jvmci/jvmciJavaClasses.hpp"

#include "jvmci/jvmciCodeInstaller.hpp"

#include "jvmci/vmStructs_jvmci.hpp"

#include "gc/g1/heapRegion.hpp"

#include "runtime/javaCalls.hpp"

#include "runtime/deoptimization.hpp"

#include "runtime/timerTrace.hpp"

#include "runtime/vframe.hpp"

#include "runtime/vframe_hp.hpp"

#include "runtime/vmStructs.hpp"

// Entry to native method implementation that transitions current thread to '_thread_in_vm'.

#define C2V_VMENTRY(result_type, name, signature) \

  JNIEXPORT result_type JNICALL c2v_ ## name signature { \

  TRACE_jvmci_1("CompilerToVM::" #name); \

  TRACE_CALL(result_type, jvmci_ ## name signature) \

  JVMCI_VM_ENTRY_MARK; \

#define C2V_END }

oop CompilerToVM::get_jvmci_method(const methodHandle& method, TRAPS) {

  if (method() != NULL) {

    JavaValue result(T_OBJECT);

    JavaCallArguments args;

    args.push_long((jlong) (address) method());

    JavaCalls::call_static(&result, SystemDictionary::HotSpotResolvedJavaMethodImpl_klass(), vmSymbols::fromMetaspace_name(), vmSymbols::method_fromMetaspace_signature(), &args, CHECK_NULL);

    return (oop)result.get_jobject();

  }

  return NULL;

}

oop CompilerToVM::get_jvmci_type(KlassHandle klass, TRAPS) {

  if (klass() != NULL) {

    JavaValue result(T_OBJECT);

    JavaCallArguments args;

    args.push_oop(klass->java_mirror());

    JavaCalls::call_static(&result, SystemDictionary::HotSpotResolvedObjectTypeImpl_klass(), vmSymbols::fromMetaspace_name(), vmSymbols::klass_fromMetaspace_signature(), &args, CHECK_NULL);

    return (oop)result.get_jobject();

  }

  return NULL;

}

int CompilerToVM::Data::Klass_vtable_start_offset;

int CompilerToVM::Data::Klass_vtable_length_offset;

int CompilerToVM::Data::Method_extra_stack_entries;

address CompilerToVM::Data::SharedRuntime_ic_miss_stub;

address CompilerToVM::Data::SharedRuntime_handle_wrong_method_stub;

address CompilerToVM::Data::SharedRuntime_deopt_blob_unpack;

address CompilerToVM::Data::SharedRuntime_deopt_blob_uncommon_trap;

size_t CompilerToVM::Data::ThreadLocalAllocBuffer_alignment_reserve;

CollectedHeap* CompilerToVM::Data::Universe_collectedHeap;

int CompilerToVM::Data::Universe_base_vtable_size;

address CompilerToVM::Data::Universe_narrow_oop_base;

int CompilerToVM::Data::Universe_narrow_oop_shift;

address CompilerToVM::Data::Universe_narrow_klass_base;

int CompilerToVM::Data::Universe_narrow_klass_shift;

void* CompilerToVM::Data::Universe_non_oop_bits;

uintptr_t CompilerToVM::Data::Universe_verify_oop_mask;

uintptr_t CompilerToVM::Data::Universe_verify_oop_bits;

bool       CompilerToVM::Data::_supports_inline_contig_alloc;

HeapWord** CompilerToVM::Data::_heap_end_addr;

HeapWord** CompilerToVM::Data::_heap_top_addr;

jbyte* CompilerToVM::Data::cardtable_start_address;

int CompilerToVM::Data::cardtable_shift;

int CompilerToVM::Data::vm_page_size;

address CompilerToVM::Data::dsin;

address CompilerToVM::Data::dcos;

address CompilerToVM::Data::dtan;

address CompilerToVM::Data::dexp;

address CompilerToVM::Data::dlog;

address CompilerToVM::Data::dlog10;

address CompilerToVM::Data::dpow;

void CompilerToVM::Data::initialize() {

  Klass_vtable_start_offset = in_bytes(Klass::vtable_start_offset());

  Klass_vtable_length_offset = in_bytes(Klass::vtable_length_offset());

  Method_extra_stack_entries = Method::extra_stack_entries();

  SharedRuntime_ic_miss_stub = SharedRuntime::get_ic_miss_stub();

  SharedRuntime_handle_wrong_method_stub = SharedRuntime::get_handle_wrong_method_stub();

  SharedRuntime_deopt_blob_unpack = SharedRuntime::deopt_blob()->unpack();

  SharedRuntime_deopt_blob_uncommon_trap = SharedRuntime::deopt_blob()->uncommon_trap();

  ThreadLocalAllocBuffer_alignment_reserve = ThreadLocalAllocBuffer::alignment_reserve();

  Universe_collectedHeap = Universe::heap();

  Universe_base_vtable_size = Universe::base_vtable_size();

  Universe_narrow_oop_base = Universe::narrow_oop_base();

  Universe_narrow_oop_shift = Universe::narrow_oop_shift();

  Universe_narrow_klass_base = Universe::narrow_klass_base();

  Universe_narrow_klass_shift = Universe::narrow_klass_shift();

  Universe_non_oop_bits = Universe::non_oop_word();

  Universe_verify_oop_mask = Universe::verify_oop_mask();

  Universe_verify_oop_bits = Universe::verify_oop_bits();

  _supports_inline_contig_alloc = Universe::heap()->supports_inline_contig_alloc();

  _heap_end_addr = _supports_inline_contig_alloc ? Universe::heap()->end_addr() : (HeapWord**) -1;

  _heap_top_addr = _supports_inline_contig_alloc ? Universe::heap()->top_addr() : (HeapWord**) -1;

  BarrierSet* bs = Universe::heap()->barrier_set();

  switch (bs->kind()) {

  case BarrierSet::CardTableModRef:

  case BarrierSet::CardTableForRS:

  case BarrierSet::CardTableExtension:

  case BarrierSet::G1SATBCT:

  case BarrierSet::G1SATBCTLogging: {

    jbyte* base = barrier_set_cast<CardTableModRefBS>(bs)->byte_map_base;

    assert(base != 0, "unexpected byte_map_base");

    cardtable_start_address = base;

    cardtable_shift = CardTableModRefBS::card_shift;

    break;

  }

  case BarrierSet::ModRef:

    cardtable_start_address = 0;

    cardtable_shift = 0;

    // No post barriers

    break;

  default:

    ShouldNotReachHere();

    break;

  }

  vm_page_size = os::vm_page_size();

#define SET_TRIGFUNC(name)                                      \

  if (StubRoutines::name() != NULL) {                           \

    name = StubRoutines::name();                                \

  } else {                                                      \

    name = CAST_FROM_FN_PTR(address, SharedRuntime::name);      \

  }

  SET_TRIGFUNC(dsin);

  SET_TRIGFUNC(dcos);

  SET_TRIGFUNC(dtan);

  SET_TRIGFUNC(dexp);

  SET_TRIGFUNC(dlog10);

  SET_TRIGFUNC(dlog);

  SET_TRIGFUNC(dpow);

#undef SET_TRIGFUNC

}

C2V_VMENTRY(jobjectArray, readConfiguration, (JNIEnv *env))

#define BOXED_LONG(name, value) oop name; do { jvalue p; p.j = (jlong) (value); name = java_lang_boxing_object::create(T_LONG, &p, CHECK_NULL);} while(0)

#define BOXED_DOUBLE(name, value) oop name; do { jvalue p; p.d = (jdouble) (value); name = java_lang_boxing_object::create(T_DOUBLE, &p, CHECK_NULL);} while(0)

  ResourceMark rm;

  HandleMark hm;

  CompilerToVM::Data::initialize();

  VMField::klass()->initialize(thread);

  VMFlag::klass()->initialize(thread);

  int len = JVMCIVMStructs::localHotSpotVMStructs_count();

  objArrayHandle vmFields = oopFactory::new_objArray(VMField::klass(), len, CHECK_NULL);

  for (int i = 0; i < len ; i++) {

    VMStructEntry vmField = JVMCIVMStructs::localHotSpotVMStructs[i];

    instanceHandle vmFieldObj = InstanceKlass::cast(VMField::klass())->allocate_instance_handle(CHECK_NULL);

    size_t name_buf_len = strlen(vmField.typeName) + strlen(vmField.fieldName) + 2 /* "::" */;

    char* name_buf = NEW_RESOURCE_ARRAY(char, name_buf_len + 1);

    sprintf(name_buf, "%s::%s", vmField.typeName, vmField.fieldName);

    Handle name = java_lang_String::create_from_str(name_buf, CHECK_NULL);

    Handle type = java_lang_String::create_from_str(vmField.typeString, CHECK_NULL);

    VMField::set_name(vmFieldObj, name());

    VMField::set_type(vmFieldObj, type());

    VMField::set_offset(vmFieldObj, vmField.offset);

    VMField::set_address(vmFieldObj, (jlong) vmField.address);

    if (vmField.isStatic) {

      if (strcmp(vmField.typeString, "bool") == 0) {

        BOXED_LONG(value, *(jbyte*) vmField.address);

        VMField::set_value(vmFieldObj, value);

      } else if (strcmp(vmField.typeString, "int") == 0 ||

                 strcmp(vmField.typeString, "jint") == 0) {

        BOXED_LONG(value, *(jint*) vmField.address);

        VMField::set_value(vmFieldObj, value);

      } else if (strcmp(vmField.typeString, "uint64_t") == 0) {

        BOXED_LONG(value, *(uint64_t*) vmField.address);

        VMField::set_value(vmFieldObj, value);

      } else if (strcmp(vmField.typeString, "address") == 0 ||

                 strcmp(vmField.typeString, "intptr_t") == 0 ||

                 strcmp(vmField.typeString, "uintptr_t") == 0 ||

                 strcmp(vmField.typeString, "size_t") == 0 ||

                 // All foo* types are addresses.

                 vmField.typeString[strlen(vmField.typeString) - 1] == '*') {

        BOXED_LONG(value, *((address*) vmField.address));

        VMField::set_value(vmFieldObj, value);

      } else {

        JVMCI_ERROR_NULL("VM field %s has unsupported type %s", name_buf, vmField.typeString);

      }

    }

    vmFields->obj_at_put(i, vmFieldObj());

  }

  len = JVMCIVMStructs::localHotSpotVMTypes_count();

  objArrayHandle vmTypes = oopFactory::new_objArray(SystemDictionary::Object_klass(), len * 2, CHECK_NULL);

  for (int i = 0; i < len ; i++) {

    VMTypeEntry vmType = JVMCIVMStructs::localHotSpotVMTypes[i];

    Handle name = java_lang_String::create_from_str(vmType.typeName, CHECK_NULL);

    BOXED_LONG(size, vmType.size);

    vmTypes->obj_at_put(i * 2, name());

    vmTypes->obj_at_put(i * 2 + 1, size);

  }

  int ints_len = JVMCIVMStructs::localHotSpotVMIntConstants_count();

  int longs_len = JVMCIVMStructs::localHotSpotVMLongConstants_count();

  len = ints_len + longs_len;

  objArrayHandle vmConstants = oopFactory::new_objArray(SystemDictionary::Object_klass(), len * 2, CHECK_NULL);

  int insert = 0;

  for (int i = 0; i < ints_len ; i++) {

    VMIntConstantEntry c = JVMCIVMStructs::localHotSpotVMIntConstants[i];

    Handle name = java_lang_String::create_from_str(c.name, CHECK_NULL);

    BOXED_LONG(value, c.value);

    vmConstants->obj_at_put(insert++, name());

    vmConstants->obj_at_put(insert++, value);

  }

  for (int i = 0; i < longs_len ; i++) {

    VMLongConstantEntry c = JVMCIVMStructs::localHotSpotVMLongConstants[i];

    Handle name = java_lang_String::create_from_str(c.name, CHECK_NULL);

    BOXED_LONG(value, c.value);

    vmConstants->obj_at_put(insert++, name());

    vmConstants->obj_at_put(insert++, value);

  }

  assert(insert == len * 2, "must be");

  len = JVMCIVMStructs::localHotSpotVMAddresses_count();

  objArrayHandle vmAddresses = oopFactory::new_objArray(SystemDictionary::Object_klass(), len * 2, CHECK_NULL);

  for (int i = 0; i < len ; i++) {

    VMAddressEntry a = JVMCIVMStructs::localHotSpotVMAddresses[i];

    Handle name = java_lang_String::create_from_str(a.name, CHECK_NULL);

    BOXED_LONG(value, a.value);

    vmAddresses->obj_at_put(i * 2, name());

    vmAddresses->obj_at_put(i * 2 + 1, value);

  }

  // The last entry is the null entry.

  len = (int) Flag::numFlags - 1;

  objArrayHandle vmFlags = oopFactory::new_objArray(VMFlag::klass(), len, CHECK_NULL);

  for (int i = 0; i < len; i++) {

    Flag* flag = &Flag::flags[i];

    instanceHandle vmFlagObj = InstanceKlass::cast(VMFlag::klass())->allocate_instance_handle(CHECK_NULL);

    Handle name = java_lang_String::create_from_str(flag->_name, CHECK_NULL);

    Handle type = java_lang_String::create_from_str(flag->_type, CHECK_NULL);

    VMFlag::set_name(vmFlagObj, name());

    VMFlag::set_type(vmFlagObj, type());

    if (flag->is_bool()) {

      BOXED_LONG(value, flag->get_bool());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_ccstr()) {

      Handle value = java_lang_String::create_from_str(flag->get_ccstr(), CHECK_NULL);

      VMFlag::set_value(vmFlagObj, value());

    } else if (flag->is_int()) {

      BOXED_LONG(value, flag->get_int());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_intx()) {

      BOXED_LONG(value, flag->get_intx());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_uint()) {

      BOXED_LONG(value, flag->get_uint());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_uint64_t()) {

      BOXED_LONG(value, flag->get_uint64_t());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_uintx()) {

      BOXED_LONG(value, flag->get_uintx());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_double()) {

      BOXED_DOUBLE(value, flag->get_double());

      VMFlag::set_value(vmFlagObj, value);

    } else if (flag->is_size_t()) {

      BOXED_LONG(value, flag->get_size_t());

      VMFlag::set_value(vmFlagObj, value);

    } else {

      JVMCI_ERROR_NULL("VM flag %s has unsupported type %s", flag->_name, flag->_type);

    }

    vmFlags->obj_at_put(i, vmFlagObj());

  }

  objArrayOop data = oopFactory::new_objArray(SystemDictionary::Object_klass(), 5, CHECK_NULL);

  data->obj_at_put(0, vmFields());

  data->obj_at_put(1, vmTypes());

  data->obj_at_put(2, vmConstants());

  data->obj_at_put(3, vmAddresses());

  data->obj_at_put(4, vmFlags());

  return (jobjectArray) JNIHandles::make_local(THREAD, data);

#undef BOXED_LONG

#undef BOXED_DOUBLE

C2V_END

C2V_VMENTRY(jbyteArray, getBytecode, (JNIEnv *, jobject, jobject jvmci_method))

  methodHandle method = CompilerToVM::asMethod(jvmci_method);

  ResourceMark rm;

  int code_size = method->code_size();

  typeArrayOop reconstituted_code = oopFactory::new_byteArray(code_size, CHECK_NULL);

  guarantee(method->method_holder()->is_rewritten(), "Method's holder should be rewritten");

  // iterate over all bytecodes and replace non-Java bytecodes

  for (BytecodeStream s(method); s.next() != Bytecodes::_illegal; ) {

    Bytecodes::Code code = s.code();

    Bytecodes::Code raw_code = s.raw_code();

    int bci = s.bci();

    int len = s.instruction_size();

    // Restore original byte code.

    reconstituted_code->byte_at_put(bci, (jbyte) (s.is_wide()? Bytecodes::_wide : code));

    if (len > 1) {

      memcpy(reconstituted_code->byte_at_addr(bci + 1), s.bcp()+1, len-1);

    }

    if (len > 1) {

      // Restore the big-endian constant pool indexes.

      // Cf. Rewriter::scan_method

      switch (code) {

        case Bytecodes::_getstatic:

        case Bytecodes::_putstatic:

        case Bytecodes::_getfield:

        case Bytecodes::_putfield:

        case Bytecodes::_invokevirtual:

        case Bytecodes::_invokespecial:

        case Bytecodes::_invokestatic:

        case Bytecodes::_invokeinterface:

        case Bytecodes::_invokehandle: {

          int cp_index = Bytes::get_native_u2((address) reconstituted_code->byte_at_addr(bci + 1));

          Bytes::put_Java_u2((address) reconstituted_code->byte_at_addr(bci + 1), (u2) cp_index);

          break;

        }

        case Bytecodes::_invokedynamic:

          int cp_index = Bytes::get_native_u4((address) reconstituted_code->byte_at_addr(bci + 1));

          Bytes::put_Java_u4((address) reconstituted_code->byte_at_addr(bci + 1), (u4) cp_index);

          break;

      }

      // Not all ldc byte code are rewritten.

      switch (raw_code) {

        case Bytecodes::_fast_aldc: {

          int cpc_index = reconstituted_code->byte_at(bci + 1) & 0xff;

          int cp_index = method->constants()->object_to_cp_index(cpc_index);

          assert(cp_index < method->constants()->length(), "sanity check");

          reconstituted_code->byte_at_put(bci + 1, (jbyte) cp_index);

          break;

        }

        case Bytecodes::_fast_aldc_w: {

          int cpc_index = Bytes::get_native_u2((address) reconstituted_code->byte_at_addr(bci + 1));

          int cp_index = method->constants()->object_to_cp_index(cpc_index);

          assert(cp_index < method->constants()->length(), "sanity check");

          Bytes::put_Java_u2((address) reconstituted_code->byte_at_addr(bci + 1), (u2) cp_index);

          break;

        }

      }

    }

  }

  return (jbyteArray) JNIHandles::make_local(THREAD, reconstituted_code);

C2V_END

C2V_VMENTRY(jint, getExceptionTableLength, (JNIEnv *, jobject, jobject jvmci_method))

  ResourceMark rm;

  methodHandle method = CompilerToVM::asMethod(jvmci_method);

  return method->exception_table_length();

C2V_END

C2V_VMENTRY(jlong, getExceptionTableStart, (JNIEnv *, jobject, jobject jvmci_method))

  ResourceMark rm;

  methodHandle method = CompilerToVM::asMethod(jvmci_method);

  if (method->exception_table_length() == 0) {

    return 0L;

  }

  return (jlong) (address) method->exception_table_start();

C2V_END

C2V_VMENTRY(jobject, getResolvedJavaMethodAtSlot, (JNIEnv *, jobject, jclass holder_handle, jint slot))

  oop java_class = JNIHandles::resolve(holder_handle);

  Klass* holder = java_lang_Class::as_Klass(java_class);

  methodHandle method = InstanceKlass::cast(holder)->method_with_idnum(slot);

  oop result = CompilerToVM::get_jvmci_method(method, CHECK_NULL);

  return JNIHandles::make_local(THREAD, result);

}

C2V_VMENTRY(jobject, getResolvedJavaMethod, (JNIEnv *, jobject, jobject base, jlong offset))

  methodHandle method;

  oop base_object = JNIHandles::resolve(base);

  if (base_object == NULL) {

    method = *((Method**)(offset));

  } else if (base_object->is_a(SystemDictionary::MemberName_klass())) {

    method = (Method*) (intptr_t) base_object->long_field(offset);

  } else if (base_object->is_a(SystemDictionary::HotSpotResolvedJavaMethodImpl_klass())) {

    method = *((Method**)(HotSpotResolvedJavaMethodImpl::metaspaceMethod(base_object) + offset));

  } else {

    THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),

                err_msg("Unexpected type: %s", base_object->klass()->external_name()));

  }

  assert (method.is_null() || method->is_method(), "invalid read");

  oop result = CompilerToVM::get_jvmci_method(method, CHECK_NULL);

  return JNIHandles::make_local(THREAD, result);

}

C2V_VMENTRY(jobject, getConstantPool, (JNIEnv *, jobject, jobject base, jlong offset))

  constantPoolHandle cp;

  oop base_object = JNIHandles::resolve(base);

  jlong base_address = 0;

  if (base_object != NULL) {

    if (base_object->is_a(SystemDictionary::HotSpotResolvedJavaMethodImpl_klass())) {

      base_address = HotSpotResolvedJavaMethodImpl::metaspaceMethod(base_object);

    } else if (base_object->is_a(SystemDictionary::HotSpotConstantPool_klass())) {

      base_address = HotSpotConstantPool::metaspaceConstantPool(base_object);

    } else if (base_object->is_a(SystemDictionary::HotSpotResolvedObjectTypeImpl_klass())) {

      base_address = (jlong) CompilerToVM::asKlass(base_object);

    } else {

      THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),

                  err_msg("Unexpected type: %s", base_object->klass()->external_name()));

    }

  }

  cp = *((ConstantPool**) (intptr_t) (base_address + offset));

  if (!cp.is_null()) {

    JavaValue method_result(T_OBJECT);

    JavaCallArguments args;

    args.push_long((jlong) (address) cp());

    JavaCalls::call_static(&method_result, SystemDictionary::HotSpotConstantPool_klass(), vmSymbols::fromMetaspace_name(), vmSymbols::constantPool_fromMetaspace_signature(), &args, CHECK_NULL);

    return JNIHandles::make_local(THREAD, (oop)method_result.get_jobject());

  }

  return NULL;

}

C2V_VMENTRY(jobject, getResolvedJavaType, (JNIEnv *, jobject, jobject base, jlong offset, jboolean compressed))

  KlassHandle klass;

  oop base_object = JNIHandles::resolve(base);

  jlong base_address = 0;

  if (base_object != NULL && offset == oopDesc::klass_offset_in_bytes()) {

    klass = base_object->klass();

  } else if (!compressed) {

    if (base_object != NULL) {

      if (base_object->is_a(SystemDictionary::HotSpotResolvedJavaMethodImpl_klass())) {

        base_address = HotSpotResolvedJavaMethodImpl::metaspaceMethod(base_object);

      } else if (base_object->is_a(SystemDictionary::HotSpotConstantPool_klass())) {

        base_address = HotSpotConstantPool::metaspaceConstantPool(base_object);

      } else if (base_object->is_a(SystemDictionary::HotSpotResolvedObjectTypeImpl_klass())) {

        base_address = (jlong) CompilerToVM::asKlass(base_object);

      } else if (base_object->is_a(SystemDictionary::Class_klass())) {

        base_address = (jlong) (address) base_object;

      } else {

        THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),

                    err_msg("Unexpected arguments: %s " JLONG_FORMAT " %s", base_object->klass()->external_name(), offset, compressed ? "true" : "false"));