/*

 * Copyright (c) 1998, 2013, 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/classFileStream.hpp"

#include "classfile/javaClasses.hpp"

#include "classfile/stackMapTable.hpp"

#include "classfile/stackMapFrame.hpp"

#include "classfile/stackMapTableFormat.hpp"

#include "classfile/systemDictionary.hpp"

#include "classfile/verifier.hpp"

#include "classfile/vmSymbols.hpp"

#include "interpreter/bytecodes.hpp"

#include "interpreter/bytecodeStream.hpp"

#include "memory/oopFactory.hpp"

#include "memory/resourceArea.hpp"

#include "oops/instanceKlass.hpp"

#include "oops/oop.inline.hpp"

#include "oops/typeArrayOop.hpp"

#include "prims/jvm.h"

#include "runtime/fieldDescriptor.hpp"

#include "runtime/handles.inline.hpp"

#include "runtime/interfaceSupport.hpp"

#include "runtime/javaCalls.hpp"

#include "runtime/orderAccess.hpp"

#include "runtime/os.hpp"

#ifdef TARGET_ARCH_x86

# include "bytes_x86.hpp"

#endif

#ifdef TARGET_ARCH_sparc

# include "bytes_sparc.hpp"

#endif

#ifdef TARGET_ARCH_zero

# include "bytes_zero.hpp"

#endif

#ifdef TARGET_ARCH_arm

# include "bytes_arm.hpp"

#endif

#ifdef TARGET_ARCH_ppc

# include "bytes_ppc.hpp"

#endif

#define NOFAILOVER_MAJOR_VERSION                       51

#define NONZERO_PADDING_BYTES_IN_SWITCH_MAJOR_VERSION  51

// Access to external entry for VerifyClassCodes - old byte code verifier

extern "C" {

  typedef jboolean (*verify_byte_codes_fn_t)(JNIEnv *, jclass, char *, jint);

  typedef jboolean (*verify_byte_codes_fn_new_t)(JNIEnv *, jclass, char *, jint, jint);

}

static void* volatile _verify_byte_codes_fn = NULL;

static volatile jint _is_new_verify_byte_codes_fn = (jint) true;

static void* verify_byte_codes_fn() {

  if (_verify_byte_codes_fn == NULL) {

    void *lib_handle = os::native_java_library();

    void *func = os::dll_lookup(lib_handle, "VerifyClassCodesForMajorVersion");

    OrderAccess::release_store_ptr(&_verify_byte_codes_fn, func);

    if (func == NULL) {

      OrderAccess::release_store(&_is_new_verify_byte_codes_fn, false);

      func = os::dll_lookup(lib_handle, "VerifyClassCodes");

      OrderAccess::release_store_ptr(&_verify_byte_codes_fn, func);

    }

  }

  return (void*)_verify_byte_codes_fn;

}

// Methods in Verifier

bool Verifier::should_verify_for(oop class_loader, bool should_verify_class) {

  return (class_loader == NULL || !should_verify_class) ?

    BytecodeVerificationLocal : BytecodeVerificationRemote;

}

bool Verifier::relax_verify_for(oop loader) {

  bool trusted = java_lang_ClassLoader::is_trusted_loader(loader);

  bool need_verify =

    // verifyAll

    (BytecodeVerificationLocal && BytecodeVerificationRemote) ||

    // verifyRemote

    (!BytecodeVerificationLocal && BytecodeVerificationRemote && !trusted);

  return !need_verify;

}

bool Verifier::verify(instanceKlassHandle klass, Verifier::Mode mode, bool should_verify_class, TRAPS) {

  HandleMark hm;

  ResourceMark rm(THREAD);

  Symbol* exception_name = NULL;

  const size_t message_buffer_len = klass->name()->utf8_length() + 1024;

  char* message_buffer = NEW_RESOURCE_ARRAY(char, message_buffer_len);

  char* exception_message = message_buffer;

  const char* klassName = klass->external_name();

  bool can_failover = FailOverToOldVerifier &&

      klass->major_version() < NOFAILOVER_MAJOR_VERSION;

  // If the class should be verified, first see if we can use the split

  // verifier.  If not, or if verification fails and FailOverToOldVerifier

  // is set, then call the inference verifier.

  if (is_eligible_for_verification(klass, should_verify_class)) {

    if (TraceClassInitialization) {

      tty->print_cr("Start class verification for: %s", klassName);

    }

    if (klass->major_version() >= STACKMAP_ATTRIBUTE_MAJOR_VERSION) {

      ClassVerifier split_verifier(klass, THREAD);

      split_verifier.verify_class(THREAD);

      exception_name = split_verifier.result();

      if (can_failover && !HAS_PENDING_EXCEPTION &&

          (exception_name == vmSymbols::java_lang_VerifyError() ||

           exception_name == vmSymbols::java_lang_ClassFormatError())) {

        if (TraceClassInitialization || VerboseVerification) {

          tty->print_cr(

            "Fail over class verification to old verifier for: %s", klassName);

        }

        exception_name = inference_verify(

          klass, message_buffer, message_buffer_len, THREAD);

      }

      if (exception_name != NULL) {

        exception_message = split_verifier.exception_message();

      }

    } else {

      exception_name = inference_verify(

          klass, message_buffer, message_buffer_len, THREAD);

    }

    if (TraceClassInitialization || VerboseVerification) {

      if (HAS_PENDING_EXCEPTION) {

        tty->print("Verification for %s has", klassName);

        tty->print_cr(" exception pending %s ",

          InstanceKlass::cast(PENDING_EXCEPTION->klass())->external_name());

      } else if (exception_name != NULL) {

        tty->print_cr("Verification for %s failed", klassName);

      }

      tty->print_cr("End class verification for: %s", klassName);

    }

  }

  if (HAS_PENDING_EXCEPTION) {

    return false; // use the existing exception

  } else if (exception_name == NULL) {

    return true; // verifcation succeeded

  } else { // VerifyError or ClassFormatError to be created and thrown

    ResourceMark rm(THREAD);

    instanceKlassHandle kls =

      SystemDictionary::resolve_or_fail(exception_name, true, CHECK_false);

    while (!kls.is_null()) {

      if (kls == klass) {

        // If the class being verified is the exception we're creating

        // or one of it's superclasses, we're in trouble and are going

        // to infinitely recurse when we try to initialize the exception.

        // So bail out here by throwing the preallocated VM error.

        THROW_OOP_(Universe::virtual_machine_error_instance(), false);

      }

      kls = kls->super();

    }

    message_buffer[message_buffer_len - 1] = '\0'; // just to be sure

    THROW_MSG_(exception_name, exception_message, false);

  }

}

bool Verifier::is_eligible_for_verification(instanceKlassHandle klass, bool should_verify_class) {

  Symbol* name = klass->name();

  Klass* refl_magic_klass = SystemDictionary::reflect_MagicAccessorImpl_klass();

  return (should_verify_for(klass->class_loader(), should_verify_class) &&

    // return if the class is a bootstrapping class

    // or defineClass specified not to verify by default (flags override passed arg)

    // We need to skip the following four for bootstraping

    name != vmSymbols::java_lang_Object() &&

    name != vmSymbols::java_lang_Class() &&

    name != vmSymbols::java_lang_String() &&

    name != vmSymbols::java_lang_Throwable() &&

    // Can not verify the bytecodes for shared classes because they have

    // already been rewritten to contain constant pool cache indices,

    // which the verifier can't understand.

    // Shared classes shouldn't have stackmaps either.

    !klass()->is_shared() &&

    // As of the fix for 4486457 we disable verification for all of the

    // dynamically-generated bytecodes associated with the 1.4

    // reflection implementation, not just those associated with

    // sun/reflect/SerializationConstructorAccessor.

    // NOTE: this is called too early in the bootstrapping process to be

    // guarded by Universe::is_gte_jdk14x_version()/UseNewReflection.

    (refl_magic_klass == NULL ||

     !klass->is_subtype_of(refl_magic_klass) ||

     VerifyReflectionBytecodes)

  );

}

Symbol* Verifier::inference_verify(

    instanceKlassHandle klass, char* message, size_t message_len, TRAPS) {

  JavaThread* thread = (JavaThread*)THREAD;

  JNIEnv *env = thread->jni_environment();

  void* verify_func = verify_byte_codes_fn();

  if (verify_func == NULL) {

    jio_snprintf(message, message_len, "Could not link verifier");

    return vmSymbols::java_lang_VerifyError();

  }

  ResourceMark rm(THREAD);

  if (VerboseVerification) {

    tty->print_cr("Verifying class %s with old format", klass->external_name());

  }

  jclass cls = (jclass) JNIHandles::make_local(env, klass->java_mirror());

  jint result;

  {

    HandleMark hm(thread);

    ThreadToNativeFromVM ttn(thread);

    // ThreadToNativeFromVM takes care of changing thread_state, so safepoint

    // code knows that we have left the VM

    if (_is_new_verify_byte_codes_fn) {

      verify_byte_codes_fn_new_t func =

        CAST_TO_FN_PTR(verify_byte_codes_fn_new_t, verify_func);

      result = (*func)(env, cls, message, (int)message_len,

          klass->major_version());

    } else {

      verify_byte_codes_fn_t func =

        CAST_TO_FN_PTR(verify_byte_codes_fn_t, verify_func);

      result = (*func)(env, cls, message, (int)message_len);

    }

  }

  JNIHandles::destroy_local(cls);

  // These numbers are chosen so that VerifyClassCodes interface doesn't need

  // to be changed (still return jboolean (unsigned char)), and result is

  // 1 when verification is passed.

  if (result == 0) {

    return vmSymbols::java_lang_VerifyError();

  } else if (result == 1) {

    return NULL; // verified.

  } else if (result == 2) {

    THROW_MSG_(vmSymbols::java_lang_OutOfMemoryError(), message, NULL);

  } else if (result == 3) {

    return vmSymbols::java_lang_ClassFormatError();

  } else {

    ShouldNotReachHere();

    return NULL;

  }

}

TypeOrigin TypeOrigin::null() {

  return TypeOrigin();

}

TypeOrigin TypeOrigin::local(u2 index, StackMapFrame* frame) {

  assert(frame != NULL, "Must have a frame");

  return TypeOrigin(CF_LOCALS, index, StackMapFrame::copy(frame),

     frame->local_at(index));

}

TypeOrigin TypeOrigin::stack(u2 index, StackMapFrame* frame) {

  assert(frame != NULL, "Must have a frame");

  return TypeOrigin(CF_STACK, index, StackMapFrame::copy(frame),

      frame->stack_at(index));

}

TypeOrigin TypeOrigin::sm_local(u2 index, StackMapFrame* frame) {

  assert(frame != NULL, "Must have a frame");

  return TypeOrigin(SM_LOCALS, index, StackMapFrame::copy(frame),

      frame->local_at(index));

}

TypeOrigin TypeOrigin::sm_stack(u2 index, StackMapFrame* frame) {

  assert(frame != NULL, "Must have a frame");

  return TypeOrigin(SM_STACK, index, StackMapFrame::copy(frame),

      frame->stack_at(index));

}

TypeOrigin TypeOrigin::bad_index(u2 index) {

  return TypeOrigin(BAD_INDEX, index, NULL, VerificationType::bogus_type());

}

TypeOrigin TypeOrigin::cp(u2 index, VerificationType vt) {

  return TypeOrigin(CONST_POOL, index, NULL, vt);

}

TypeOrigin TypeOrigin::signature(VerificationType vt) {

  return TypeOrigin(SIG, 0, NULL, vt);

}

TypeOrigin TypeOrigin::implicit(VerificationType t) {

  return TypeOrigin(IMPLICIT, 0, NULL, t);

}

TypeOrigin TypeOrigin::frame(StackMapFrame* frame) {

  return TypeOrigin(FRAME_ONLY, 0, StackMapFrame::copy(frame),

                    VerificationType::bogus_type());

}

void TypeOrigin::reset_frame() {

  if (_frame != NULL) {

    _frame->restore();

  }

}

void TypeOrigin::details(outputStream* ss) const {

  _type.print_on(ss);

  switch (_origin) {

    case CF_LOCALS:

      ss->print(" (current frame, locals[%d])", _index);

      break;

    case CF_STACK:

      ss->print(" (current frame, stack[%d])", _index);

      break;

    case SM_LOCALS:

      ss->print(" (stack map, locals[%d])", _index);

      break;

    case SM_STACK:

      ss->print(" (stack map, stack[%d])", _index);

      break;

    case CONST_POOL:

      ss->print(" (constant pool %d)", _index);

      break;

    case SIG:

      ss->print(" (from method signature)");

      break;

    case IMPLICIT:

    case FRAME_ONLY:

    case NONE:

    default:

      ;

  }

}

#ifdef ASSERT

void TypeOrigin::print_on(outputStream* str) const {

  str->print("{%d,%d,%p:", _origin, _index, _frame);

  if (_frame != NULL) {

    _frame->print_on(str);

  } else {

    str->print("null");

  }

  str->print(",");

  _type.print_on(str);

  str->print("}");

}

#endif

void ErrorContext::details(outputStream* ss, Method* method) const {

  if (is_valid()) {

    ss->print_cr("");

    ss->print_cr("Exception Details:");

    location_details(ss, method);

    reason_details(ss);

    frame_details(ss);

    bytecode_details(ss, method);

    handler_details(ss, method);

    stackmap_details(ss, method);

  }

}

void ErrorContext::reason_details(outputStream* ss) const {

  streamIndentor si(ss);

  ss->indent().print_cr("Reason:");

  streamIndentor si2(ss);

  ss->indent().print("");

  switch (_fault) {

    case INVALID_BYTECODE:

      ss->print("Error exists in the bytecode");

      break;

    case WRONG_TYPE:

      if (_expected.is_valid()) {

        ss->print("Type ");

        _type.details(ss);

        ss->print(" is not assignable to ");

        _expected.details(ss);

      } else {

        ss->print("Invalid type: ");

        _type.details(ss);

      }

      break;

    case FLAGS_MISMATCH:

      if (_expected.is_valid()) {

        ss->print("Current frame's flags are not assignable "

                  "to stack map frame's.");

      } else {

        ss->print("Current frame's flags are invalid in this context.");

      }

      break;

    case BAD_CP_INDEX:

      ss->print("Constant pool index %d is invalid", _type.index());

      break;

    case BAD_LOCAL_INDEX:

      ss->print("Local index %d is invalid", _type.index());

      break;

    case LOCALS_SIZE_MISMATCH:

      ss->print("Current frame's local size doesn't match stackmap.");

      break;

    case STACK_SIZE_MISMATCH:

      ss->print("Current frame's stack size doesn't match stackmap.");

      break;

    case STACK_OVERFLOW:

      ss->print("Exceeded max stack size.");

      break;

    case STACK_UNDERFLOW:

      ss->print("Attempt to pop empty stack.");

      break;

    case MISSING_STACKMAP:

      ss->print("Expected stackmap frame at this location.");

      break;

    case BAD_STACKMAP:

      ss->print("Invalid stackmap specification.");

      break;

    case UNKNOWN:

    default:

      ShouldNotReachHere();

      ss->print_cr("Unknown");

  }

  ss->print_cr("");

}

void ErrorContext::location_details(outputStream* ss, Method* method) const {

  if (_bci != -1 && method != NULL) {

    streamIndentor si(ss);

    const char* bytecode_name = "<invalid>";

    if (method->validate_bci_from_bcx(_bci) != -1) {

      Bytecodes::Code code = Bytecodes::code_or_bp_at(method->bcp_from(_bci));

      if (Bytecodes::is_defined(code)) {

          bytecode_name = Bytecodes::name(code);

      } else {

          bytecode_name = "<illegal>";

      }

    }

    InstanceKlass* ik = method->method_holder();

    ss->indent().print_cr("Location:");

    streamIndentor si2(ss);

    ss->indent().print_cr("%s.%s%s @%d: %s",

        ik->name()->as_C_string(), method->name()->as_C_string(),

        method->signature()->as_C_string(), _bci, bytecode_name);

  }

}

void ErrorContext::frame_details(outputStream* ss) const {

  streamIndentor si(ss);

  if (_type.is_valid() && _type.frame() != NULL) {

    ss->indent().print_cr("Current Frame:");

    streamIndentor si2(ss);

    _type.frame()->print_on(ss);

  }

  if (_expected.is_valid() && _expected.frame() != NULL) {

    ss->indent().print_cr("Stackmap Frame:");

    streamIndentor si2(ss);

    _expected.frame()->print_on(ss);

  }

}

void ErrorContext::bytecode_details(outputStream* ss, Method* method) const {

  if (method != NULL) {

    streamIndentor si(ss);

    ss->indent().print_cr("Bytecode:");

    streamIndentor si2(ss);

    ss->print_data(method->code_base(), method->code_size(), false);

  }

}

void ErrorContext::handler_details(outputStream* ss, Method* method) const {

  if (method != NULL) {

    streamIndentor si(ss);

    ExceptionTable table(method);

    if (table.length() > 0) {

      ss->indent().print_cr("Exception Handler Table:");

      streamIndentor si2(ss);

      for (int i = 0; i < table.length(); ++i) {

        ss->indent().print_cr("bci [%d, %d] => handler: %d", table.start_pc(i),

            table.end_pc(i), table.handler_pc(i));

      }

    }

  }

}

void ErrorContext::stackmap_details(outputStream* ss, Method* method) const {

  if (method != NULL && method->has_stackmap_table()) {

    streamIndentor si(ss);

    ss->indent().print_cr("Stackmap Table:");

    Array<u1>* data = method->stackmap_data();

    stack_map_table* sm_table =

        stack_map_table::at((address)data->adr_at(0));