* src/vm/jit/stacktrace.c (stacktrace_create_stackframeinfo): Removed.
[cacao.git] / src / vm / jit / replace.h
index 8d8a06a3a94d8a70554b0c90849a6d4ef79434a5..b1ca41c5ecf6b01d265dfc98e6617719f65d32d8 100644 (file)
@@ -1,6 +1,6 @@
-/* vm/jit/replace.h - on-stack replacement of methods
+/* src/vm/jit/replace.h - on-stack replacement of methods
 
-   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: Edwin Steiner
 
-   Changes:
+#ifndef _REPLACE_H
+#define _REPLACE_H
 
-   $Id$
+#include "config.h"
+#include "vm/types.h"
 
-*/
+#if !defined(ENABLE_REPLACEMENT)
 
+/*** macros for the codegens (disabled version) ************************/
 
-#ifndef _REPLACE_H
-#define _REPLACE_H
+#define REPLACEMENT_POINTS_INIT(cd, jd)
+#define REPLACEMENT_POINTS_RESET(cd, jd)
+#define REPLACEMENT_POINT_BLOCK_START(cd, bptr)
+#define REPLACEMENT_POINT_INLINE_START(cd, iptr)
+#define REPLACEMENT_POINT_INLINE_BODY(cd, iptr)
+#define REPLACEMENT_POINT_RETURN(cd, iptr)
+#define REPLACEMENT_POINT_INVOKE(cd, iptr)
+#define REPLACEMENT_POINT_INVOKE_RETURN(cd, iptr)
+#define REPLACEMENT_POINT_FORGC_BUILTIN(cd, iptr)
+#define REPLACEMENT_POINT_FORGC_BUILTIN_RETURN(cd, iptr)
+
+#else /* defined(ENABLE_REPLACEMENT) */
 
 /* forward typedefs ***********************************************************/
 
+typedef struct rplalloc rplalloc;
 typedef struct rplpoint rplpoint;
 typedef struct executionstate_t executionstate_t;
 typedef struct sourcestate_t sourcestate_t;
 typedef struct sourceframe_t sourceframe_t;
-typedef struct replace_safestack_t replace_safestack_t;
-
-#include "config.h"
-#include "vm/types.h"
+typedef union  replace_val_t replace_val_t;
 
 #include "arch.h"
 #include "md-abi.h"
 
-#include "vm/method.h"
 #include "vm/jit/reg.h"
+#include "vm/jit/stacktrace.h"
 
-
-/* alignment for the safe stack used during replacement */
-
-#define REPLACE_STACK_ALIGNMENT  16
-
-/* the size of the safe stack we use during replacement */
-/* Must be a multiple of REPLACE_STACK_ALIGNMENT.       */
-
-#define REPLACE_SAFESTACK_SIZE  16384  /* bytes */
+#include "vmcore/method.h"
 
 
 /*** structs *********************************************************/
 
-typedef struct rplalloc rplalloc;
-
 #define RPLALLOC_STACK  -1
 #define RPLALLOC_PARAM  -2
 #define RPLALLOC_SYNC   -3
@@ -98,8 +98,9 @@ struct rplalloc {
 #define RPLPOINT_TYPE_RETURN  5
 #define RPLPOINT_TYPE_BODY    6
 
-#define RPLPOINT_FLAG_NOTRAP  0x01  /* rplpoint cannot be trapped */
-#define RPLPOINT_FLAG_ACTIVE  0x08  /* trap is active             */
+#define RPLPOINT_FLAG_NOTRAP     0x01  /* rplpoint cannot be trapped */
+#define RPLPOINT_FLAG_COUNTDOWN  0x02  /* count down hits            */
+#define RPLPOINT_FLAG_ACTIVE     0x08  /* trap is active             */
 
 
 #if !defined(NDEBUG)
@@ -126,6 +127,20 @@ struct rplpoint {
 };
 
 
+union replace_val_t {
+       s4             i;
+       s8             l;
+       ptrint         p;
+       struct {
+               u4 lo;
+               u4 hi;
+       }              words;
+       float          f;
+       double         d;
+       java_object_t *a;
+};
+
+
 /* An `executionsstate` represents the state of a thread as it reached */
 /* an replacement point or is about to enter one.                      */
 
@@ -135,8 +150,11 @@ struct executionstate_t {
        u1           *pv;                   /* procedure value. NULL means */
                                            /* search the AVL tree         */
 
-       u8            intregs[INT_REG_CNT];             /* register values */
-       u8            fltregs[FLT_REG_CNT];             /* register values */
+       ptrint        intregs[INT_REG_CNT];             /* register values */
+       double        fltregs[FLT_REG_CNT];             /* register values */
+#if defined(HAS_ADDRESS_REGISTER_FILE)
+       ptrint        adrregs[ADR_REG_CNT];             /* register values */
+#endif
 
        codeinfo     *code;            /* codeinfo corresponding to the pv */
 };
@@ -149,51 +167,43 @@ struct sourceframe_t {
        s4             id;
        s4             type;
 
-       u8             instance;
+       /* values */
+       replace_val_t  instance;
 
-       u8            *javastack;                  /* values of stack vars */
+       replace_val_t *javastack;                  /* values of stack vars */
        u1            *javastacktype;              /*  types of stack vars */
        s4             javastackdepth;             /* number of stack vars */
 
-       u8            *javalocals;                 /* values of javalocals */
+       replace_val_t *javalocals;                 /* values of javalocals */
        u1            *javalocaltype;              /*  types of javalocals */
        s4             javalocalcount;             /* number of javalocals */
 
-       u8            *syncslots;
+       replace_val_t *syncslots;
        s4             syncslotcount; /* XXX do we need more than one? */
 
+       /* mapping info */
        rplpoint      *fromrp;         /* rplpoint used to read this frame */
        codeinfo      *fromcode;              /* code this frame was using */
-
        rplpoint      *torp;          /* rplpoint this frame was mapped to */
        codeinfo      *tocode;            /* code this frame was mapped to */
-};
 
-
-struct sourcestate_t {
-       sourceframe_t *frames;    /* list of source frames, from bottom up */
+       /* info for native frames */
+       stackframeinfo *sfi;      /* sfi for native frames, otherwise NULL */
+       s4             nativeframesize;    /* size (bytes) of native frame */
+       u1            *nativepc;
+       ptrint         nativesavint[INT_SAV_CNT]; /* XXX temporary */
+       double         nativesavflt[FLT_REG_CNT]; /* XXX temporary */
+#if defined(HAS_ADDRESS_REGISTER_FILE)
+       ptrint         nativesavadr[ADR_SAV_CNT]; /* XXX temporary */
+#endif
 };
 
+#define REPLACE_IS_NATIVE_FRAME(frame)  ((frame)->sfi != NULL)
+#define REPLACE_IS_JAVA_FRAME(frame)    ((frame)->sfi == NULL)
 
-/* replace_safestack_t *********************************************************
-
-   This struct is used to allocate a safe stack area to be used during the
-   last phase of replacement. It also contains copies of all data needed
-   during this phase. (The data cannot be kept in normal variables, as
-   the C stack may be destroyed during replacement.)
-
-   CAUTION: Do not change the layout of this struct! The assembler code
-            depends on the order of fields. (`stack` must be first,
-                       directly followed by `es`.)
 
-*******************************************************************************/
-
-struct replace_safestack_t {
-       u1                stack[REPLACE_SAFESTACK_SIZE];
-       executionstate_t  es;
-       sourcestate_t    *ss;
-       u1               *mem;             /* start of the allocated memory chunk */
-       s4                dumpsize;
+struct sourcestate_t {
+       sourceframe_t *frames;    /* list of source frames, from bottom up */
 };
 
 
@@ -204,6 +214,9 @@ struct replace_safestack_t {
         return false;                                                \
     (cd)->replacementpoint = (jd)->code->rplpoints;
 
+#define REPLACEMENT_POINTS_RESET(cd, jd)                             \
+    (cd)->replacementpoint = (jd)->code->rplpoints;
+
 #define REPLACEMENT_POINT_BLOCK_START(cd, bptr)                      \
     if ((bptr)->bitflags & BBFLAG_REPLACEMENT)                       \
         codegen_set_replacement_point((cd) RPLPOINT_CHECK_BB(bptr));
@@ -225,8 +238,26 @@ struct replace_safestack_t {
         cd->replacementpoint[-1].callsize = (cd->mcodeptr - cd->mcodebase)\
                     - (ptrint) cd->replacementpoint[-1].pc;
 
-#define REPLACEMENT_EMIT_STUBS(jd)                                   \
-    emit_replacement_stubs(jd);
+
+/*** macros for the codegens (for GC) **********************************/
+
+#if defined(ENABLE_GC_CACAO)
+
+#define REPLACEMENT_POINT_FORGC_BUILTIN(cd, iptr)                    \
+       codegen_set_replacement_point(cd RPLPOINT_CHECK(CALL));
+
+#define REPLACEMENT_POINT_FORGC_BUILTIN_RETURN(cd, iptr)             \
+       if (iptr->opc == ICMD_BUILTIN)                                   \
+               cd->replacementpoint[-1].callsize = (cd->mcodeptr - cd->mcodebase)\
+                                       - (ptrint) cd->replacementpoint[-1].pc;
+
+#else /* defined(ENABLE_GC_CACAO) */
+
+#define REPLACEMENT_POINT_FORGC_BUILTIN(cd, iptr)
+#define REPLACEMENT_POINT_FORGC_BUILTIN_RETURN(cd, iptr)
+
+#endif /* defined(ENABLE_GC_CACAO) */
+
 
 /*** prototypes ********************************************************/
 
@@ -236,7 +267,7 @@ void replace_free_replacement_points(codeinfo *code);
 void replace_activate_replacement_points(codeinfo *code, bool mappable);
 void replace_deactivate_replacement_points(codeinfo *code);
 
-void replace_me(rplpoint *rp,executionstate_t *es);
+bool replace_me_wrapper(u1 *pc, void *context);
 
 #if !defined(NDEBUG)
 void replace_show_replacement_points(codeinfo *code);
@@ -250,11 +281,18 @@ void replace_source_frame_println(sourceframe_t *frame);
 /* machine dependent functions (code in ARCH_DIR/md.c) */
 
 #if defined(ENABLE_JIT)
-void md_patch_replacement_point(codeinfo *code, s4 index, rplpoint *rp,
-                                                               u1 *savedmcode);
+void md_patch_replacement_point(u1 *pc, u1 *savedmcode, bool revert);
 #endif
 
-#endif
+/* machine and OS dependent functions (code in ARCH_DIR/OS_DIR/md-os.c) */
+
+void md_replace_executionstate_read(executionstate_t *es, void *context);
+void md_replace_executionstate_write(executionstate_t *es, void *context);
+
+#endif /* defined(ENABLE_REPLACEMENT) */
+
+#endif /* _REPLACE_H */
+
 
 /*
  * These are local overrides for various environment variables in Emacs.