+/* src/vm/jit/alpha/md.c - machine dependent SPARC functions
+
+ Copyright (C) 1996-2005, 2006 R. Grafl, A. Krall, C. Kruegel,
+ C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
+ E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
+ J. Wenninger, Institut f. Computersprachen - TU Wien
+
+ This file is part of CACAO.
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License as
+ published by the Free Software Foundation; either version 2, or (at
+ your option) any later version.
+
+ This program 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 for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
+
+ $Id: md.c 6265 2007-01-02 20:40:57Z edwin $
+
+*/
+
#include "config.h"
+#include <assert.h>
+
+
#include "vm/types.h"
#include "vm/jit/sparc64/md-abi.h"
#include "vm/jit/asmpart.h"
#include "vm/jit/stacktrace.h"
+/* assembler function prototypes **********************************************/
+void asm_store_fp_state_reg(u8 *mem);
+void asm_load_fp_state_reg(u8 *mem);
+
+
+
+/* shift away 13-bit immediate, mask rd and rs1 */
+#define SHIFT_AND_MASK(instr) \
+ ((instr >> 13) & 0x60fc1)
+
+/* NOP is defined as a SETHI instruction with rd and imm. set to zero */
+/* therefore we check if the 22-bit immediate is zero */
+#define IS_SETHI(instr) \
+ (((instr & 0xc1c00000) == 0x01000000) \
+ && ((instr & 0x3fffff) != 0x0))
+
+#define IS_LDX_IMM(instr) \
+ (((instr >> 13) & 0x60fc1) == 0x602c1)
+
+#define IS_SUB(instr) \
+ (((instr >> 13) & 0x60fc0) == 0x40100)
+
+inline s2 decode_13bit_imm(u4 instr) {
+ s2 imm;
+
+ /* mask everything else in the instruction */
+ imm = instr & 0x00001fff;
+
+ /* sign extend 13-bit to 16-bit */
+ imm <<= 3;
+ imm >>= 3;
+
+ return imm;
+}
/* md_init *********************************************************************
u1 *md_stacktrace_get_returnaddress(u1 *sp, u4 framesize)
{
- /* where's it gonna be ? */
+ u1 *ra;
+ /* flush register windows to the stack */
+ __asm__ ("flushw");
+
+ /* the return address resides in register i7, the last register in the
+ * 16-extended-word save area
+ */
+ ra = *((u1 **) (sp + 120 + BIAS));
+
+ /* NOTE: on SPARC ra is the address of the call instruction */
+
+ return ra;
+}
+
+u1 *md_get_framepointer(u1 *sp)
+{
+ u1 *fp;
+ /* flush register windows to the stack */
+ __asm__ ("flushw");
+
+ fp = *((u1 **) (sp + 112 + BIAS));
- return 0;
+ return fp;
}
+u1 *md_get_pv_from_stackframe(u1 *sp)
+{
+ u1 *pv;
+ /* flush register windows to the stack */
+ __asm__ ("flushw");
+
+ pv = *((u1 **) (sp + 104 + BIAS));
+
+ return pv;
+}
/* md_codegen_get_pv_from_pc ***************************************************
Machine code:
- 6b5b4000 jsr (pv)
+ 6b5b4000 jmpl (pv)
+ 10000000 nop
277afffe ldah pv,-2(ra)
237ba61c lda pv,-23012(pv)
u1 *md_codegen_get_pv_from_pc(u1 *ra)
{
u1 *pv;
- u4 mcode;
+ u8 mcode;
s4 offset;
pv = ra;
- /* get first instruction word after jump */
+ /* get the instruction word after jump and nop */
+ mcode = *((u4 *) (ra+8) );
+
+ /* check if we have a sethi insruction */
+ if (IS_SETHI(mcode)) {
+ s4 xor_imm;
+
+ /* get 22-bit immediate of sethi instruction */
+ offset = (s4) (mcode & 0x3fffff);
+ offset = offset << 10;
+
+ /* now the xor */
+ mcode = *((u4 *) (ra+12) );
+ xor_imm = decode_13bit_imm(mcode);
+
+ offset ^= xor_imm;
+ }
+ else {
+ u4 mcode_masked;
+
+ mcode_masked = SHIFT_AND_MASK(mcode);
+
+ assert(mcode_masked == 0x40001);
+
+ /* mask and extend the negative sign for the 13 bit immediate */
+ offset = decode_13bit_imm(mcode);
+ }
+
+ pv += offset;
+
+ return pv;
+}
+
+/* md_get_method_patch_address *************************************************
+
+ Gets the patch address of the currently compiled method. The offset
+ is extracted from the load instruction(s) before the jump and added
+ to the right base address (PV or REG_METHODPTR).
+
+ INVOKESTATIC/SPECIAL:
+
+ ???????? ldx [i5 - 72],o5
+ ???????? jmp o5 <-- ra
+ ???????? nop
+
+ w/ sethi (mptr in dseg out of 13-bit simm range)
+
+ ???????? sethi hi(0x2000),o5
+ ???????? sub i5,o5,o5
+ ???????? ldx [o5 - 72],o5
+ ???????? jmp o5 <-- ra
+ ???????? nop
+
+ INVOKEVIRTUAL:
+
+ ???????? ldx [o0 + 0},g2
+ ???????? ldx [g2 + 0],o5
+ ???????? jmp o5 <-- ra
+ ???????? nop
+
+ INVOKEINTERFACE:
+
+ ???????? ldx [o0 + 0},g2
+ ???????? ldx [g2 - 112],g2
+ ???????? ldx [g2 + 24],o5
+ ???????? jmp o5 <-- ra
+ ???????? nop
+
+*******************************************************************************/
+
+u1 *md_get_method_patch_address(u1 *ra, stackframeinfo *sfi, u1 *mptr)
+{
+ u4 mcode, mcode_sethi, mcode_masked;
+ s4 offset;
+ u1 *pa, *iptr;
+
+ /* go back to the location of a possible sethi (3 instruction before jump) */
+ /* note: ra is the address of the jump instruction on SPARC */
+
+ mcode_sethi = *((u4 *) (ra - 3 * 4));
+
+ /* check for sethi instruction */
+
+ if (IS_SETHI(mcode_sethi)) {
+ u4 mcode_sub, mcode_ldx;
- mcode = *((u4 *) ra);
+ mcode_sub = *((u4 *) (ra - 2 * 4));
+ mcode_ldx = *((u4 *) (ra - 1 * 4));
- /* check if we have 2 instructions (ldah, lda) */
+ /* make sure the sequence of instructions is a loadhi */
+ if ((IS_SUB(mcode_sub)) && (IS_LDX_IMM(mcode_ldx)))
+ {
- if ((mcode >> 16) == 0x277a) {
- /* get displacement of first instruction (ldah) */
- offset = (s4) (mcode << 16);
- pv += offset;
+ /* get 22-bit immediate of sethi instruction */
- /* get displacement of second instruction (lda) */
+ offset = (s4) (mcode_sethi & 0x3fffff);
+ offset = offset << 10;
+
+ /* goto next instruction */
+
+ /* make sure it's a sub instruction (pv - big_disp) */
+ assert(IS_SUB(mcode_sub));
+ offset = -offset;
- mcode = *((u4 *) (ra + 1 * 4));
+ /* get displacement of load instruction */
- assert((mcode >> 16) == 0x237b);
+ assert(IS_LDX_IMM(mcode_ldx));
- offset = (s2) (mcode & 0x0000ffff);
- pv += offset;
+ offset += decode_13bit_imm(mcode_ldx);
+
+ pa = sfi->pv + offset;
+
+ return pa;
+ }
+ }
+
+ /* we didn't find a sethi, or it didn't belong to a loadhi */
+ /* check for simple (one-instruction) load */
+ iptr = ra - 1 * 4;
+ mcode = *((u4 *) iptr);
+
+ /* shift and mask rd */
+
+ mcode_masked = (mcode >> 13) & 0x060fff;
+
+ /* get the offset from the instruction */
+
+ offset = decode_13bit_imm(mcode);
+
+ /* check for call with rs1 == REG_METHODPTR: ldx [g2+x],pv_caller */
+
+ if (mcode_masked == 0x0602c5) {
+ /* in this case we use the passed method pointer */
+
+ /* return NULL if no mptr was specified (used for replacement) */
+
+ if (mptr == NULL)
+ return NULL;
+
+ pa = mptr + offset;
} else {
- /* get displacement of first instruction (lda) */
+ /* in the normal case we check for a `ldx [i5+x],pv_caller' instruction */
+
+ assert(mcode_masked == 0x0602fb);
- assert((mcode >> 16) == 0x237a);
+ /* and get the final data segment address */
- offset = (s2) (mcode & 0x0000ffff);
- pv += offset;
+ pa = sfi->pv + offset;
}
+
- return pv;
+ return pa;
}
}
-/* md_icacheflush **************************************************************
+/* md_dcacheflush **************************************************************
- Calls the system's function to flush the instruction cache.
+ Calls the system's function to flush the data cache.
*******************************************************************************/
-void md_icacheflush(u1 *addr, s4 nbytes)
+void md_dcacheflush(u1 *addr, s4 nbytes)
{
- /* don't know yet */
+ /* XXX don't know yet */
+ /* printf("md_dcacheflush\n"); */
+ __asm__ __volatile__ ( "membar 0x7F" : : : "memory" );
}
*******************************************************************************/
-void md_patch_replacement_point(rplpoint *rp)
+#if defined(ENABLE_REPLACEMENT)
+void md_patch_replacement_point(codeinfo *code, s4 index, rplpoint *rp, u1 *savedmcode)
{
- u8 mcode;
+ s4 disp;
+ u4 mcode;
+
+ assert(0);
- /* save the current machine code */
- mcode = *(u4*)rp->pc;
+ if (index < 0) {
+ /* restore the patched-over instruction */
+ *(u4*)(rp->pc) = *(u4*)(savedmcode);
+ }
+ else {
+ /* save the current machine code */
+ *(u4*)(savedmcode) = *(u4*)(rp->pc);
- /* write the new machine code */
- *(u4*)(rp->pc) = (u4) rp->mcode;
+ /* build the machine code for the patch */
+ disp = ((u4*)code->replacementstubs - (u4*)rp->pc)
+ + index * REPLACEMENT_STUB_SIZE
+ - 1;
- /* store saved mcode */
- rp->mcode = mcode;
+ mcode = (((s4)(0x00))<<30) | ((0)<<29) | ((0x8)<<25) | (0x1<<22) | (0<<20)
+ | (1 << 19 ) | ((disp) & 0x007ffff);
+
+ /* write the new machine code */
+ *(u4*)(rp->pc) = (u4) mcode;
+ }
#if !defined(NDEBUG) && defined(ENABLE_DISASSEMBLER)
{
/* flush instruction cache */
/* md_icacheflush(rp->pc,4); */
}
+#endif /* defined(ENABLE_REPLACEMENT) */
/*
* These are local overrides for various environment variables in Emacs.