/*

 * 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 "asm/assembler.inline.hpp"

#include "asm/macroAssembler.hpp"

#include "asm/codeBuffer.hpp"

#include "code/codeCache.hpp"

inline bool Address::is_simm13(int offset) { return Assembler::is_simm13(disp() + offset); }

inline int AddressLiteral::low10() const {

  return Assembler::low10(value());

}

inline void MacroAssembler::pd_patch_instruction(address branch, address target, const char* file, int line) {

  jint& stub_inst = *(jint*) branch;

  stub_inst = patched_branch(target - branch, stub_inst, 0);

}

// Use the right loads/stores for the platform

inline void MacroAssembler::ld_ptr( Register s1, Register s2, Register d ) {

  Assembler::ldx(s1, s2, d);

}

inline void MacroAssembler::ld_ptr( Register s1, int simm13a, Register d ) {

  Assembler::ldx(s1, simm13a, d);

}

#ifdef ASSERT

// ByteSize is only a class when ASSERT is defined, otherwise it's an int.

inline void MacroAssembler::ld_ptr( Register s1, ByteSize simm13a, Register d ) {

  ld_ptr(s1, in_bytes(simm13a), d);

}

#endif

inline void MacroAssembler::ld_ptr( Register s1, RegisterOrConstant s2, Register d ) {

  ldx(s1, s2, d);

}

inline void MacroAssembler::ld_ptr(const Address& a, Register d, int offset) {

  ldx(a, d, offset);

}

inline void MacroAssembler::st_ptr( Register d, Register s1, Register s2 ) {

  Assembler::stx(d, s1, s2);

}

inline void MacroAssembler::st_ptr( Register d, Register s1, int simm13a ) {

  Assembler::stx(d, s1, simm13a);

}

#ifdef ASSERT

// ByteSize is only a class when ASSERT is defined, otherwise it's an int.

inline void MacroAssembler::st_ptr( Register d, Register s1, ByteSize simm13a ) {

  st_ptr(d, s1, in_bytes(simm13a));

}

#endif

inline void MacroAssembler::st_ptr( Register d, Register s1, RegisterOrConstant s2 ) {

  stx(d, s1, s2);

}

inline void MacroAssembler::st_ptr(Register d, const Address& a, int offset) {

  stx(d, a, offset);

}

// Use the right loads/stores for the platform

inline void MacroAssembler::ld_long( Register s1, Register s2, Register d ) {

  Assembler::ldx(s1, s2, d);

}

inline void MacroAssembler::ld_long( Register s1, int simm13a, Register d ) {

  Assembler::ldx(s1, simm13a, d);

}

inline void MacroAssembler::ld_long( Register s1, RegisterOrConstant s2, Register d ) {

  ldx(s1, s2, d);

}

inline void MacroAssembler::ld_long(const Address& a, Register d, int offset) {

  ldx(a, d, offset);

}

inline void MacroAssembler::st_long( Register d, Register s1, Register s2 ) {

  Assembler::stx(d, s1, s2);

}

inline void MacroAssembler::st_long( Register d, Register s1, int simm13a ) {

  Assembler::stx(d, s1, simm13a);

}

inline void MacroAssembler::st_long( Register d, Register s1, RegisterOrConstant s2 ) {

  stx(d, s1, s2);

}

inline void MacroAssembler::st_long( Register d, const Address& a, int offset ) {

  stx(d, a, offset);

}

inline void MacroAssembler::stbool(Register d, const Address& a) { stb(d, a); }

inline void MacroAssembler::ldbool(const Address& a, Register d) { ldub(a, d); }

inline void MacroAssembler::movbool( bool boolconst, Register d) { mov( (int) boolconst, d); }

inline void MacroAssembler::signx( Register s, Register d ) { sra( s, G0, d); }

inline void MacroAssembler::signx( Register d )             { sra( d, G0, d); }

inline void MacroAssembler::not1( Register s, Register d ) { xnor( s, G0, d ); }

inline void MacroAssembler::not1( Register d )             { xnor( d, G0, d ); }

inline void MacroAssembler::neg( Register s, Register d ) { sub( G0, s, d ); }

inline void MacroAssembler::neg( Register d )             { sub( G0, d, d ); }

inline void MacroAssembler::cas(  Register s1, Register s2, Register d) { casa( s1, s2, d, ASI_PRIMARY); }

inline void MacroAssembler::casx( Register s1, Register s2, Register d) { casxa(s1, s2, d, ASI_PRIMARY); }

// Functions for isolating 64 bit atomic swaps for LP64

// cas_ptr will perform cas for 32 bit VM's and casx for 64 bit VM's

inline void MacroAssembler::cas_ptr(  Register s1, Register s2, Register d) {

  casx( s1, s2, d );

}

// Functions for isolating 64 bit shifts for LP64

inline void MacroAssembler::sll_ptr( Register s1, Register s2, Register d ) {

  Assembler::sllx(s1, s2, d);

}

inline void MacroAssembler::sll_ptr( Register s1, int imm6a,   Register d ) {

  Assembler::sllx(s1, imm6a, d);

}

inline void MacroAssembler::srl_ptr( Register s1, Register s2, Register d ) {

  Assembler::srlx(s1, s2, d);

}

inline void MacroAssembler::srl_ptr( Register s1, int imm6a,   Register d ) {

  Assembler::srlx(s1, imm6a, d);

}

inline void MacroAssembler::sll_ptr( Register s1, RegisterOrConstant s2, Register d ) {

  if (s2.is_register())  sll_ptr(s1, s2.as_register(), d);

  else                   sll_ptr(s1, s2.as_constant(), d);

}

inline void MacroAssembler::casl(  Register s1, Register s2, Register d) { casa( s1, s2, d, ASI_PRIMARY_LITTLE); }

inline void MacroAssembler::casxl( Register s1, Register s2, Register d) { casxa(s1, s2, d, ASI_PRIMARY_LITTLE); }

inline void MacroAssembler::inc(   Register d,  int const13 ) { add(   d, const13, d); }

inline void MacroAssembler::inccc( Register d,  int const13 ) { addcc( d, const13, d); }

inline void MacroAssembler::dec(   Register d,  int const13 ) { sub(   d, const13, d); }

inline void MacroAssembler::deccc( Register d,  int const13 ) { subcc( d, const13, d); }

// Use the right branch for the platform

inline void MacroAssembler::br( Condition c, bool a, Predict p, address d, relocInfo::relocType rt ) {

  Assembler::bp(c, a, icc, p, d, rt);

}

inline void MacroAssembler::br( Condition c, bool a, Predict p, Label& L ) {

  // See note[+] on 'avoid_pipeline_stall()', in "assembler_sparc.inline.hpp".

  avoid_pipeline_stall();

  br(c, a, p, target(L));

}

// Branch that tests either xcc or icc depending on the

// architecture compiled (LP64 or not)

inline void MacroAssembler::brx( Condition c, bool a, Predict p, address d, relocInfo::relocType rt ) {

    Assembler::bp(c, a, xcc, p, d, rt);

}

inline void MacroAssembler::brx( Condition c, bool a, Predict p, Label& L ) {

  avoid_pipeline_stall();

  brx(c, a, p, target(L));

}

inline void MacroAssembler::ba( Label& L ) {

  br(always, false, pt, L);

}

// Warning: V9 only functions

inline void MacroAssembler::bp( Condition c, bool a, CC cc, Predict p, address d, relocInfo::relocType rt ) {

  Assembler::bp(c, a, cc, p, d, rt);

}

inline void MacroAssembler::bp( Condition c, bool a, CC cc, Predict p, Label& L ) {

  Assembler::bp(c, a, cc, p, L);

}

inline void MacroAssembler::fb( Condition c, bool a, Predict p, address d, relocInfo::relocType rt ) {

  fbp(c, a, fcc0, p, d, rt);

}

inline void MacroAssembler::fb( Condition c, bool a, Predict p, Label& L ) {

  avoid_pipeline_stall();

  fb(c, a, p, target(L));

}

inline void MacroAssembler::fbp( Condition c, bool a, CC cc, Predict p, address d, relocInfo::relocType rt ) {

  Assembler::fbp(c, a, cc, p, d, rt);

}

inline void MacroAssembler::fbp( Condition c, bool a, CC cc, Predict p, Label& L ) {

  Assembler::fbp(c, a, cc, p, L);

}

inline void MacroAssembler::jmp( Register s1, Register s2 ) { jmpl( s1, s2, G0 ); }

inline void MacroAssembler::jmp( Register s1, int simm13a, RelocationHolder const& rspec ) { jmpl( s1, simm13a, G0, rspec); }

inline bool MacroAssembler::is_far_target(address d) {

  if (ForceUnreachable) {

    // References outside the code cache should be treated as far

    return d < CodeCache::low_bound() || d > CodeCache::high_bound();

  }

  return !is_in_wdisp30_range(d, CodeCache::low_bound()) || !is_in_wdisp30_range(d, CodeCache::high_bound());

}

// Call with a check to see if we need to deal with the added

// expense of relocation and if we overflow the displacement

// of the quick call instruction.

inline void MacroAssembler::call( address d, relocInfo::relocType rt ) {

  MacroAssembler::call(d, Relocation::spec_simple(rt));

}

inline void MacroAssembler::call( address d, RelocationHolder const& rspec ) {

  intptr_t disp;

  // NULL is ok because it will be relocated later.

  // Must change NULL to a reachable address in order to

  // pass asserts here and in wdisp.

  if ( d == NULL )

    d = pc();

  // Is this address within range of the call instruction?

  // If not, use the expensive instruction sequence

  if (is_far_target(d)) {

    relocate(rspec);

    AddressLiteral dest(d);

    jumpl_to(dest, O7, O7);

  } else {

    Assembler::call(d, rspec);

  }

}

inline void MacroAssembler::call( Label& L, relocInfo::relocType rt ) {

  avoid_pipeline_stall();

  MacroAssembler::call(target(L), rt);

}

inline void MacroAssembler::callr( Register s1, Register s2 ) { jmpl( s1, s2, O7 ); }

inline void MacroAssembler::callr( Register s1, int simm13a, RelocationHolder const& rspec ) { jmpl( s1, simm13a, O7, rspec); }

// prefetch instruction

inline void MacroAssembler::iprefetch( address d, relocInfo::relocType rt ) {

  Assembler::bp( never, true, xcc, pt, d, rt );

    Assembler::bp( never, true, xcc, pt, d, rt );

}

inline void MacroAssembler::iprefetch( Label& L) { iprefetch( target(L) ); }

inline void MacroAssembler::tst( Register s ) { orcc( G0, s, G0 ); }

inline void MacroAssembler::ret( bool trace ) {

  if (trace) {

    mov(I7, O7); // traceable register

    JMP(O7, 2 * BytesPerInstWord);

  } else {

    jmpl( I7, 2 * BytesPerInstWord, G0 );

  }

}

inline void MacroAssembler::retl( bool trace ) {

  if (trace) {

    JMP(O7, 2 * BytesPerInstWord);

  } else {

    jmpl( O7, 2 * BytesPerInstWord, G0 );

  }

}

inline void MacroAssembler::cmp(  Register s1, Register s2 ) { subcc( s1, s2, G0 ); }

inline void MacroAssembler::cmp(  Register s1, int simm13a ) { subcc( s1, simm13a, G0 ); }

// Note:  All MacroAssembler::set_foo functions are defined out-of-line.

// Loads the current PC of the following instruction as an immediate value in

// 2 instructions.  All PCs in the CodeCache are within 2 Gig of each other.

inline intptr_t MacroAssembler::load_pc_address( Register reg, int bytes_to_skip ) {

  intptr_t thepc = (intptr_t)pc() + 2*BytesPerInstWord + bytes_to_skip;

  Unimplemented();

  return thepc;

}

inline void MacroAssembler::load_contents(const AddressLiteral& addrlit, Register d, int offset) {

  assert_not_delayed();

  if (ForceUnreachable) {

    patchable_sethi(addrlit, d);

  } else {

    sethi(addrlit, d);

  }

  ld(d, addrlit.low10() + offset, d);

}

inline void MacroAssembler::load_bool_contents(const AddressLiteral& addrlit, Register d, int offset) {

  assert_not_delayed();

  if (ForceUnreachable) {

    patchable_sethi(addrlit, d);

  } else {

    sethi(addrlit, d);

  }

  ldub(d, addrlit.low10() + offset, d);

}

inline void MacroAssembler::load_ptr_contents(const AddressLiteral& addrlit, Register d, int offset) {

  assert_not_delayed();

  if (ForceUnreachable) {

    patchable_sethi(addrlit, d);

  } else {

    sethi(addrlit, d);

  }

  ld_ptr(d, addrlit.low10() + offset, d);

}

inline void MacroAssembler::store_contents(Register s, const AddressLiteral& addrlit, Register temp, int offset) {

  assert_not_delayed();

  if (ForceUnreachable) {

    patchable_sethi(addrlit, temp);

  } else {

    sethi(addrlit, temp);

  }

  st(s, temp, addrlit.low10() + offset);

}

inline void MacroAssembler::store_ptr_contents(Register s, const AddressLiteral& addrlit, Register temp, int offset) {

  assert_not_delayed();

  if (ForceUnreachable) {

    patchable_sethi(addrlit, temp);

  } else {

    sethi(addrlit, temp);

  }

  st_ptr(s, temp, addrlit.low10() + offset);

}

// This code sequence is relocatable to any address, even on LP64.

inline void MacroAssembler::jumpl_to(const AddressLiteral& addrlit, Register temp, Register d, int offset) {

  assert_not_delayed();

  // Force fixed length sethi because NativeJump and NativeFarCall don't handle

  // variable length instruction streams.

  patchable_sethi(addrlit, temp);

  jmpl(temp, addrlit.low10() + offset, d);

}

inline void MacroAssembler::jump_to(const AddressLiteral& addrlit, Register temp, int offset) {

  jumpl_to(addrlit, temp, G0, offset);

}

inline void MacroAssembler::jump_indirect_to(Address& a, Register temp,

                                             int ld_offset, int jmp_offset) {

  assert_not_delayed();

  //sethi(al);                   // sethi is caller responsibility for this one

  ld_ptr(a, temp, ld_offset);

  jmp(temp, jmp_offset);

}

inline void MacroAssembler::set_metadata(Metadata* obj, Register d) {

  set_metadata(allocate_metadata_address(obj), d);

}

inline void MacroAssembler::set_metadata_constant(Metadata* obj, Register d) {

  set_metadata(constant_metadata_address(obj), d);

}

inline void MacroAssembler::set_metadata(const AddressLiteral& obj_addr, Register d) {

  assert(obj_addr.rspec().type() == relocInfo::metadata_type, "must be a metadata reloc");

  set(obj_addr, d);

}

inline void MacroAssembler::set_oop(jobject obj, Register d) {

  set_oop(allocate_oop_address(obj), d);

}

inline void MacroAssembler::set_oop_constant(jobject obj, Register d) {

  set_oop(constant_oop_address(obj), d);

}

inline void MacroAssembler::set_oop(const AddressLiteral& obj_addr, Register d) {

  assert(obj_addr.rspec().type() == relocInfo::oop_type, "must be an oop reloc");

  set(obj_addr, d);

}

inline void MacroAssembler::load_argument( Argument& a, Register  d ) {

  if (a.is_register())

    mov(a.as_register(), d);

  else

    ld (a.as_address(),  d);

}

inline void MacroAssembler::store_argument( Register s, Argument& a ) {

  if (a.is_register())

    mov(s, a.as_register());

  else

    st_ptr (s, a.as_address());         // ABI says everything is right justified.

}

inline void MacroAssembler::store_ptr_argument( Register s, Argument& a ) {

  if (a.is_register())

    mov(s, a.as_register());

  else

    st_ptr (s, a.as_address());

}

inline void MacroAssembler::store_float_argument( FloatRegister s, Argument& a ) {

  if (a.is_float_register())

// V9 ABI has F1, F3, F5 are used to pass instead of O0, O1, O2

    fmov(FloatRegisterImpl::S, s, a.as_float_register() );

  else

    // Floats are stored in the high half of the stack entry

    // The low half is undefined per the ABI.

    stf(FloatRegisterImpl::S, s, a.as_address(), sizeof(jfloat));

}

inline void MacroAssembler::store_double_argument( FloatRegister s, Argument& a ) {

  if (a.is_float_register())

// V9 ABI has D0, D2, D4 are used to pass instead of O0, O1, O2

    fmov(FloatRegisterImpl::D, s, a.as_double_register() );

  else

    stf(FloatRegisterImpl::D, s, a.as_address());

}

inline void MacroAssembler::store_long_argument( Register s, Argument& a ) {

  if (a.is_register())

    mov(s, a.as_register());

  else

    stx(s, a.as_address());

}

inline void MacroAssembler::round_to( Register r, int modulus ) {

  assert_not_delayed();

  inc( r, modulus - 1 );

  and3( r, -modulus, r );

}

inline void MacroAssembler::add(Register s1, int simm13a, Register d, relocInfo::relocType rtype) {

  relocate(rtype);

  add(s1, simm13a, d);

}

inline void MacroAssembler::add(Register s1, int simm13a, Register d, RelocationHolder const& rspec) {

  relocate(rspec);

  add(s1, simm13a, d);

}

// form effective addresses this way:

inline void MacroAssembler::add(const Address& a, Register d, int offset) {

  if (a.has_index())   add(a.base(), a.index(),         d);

  else               { add(a.base(), a.disp() + offset, d, a.rspec(offset)); offset = 0; }

  if (offset != 0)     add(d,        offset,            d);

}

inline void MacroAssembler::add(Register s1, RegisterOrConstant s2, Register d, int offset) {

  if (s2.is_register())  add(s1, s2.as_register(),          d);

  else                 { add(s1, s2.as_constant() + offset, d); offset = 0; }

  if (offset != 0)       add(d,  offset,                    d);

}

inline void MacroAssembler::andn(Register s1, RegisterOrConstant s2, Register d) {

  if (s2.is_register())  andn(s1, s2.as_register(), d);

  else                   andn(s1, s2.as_constant(), d);

}

inline void MacroAssembler::btst( Register s1,  Register s2 ) { andcc( s1, s2, G0 ); }

inline void MacroAssembler::btst( int simm13a,  Register s )  { andcc( s,  simm13a, G0 ); }

inline void MacroAssembler::bset( Register s1,  Register s2 ) { or3( s1, s2, s2 ); }

inline void MacroAssembler::bset( int simm13a,  Register s )  { or3( s,  simm13a, s ); }

inline void MacroAssembler::bclr( Register s1,  Register s2 ) { andn( s1, s2, s2 ); }

inline void MacroAssembler::bclr( int simm13a,  Register s )  { andn( s,  simm13a, s ); }

inline void MacroAssembler::btog( Register s1,  Register s2 ) { xor3( s1, s2, s2 ); }

inline void MacroAssembler::btog( int simm13a,  Register s )  { xor3( s,  simm13a, s ); }