/*

 * Copyright (c) 2003, 2011, 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 "interpreter/interpreter.hpp"

#include "interpreter/interpreterRuntime.hpp"

#include "interpreter/templateTable.hpp"

#include "memory/universe.inline.hpp"

#include "oops/methodDataOop.hpp"

#include "oops/objArrayKlass.hpp"

#include "oops/oop.inline.hpp"

#include "prims/methodHandles.hpp"

#include "runtime/sharedRuntime.hpp"

#include "runtime/stubRoutines.hpp"

#include "runtime/synchronizer.hpp"

#ifndef CC_INTERP

#define __ _masm->

// Platform-dependent initialization

void TemplateTable::pd_initialize() {

  // No amd64 specific initialization

}

// Address computation: local variables

static inline Address iaddress(int n) {

  return Address(r14, Interpreter::local_offset_in_bytes(n));

}

static inline Address laddress(int n) {

  return iaddress(n + 1);

}

static inline Address faddress(int n) {

  return iaddress(n);

}

static inline Address daddress(int n) {

  return laddress(n);

}

static inline Address aaddress(int n) {

  return iaddress(n);

}

static inline Address iaddress(Register r) {

  return Address(r14, r, Address::times_8);

}

static inline Address laddress(Register r) {

  return Address(r14, r, Address::times_8, Interpreter::local_offset_in_bytes(1));

}

static inline Address faddress(Register r) {

  return iaddress(r);

}

static inline Address daddress(Register r) {

  return laddress(r);

}

static inline Address aaddress(Register r) {

  return iaddress(r);

}

static inline Address at_rsp() {

  return Address(rsp, 0);

}

// At top of Java expression stack which may be different than esp().  It

// isn't for category 1 objects.

static inline Address at_tos   () {

  return Address(rsp,  Interpreter::expr_offset_in_bytes(0));

}

static inline Address at_tos_p1() {

  return Address(rsp,  Interpreter::expr_offset_in_bytes(1));

}

static inline Address at_tos_p2() {

  return Address(rsp,  Interpreter::expr_offset_in_bytes(2));

}

static inline Address at_tos_p3() {

  return Address(rsp,  Interpreter::expr_offset_in_bytes(3));

}

// Condition conversion

static Assembler::Condition j_not(TemplateTable::Condition cc) {

  switch (cc) {

  case TemplateTable::equal        : return Assembler::notEqual;

  case TemplateTable::not_equal    : return Assembler::equal;

  case TemplateTable::less         : return Assembler::greaterEqual;

  case TemplateTable::less_equal   : return Assembler::greater;

  case TemplateTable::greater      : return Assembler::lessEqual;

  case TemplateTable::greater_equal: return Assembler::less;

  }

  ShouldNotReachHere();

  return Assembler::zero;

}

// Miscelaneous helper routines

// Store an oop (or NULL) at the address described by obj.

// If val == noreg this means store a NULL

static void do_oop_store(InterpreterMacroAssembler* _masm,

                         Address obj,

                         Register val,

                         BarrierSet::Name barrier,

                         bool precise) {

  assert(val == noreg || val == rax, "parameter is just for looks");

  switch (barrier) {

#ifndef SERIALGC

    case BarrierSet::G1SATBCT:

    case BarrierSet::G1SATBCTLogging:

      {

        // flatten object address if needed

        if (obj.index() == noreg && obj.disp() == 0) {

          if (obj.base() != rdx) {

            __ movq(rdx, obj.base());

          }

        } else {

          __ leaq(rdx, obj);

        }

        __ g1_write_barrier_pre(rdx, r8, rbx, val != noreg);

        if (val == noreg) {

          __ store_heap_oop_null(Address(rdx, 0));

        } else {

          __ store_heap_oop(Address(rdx, 0), val);

          __ g1_write_barrier_post(rdx, val, r8, rbx);

        }

      }

      break;

#endif // SERIALGC

    case BarrierSet::CardTableModRef:

    case BarrierSet::CardTableExtension:

      {

        if (val == noreg) {

          __ store_heap_oop_null(obj);

        } else {

          __ store_heap_oop(obj, val);

          // flatten object address if needed

          if (!precise || (obj.index() == noreg && obj.disp() == 0)) {

            __ store_check(obj.base());

          } else {

            __ leaq(rdx, obj);

            __ store_check(rdx);

          }

        }

      }

      break;

    case BarrierSet::ModRef:

    case BarrierSet::Other:

      if (val == noreg) {

        __ store_heap_oop_null(obj);

      } else {

        __ store_heap_oop(obj, val);

      }

      break;

    default      :

      ShouldNotReachHere();

  }

}

Address TemplateTable::at_bcp(int offset) {

  assert(_desc->uses_bcp(), "inconsistent uses_bcp information");

  return Address(r13, offset);

}

void TemplateTable::patch_bytecode(Bytecodes::Code bytecode, Register bc,

                                   Register scratch,

                                   bool load_bc_into_scratch/*=true*/) {

  if (!RewriteBytecodes) {

    return;

  }

  // the pair bytecodes have already done the load.

  if (load_bc_into_scratch) {

    __ movl(bc, bytecode);

  }

  Label patch_done;

  if (JvmtiExport::can_post_breakpoint()) {

    Label fast_patch;

    // if a breakpoint is present we can't rewrite the stream directly

    __ movzbl(scratch, at_bcp(0));

    __ cmpl(scratch, Bytecodes::_breakpoint);

    __ jcc(Assembler::notEqual, fast_patch);

    __ get_method(scratch);

    // Let breakpoint table handling rewrite to quicker bytecode

    __ call_VM(noreg, CAST_FROM_FN_PTR(address, InterpreterRuntime::set_original_bytecode_at), scratch, r13, bc);

#ifndef ASSERT

    __ jmpb(patch_done);

#else

    __ jmp(patch_done);

#endif

    __ bind(fast_patch);

  }

#ifdef ASSERT

  Label okay;

  __ load_unsigned_byte(scratch, at_bcp(0));

  __ cmpl(scratch, (int) Bytecodes::java_code(bytecode));

  __ jcc(Assembler::equal, okay);

  __ cmpl(scratch, bc);

  __ jcc(Assembler::equal, okay);

  __ stop("patching the wrong bytecode");

  __ bind(okay);

#endif

  // patch bytecode

  __ movb(at_bcp(0), bc);

  __ bind(patch_done);

}

// Individual instructions

void TemplateTable::nop() {

  transition(vtos, vtos);

  // nothing to do

}

void TemplateTable::shouldnotreachhere() {

  transition(vtos, vtos);

  __ stop("shouldnotreachhere bytecode");

}

void TemplateTable::aconst_null() {

  transition(vtos, atos);

  __ xorl(rax, rax);

}

void TemplateTable::iconst(int value) {

  transition(vtos, itos);

  if (value == 0) {

    __ xorl(rax, rax);

  } else {

    __ movl(rax, value);

  }

}

void TemplateTable::lconst(int value) {

  transition(vtos, ltos);

  if (value == 0) {

    __ xorl(rax, rax);

  } else {

    __ movl(rax, value);

  }

}

void TemplateTable::fconst(int value) {

  transition(vtos, ftos);

  static float one = 1.0f, two = 2.0f;

  switch (value) {

  case 0:

    __ xorps(xmm0, xmm0);

    break;

  case 1:

    __ movflt(xmm0, ExternalAddress((address) &one));

    break;

  case 2:

    __ movflt(xmm0, ExternalAddress((address) &two));

    break;

  default:

    ShouldNotReachHere();

    break;

  }

}

void TemplateTable::dconst(int value) {

  transition(vtos, dtos);

  static double one = 1.0;

  switch (value) {

  case 0:

    __ xorpd(xmm0, xmm0);

    break;

  case 1:

    __ movdbl(xmm0, ExternalAddress((address) &one));

    break;

  default:

    ShouldNotReachHere();

    break;

  }

}

void TemplateTable::bipush() {

  transition(vtos, itos);

  __ load_signed_byte(rax, at_bcp(1));

}

void TemplateTable::sipush() {

  transition(vtos, itos);

  __ load_unsigned_short(rax, at_bcp(1));

  __ bswapl(rax);

  __ sarl(rax, 16);

}

void TemplateTable::ldc(bool wide) {

  transition(vtos, vtos);

  Label call_ldc, notFloat, notClass, Done;

  if (wide) {

    __ get_unsigned_2_byte_index_at_bcp(rbx, 1);

  } else {

    __ load_unsigned_byte(rbx, at_bcp(1));

  }

  __ get_cpool_and_tags(rcx, rax);

  const int base_offset = constantPoolOopDesc::header_size() * wordSize;

  const int tags_offset = typeArrayOopDesc::header_size(T_BYTE) * wordSize;

  // get type

  __ movzbl(rdx, Address(rax, rbx, Address::times_1, tags_offset));

  // unresolved string - get the resolved string

  __ cmpl(rdx, JVM_CONSTANT_UnresolvedString);

  __ jccb(Assembler::equal, call_ldc);

  // unresolved class - get the resolved class

  __ cmpl(rdx, JVM_CONSTANT_UnresolvedClass);

  __ jccb(Assembler::equal, call_ldc);

  // unresolved class in error state - call into runtime to throw the error

  // from the first resolution attempt

  __ cmpl(rdx, JVM_CONSTANT_UnresolvedClassInError);

  __ jccb(Assembler::equal, call_ldc);

  // resolved class - need to call vm to get java mirror of the class

  __ cmpl(rdx, JVM_CONSTANT_Class);

  __ jcc(Assembler::notEqual, notClass);

  __ bind(call_ldc);

  __ movl(c_rarg1, wide);

  call_VM(rax, CAST_FROM_FN_PTR(address, InterpreterRuntime::ldc), c_rarg1);

  __ push_ptr(rax);

  __ verify_oop(rax);

  __ jmp(Done);

  __ bind(notClass);

  __ cmpl(rdx, JVM_CONSTANT_Float);

  __ jccb(Assembler::notEqual, notFloat);

  // ftos

  __ movflt(xmm0, Address(rcx, rbx, Address::times_8, base_offset));

  __ push_f();

  __ jmp(Done);

  __ bind(notFloat);

#ifdef ASSERT

  {

    Label L;

    __ cmpl(rdx, JVM_CONSTANT_Integer);

    __ jcc(Assembler::equal, L);

    __ cmpl(rdx, JVM_CONSTANT_String);

    __ jcc(Assembler::equal, L);

    __ stop("unexpected tag type in ldc");

    __ bind(L);

  }

#endif

  // atos and itos

  Label isOop;

  __ cmpl(rdx, JVM_CONSTANT_Integer);

  __ jcc(Assembler::notEqual, isOop);

  __ movl(rax, Address(rcx, rbx, Address::times_8, base_offset));

  __ push_i(rax);

  __ jmp(Done);

  __ bind(isOop);

  __ movptr(rax, Address(rcx, rbx, Address::times_8, base_offset));

  __ push_ptr(rax);

  if (VerifyOops) {

    __ verify_oop(rax);

  }

  __ bind(Done);

}

// Fast path for caching oop constants.

// %%% We should use this to handle Class and String constants also.

// %%% It will simplify the ldc/primitive path considerably.

void TemplateTable::fast_aldc(bool wide) {

  transition(vtos, atos);

    // The verifier will stop it.  However, if we get past the verifier,

    // this will stop the thread in a reasonable way, without crashing the JVM.

    __ call_VM(noreg, CAST_FROM_FN_PTR(address,

                     InterpreterRuntime::throw_IncompatibleClassChangeError));

    // the call_VM checks for exception, so we should never return here.

    __ should_not_reach_here();

    return;

  }

  const Register cache = rcx;

  const Register index = rdx;

  resolve_cache_and_index(f1_oop, rax, cache, index, wide ? sizeof(u2) : sizeof(u1));

  if (VerifyOops) {

    __ verify_oop(rax);

  }

  Label L_done, L_throw_exception;

  const Register con_klass_temp = rcx;  // same as cache

  const Register array_klass_temp = rdx;  // same as index

  __ movptr(con_klass_temp, Address(rax, oopDesc::klass_offset_in_bytes()));

  __ lea(array_klass_temp, ExternalAddress((address)Universe::systemObjArrayKlassObj_addr()));

  __ cmpptr(con_klass_temp, Address(array_klass_temp, 0));

  __ jcc(Assembler::notEqual, L_done);

  __ cmpl(Address(rax, arrayOopDesc::length_offset_in_bytes()), 0);

  __ jcc(Assembler::notEqual, L_throw_exception);

  __ xorptr(rax, rax);

  __ jmp(L_done);

  // Load the exception from the system-array which wraps it:

  __ bind(L_throw_exception);

  __ movptr(rax, Address(rax, arrayOopDesc::base_offset_in_bytes(T_OBJECT)));

  __ jump(ExternalAddress(Interpreter::throw_exception_entry()));

  __ bind(L_done);

}

void TemplateTable::ldc2_w() {

  transition(vtos, vtos);

  Label Long, Done;

  __ get_unsigned_2_byte_index_at_bcp(rbx, 1);

  __ get_cpool_and_tags(rcx, rax);

  const int base_offset = constantPoolOopDesc::header_size() * wordSize;

  const int tags_offset = typeArrayOopDesc::header_size(T_BYTE) * wordSize;

  // get type

  __ cmpb(Address(rax, rbx, Address::times_1, tags_offset),

          JVM_CONSTANT_Double);

  __ jccb(Assembler::notEqual, Long);

  // dtos

  __ movdbl(xmm0, Address(rcx, rbx, Address::times_8, base_offset));

  __ push_d();

  __ jmpb(Done);

  __ bind(Long);

  // ltos

  __ movq(rax, Address(rcx, rbx, Address::times_8, base_offset));

  __ push_l();

  __ bind(Done);

}

void TemplateTable::locals_index(Register reg, int offset) {

  __ load_unsigned_byte(reg, at_bcp(offset));

  __ negptr(reg);

}

void TemplateTable::iload() {

  transition(vtos, itos);

  if (RewriteFrequentPairs) {

    Label rewrite, done;

    const Register bc = c_rarg3;

    assert(rbx != bc, "register damaged");

    // get next byte

    __ load_unsigned_byte(rbx,

                          at_bcp(Bytecodes::length_for(Bytecodes::_iload)));

    // if _iload, wait to rewrite to iload2.  We only want to rewrite the

    // last two iloads in a pair.  Comparing against fast_iload means that

    // the next bytecode is neither an iload or a caload, and therefore

    // an iload pair.

    __ cmpl(rbx, Bytecodes::_iload);

    __ jcc(Assembler::equal, done);

    __ cmpl(rbx, Bytecodes::_fast_iload);

    __ movl(bc, Bytecodes::_fast_iload2);

    __ jccb(Assembler::equal, rewrite);

    // if _caload, rewrite to fast_icaload

    __ cmpl(rbx, Bytecodes::_caload);

    __ movl(bc, Bytecodes::_fast_icaload);

    __ jccb(Assembler::equal, rewrite);

    // rewrite so iload doesn't check again.

    __ movl(bc, Bytecodes::_fast_iload);

    // rewrite

    // bc: fast bytecode

    __ bind(rewrite);

    patch_bytecode(Bytecodes::_iload, bc, rbx, false);

    __ bind(done);

  }

  // Get the local value into tos

  locals_index(rbx);

  __ movl(rax, iaddress(rbx));

}