/* 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
- Edwin Steiner
-
- $Id: md.c 6180 2006-12-11 23:29:26Z twisti $
+ $Id: md.c 7596 2007-03-28 21:05:53Z twisti $
*/
#include "vm/types.h"
#include "toolbox/logging.h"
-#include "vm/exceptions.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
-/* md_codegen_patch_branch *****************************************************
-
- Back-patches a branch instruction.
-
-*******************************************************************************/
-
-void md_codegen_patch_branch(codegendata *cd, s4 branchmpc, s4 targetmpc)
-{
- s4 *mcodeptr;
- s4 mcode;
- s4 disp; /* branch displacement */
- s4 lo;
- s4 hi;
-
- /* calculate the patch position */
-
- mcodeptr = (s4 *) (cd->mcodebase + branchmpc);
-
- /* get the instruction before the exception point */
-
- mcode = mcodeptr[-1];
-
- /* check for: ori t9,t9,0 */
-
- if ((mcode >> 16) == 0x3739) {
- /* Calculate the branch displacement. For jumps we need a
- displacement relative to PV. */
-
- disp = targetmpc;
-
- lo = (short) disp;
- hi = (short) ((disp - lo) >> 16);
-
- /* patch the two instructions before the mcodeptr */
-
- mcodeptr[-2] |= (hi & 0x0000ffff);
- mcodeptr[-1] |= (lo & 0x0000ffff);
- }
- else {
- /* Calculate the branch displacement. For branches we need a
- displacement relative and shifted to the branch PC. */
-
- disp = (targetmpc - branchmpc) >> 2;
-
- /* On the MIPS we can only branch signed 16-bit instruction words
- (signed 18-bit = 32KB = +/- 16KB). Check this! */
-
- if ((disp < (s4) 0xffff8000) || (disp > (s4) 0x00007fff))
- vm_abort("jump displacement is out of range: %d > +/-%d", disp, 0x00007fff);
-
- /* patch the branch instruction before the mcodeptr */
-
- mcodeptr[-1] |= (disp & 0x0000ffff);
- }
-}
-
-
/* md_stacktrace_get_returnaddress *********************************************
Returns the return address of the current stackframe, specified by
assert((mcode >> 16) != 0x6739);
offset += (s2) (mcode & 0x0000ffff);
+
+ pa = NULL;
}
else {
/* get first instruction (ld) */
*******************************************************************************/
+#if defined(ENABLE_REPLACEMENT)
void md_patch_replacement_point(codeinfo *code, s4 index, rplpoint *rp,
u1 *savedmcode)
{
+ index * REPLACEMENT_STUB_SIZE
- 1;
- if ((disp < (s4) 0xffff8000) || (disp > (s4) 0x00007fff)) {
- *exceptionptr =
- new_internalerror("Jump offset is out of range: %d > +/-%d",
- disp, 0x00007fff);
- return;
- }
+ if ((disp < (s4) 0xffff8000) || (disp > (s4) 0x00007fff))
+ vm_abort("Jump offset is out of range: %d > +/-%d",
+ disp, 0x00007fff);
/* BR */
mcode.words[0] = (((0x04) << 26) | ((0) << 21) | ((0) << 16) | ((disp) & 0xffff));
/* flush instruction cache */
md_icacheflush(rp->pc,2*4);
}
+#endif /* defined(ENABLE_REPLACEMENT) */
/*
* These are local overrides for various environment variables in Emacs.