/* src/vm/jit/mips/md.c - machine dependent MIPS functions
- Copyright (C) 1996-2005, 2006 R. Grafl, A. Krall, C. Kruegel,
+ Copyright (C) 1996-2005, 2006, 2007 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
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
- Contact: cacao@cacaojvm.org
-
- Authors: Christian Thalinger
-
- Changes: Edwin Steiner
-
- $Id: md.c 4673 2006-03-22 15:30:06Z edwin $
+ $Id: md.c 7486 2007-03-08 13:50:07Z twisti $
*/
#include <assert.h>
#include <unistd.h>
#include <sys/cachectl.h>
-#include <sys/mman.h>
#include "vm/types.h"
#include "toolbox/logging.h"
+
#include "vm/global.h"
+#include "vm/vm.h"
+
+#include "vm/jit/codegen-common.h" /* REMOVEME: only for codegendata */
#include "vm/jit/stacktrace.h"
#if !defined(NDEBUG) && defined(ENABLE_DISASSEMBLER)
-#include "vm/options.h" /* XXX debug */
+#include "vmcore/options.h" /* XXX debug */
#include "vm/jit/disass.h" /* XXX debug */
#endif
-void docacheflush(u1 *p, long bytelen)
-{
- u1 *e = p + bytelen;
- long psize = sysconf(_SC_PAGESIZE);
- p -= (long) p & (psize - 1);
- e += psize - ((((long) e - 1) & (psize - 1)) + 1);
- bytelen = e-p;
- mprotect(p, bytelen, PROT_READ | PROT_WRITE | PROT_EXEC);
-}
-
-
/* md_stacktrace_get_returnaddress *********************************************
Returns the return address of the current stackframe, specified by
}
-/* md_assembler_get_patch_address **********************************************
+/* 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:
+
+ dfdeffb8 ld s8,-72(s8)
+ 03c0f809 jalr s8
+ 00000000 nop
+
+ INVOKEVIRTUAL:
+
+ dc990000 ld t9,0(a0)
+ df3e0000 ld s8,0(t9)
+ 03c0f809 jalr s8
+ 00000000 nop
+
+ INVOKEINTERFACE:
+
+ dc990000 ld t9,0(a0)
+ df39ff90 ld t9,-112(t9)
+ df3e0018 ld s8,24(t9)
+ 03c0f809 jalr s8
+ 00000000 nop
+
*******************************************************************************/
-u1 *md_assembler_get_patch_address(u1 *ra, stackframeinfo *sfi, u1 *mptr)
+u1 *md_get_method_patch_address(u1 *ra, stackframeinfo *sfi, u1 *mptr)
{
u4 mcode;
s4 offset;
offset += (s2) (mcode & 0x0000ffff);
- } else {
+ pa = NULL;
+ }
+ else {
/* get first instruction (ld) */
mcode = *((u4 *) ra);
#endif
/* in this case we use the passed method pointer */
- pa = mptr + offset;
+ /* return NULL if no mptr was specified (used for replacement) */
+
+ if (mptr == NULL)
+ return NULL;
- } else {
+ pa = mptr + offset;
+ }
+ else {
/* in the normal case we check for a `ld s8,x(s8)' instruction */
#if SIZEOF_VOID_P == 8
}
-/* md_codegen_findmethod *******************************************************
+/* md_codegen_get_pv_from_pc ***************************************************
Machine code:
*******************************************************************************/
-u1 *md_codegen_findmethod(u1 *ra)
+u1 *md_codegen_get_pv_from_pc(u1 *ra)
{
u1 *pv;
u4 mcode;
#endif
offset += (s2) (mcode & 0x0000ffff);
-
- } else {
+ }
+ else {
/* get offset of first instruction (daddiu) */
mcode = *((u4 *) ra);
*******************************************************************************/
-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;
+ union {
+ u8 both;
+ u4 words[2];
+ } mcode;
+
+ if (index < 0) {
+ /* restore the patched-over instruction */
+ *(u8*)(rp->pc) = *(u8*)(savedmcode);
+ }
+ else {
+ /* save the current machine code */
+ *(u8*)(savedmcode) = *(u8*)(rp->pc);
+
+ /* make machine code for patching */
- /* save the current machine code */
- mcode = *(u8*)rp->pc;
+ disp = ((u4*)code->replacementstubs - (u4*)rp->pc)
+ + index * REPLACEMENT_STUB_SIZE
+ - 1;
- /* write the new machine code */
- *(u8*)(rp->pc) = rp->mcode;
+ if ((disp < (s4) 0xffff8000) || (disp > (s4) 0x00007fff))
+ vm_abort("Jump offset is out of range: %d > +/-%d",
+ disp, 0x00007fff);
- /* store saved mcode */
- rp->mcode = mcode;
+ /* BR */
+ mcode.words[0] = (((0x04) << 26) | ((0) << 21) | ((0) << 16) | ((disp) & 0xffff));
+ mcode.words[1] = 0; /* NOP in delay slot */
+
+ /* write the new machine code */
+ *(u8*)(rp->pc) = mcode.both;
+ }
#if !defined(NDEBUG) && defined(ENABLE_DISASSEMBLER)
{
/* flush instruction cache */
md_icacheflush(rp->pc,2*4);
}
+#endif /* defined(ENABLE_REPLACEMENT) */
/*
* These are local overrides for various environment variables in Emacs.