-/* src/vm/jit/stacktrace.c
+/* src/vm/jit/stacktrace.c - machine independent stacktrace system
- Copyright (C) 1996-2005 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
+ 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
This file is part of CACAO.
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., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA.
-
- Contact: cacao@complang.tuwien.ac.at
-
- Authors: Joseph Wenninger
-
- Changes: Christian Thalinger
-
- $Id: stacktrace.c 3111 2005-07-27 10:33:58Z twisti $
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
*/
+#include "config.h"
+
#include <assert.h>
#include <stdlib.h>
#include <string.h>
-#include "config.h"
-#include "asmoffsets.h"
+#include "vm/types.h"
+
+#include "mm/gc-common.h"
+#include "mm/memory.h"
-#include "mm/boehm.h"
-#include "native/native.h"
+#include "vm/jit/stacktrace.h"
#include "vm/global.h" /* required here for native includes */
-#include "native/include/java_lang_ClassLoader.h"
+#include "native/jni.h"
+#include "native/llni.h"
+#include "native/include/java_lang_Throwable.h"
+
+#if defined(WITH_CLASSPATH_GNU)
+# include "native/include/java_lang_VMThrowable.h"
+#endif
+
+#if defined(ENABLE_THREADS)
+# include "threads/native/threads.h"
+#else
+# include "threads/none/threads.h"
+#endif
#include "toolbox/logging.h"
+
#include "vm/builtin.h"
-#include "vm/class.h"
+#include "vm/cycles-stats.h"
#include "vm/exceptions.h"
-#include "vm/loader.h"
#include "vm/stringlocal.h"
-#include "vm/tables.h"
-#include "vm/jit/asmpart.h"
-#include "vm/jit/codegen.inc.h"
+#include "vm/vm.h"
+#include "vm/jit/asmpart.h"
+#include "vm/jit/codegen-common.h"
+#include "vm/jit/methodheader.h"
-#undef JWDEBUG
-#undef JWDEBUG2
-#undef JWDEBUG3
+#include "vmcore/class.h"
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
-/* lineNumberTableEntry *******************************************************/
+/* global variables ***********************************************************/
+#if !defined(ENABLE_THREADS)
+stackframeinfo *_no_threads_stackframeinfo = NULL;
+#endif
-/* Keep the type of line the same as the pointer type, otherwise we run into */
-/* alignment troubles (like on MIPS64). */
+CYCLES_STATS_DECLARE(stacktrace_overhead ,100,1)
+CYCLES_STATS_DECLARE(stacktrace_fillInStackTrace,40,5000)
+CYCLES_STATS_DECLARE(stacktrace_getClassContext ,40,5000)
+CYCLES_STATS_DECLARE(stacktrace_getCurrentClass ,40,5000)
+CYCLES_STATS_DECLARE(stacktrace_getStack ,40,10000)
-typedef struct lineNumberTableEntry {
- ptrint line;
- u1 *pc;
-} lineNumberTableEntry;
+/* stacktrace_create_stackframeinfo ********************************************
-typedef struct lineNumberTableEntryInlineBegin {
- /* this should have the same layout and size as the lineNumberTableEntry */
- ptrint lineNrOuter;
- methodinfo *method;
-} lineNumberTableEntryInlineBegin;
+ Creates an stackframe info structure for inline code in the
+ interpreter.
+*******************************************************************************/
-typedef void(*CacaoStackTraceCollector)(void **,stackTraceBuffer*);
+#if defined(ENABLE_INTRP)
+void stacktrace_create_stackframeinfo(stackframeinfo *sfi, u1 *pv, u1 *sp,
+ u1 *ra)
+{
+ stackframeinfo **psfi;
+ methodinfo *m;
+ codeinfo *code;
-#define BLOCK_INITIALSIZE 40
-#define BLOCK_SIZEINCREMENT 40
+ /* get current stackframe info pointer */
+ psfi = &STACKFRAMEINFO;
-/* stacktrace_create_inline_stackframeinfo *************************************
+ /* if we don't have pv handy */
- Creates an stackframe info structure for an inline exception stub.
+ if (pv == NULL) {
+#if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ pv = codegen_get_pv_from_pc(ra);
+ else
+#endif
+ {
+#if defined(ENABLE_JIT)
+ pv = md_codegen_get_pv_from_pc(ra);
+#endif
+ }
+ }
-*******************************************************************************/
+ /* get codeinfo pointer from data segment */
-void stacktrace_create_inline_stackframeinfo(stackframeinfo *sfi, u1 *pv,
- u1 *sp, functionptr ra,
- functionptr xpc)
-{
- void **osfi;
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- /* get current stackframe info pointer */
+ /* For asm_vm_call_method the codeinfo pointer is NULL. */
- osfi = builtin_asm_get_stackframeinfo();
+ m = (code == NULL) ? NULL : code->m;
/* fill new stackframe info structure */
- sfi->oldThreadspecificHeadValue = *osfi;
- sfi->addressOfThreadspecificHead = osfi;
- sfi->method = NULL;
- sfi->pv = pv;
- sfi->sp = sp;
- sfi->ra = ra;
- sfi->xpc = xpc;
+ sfi->prev = *psfi;
+ sfi->method = m;
+ sfi->pv = pv;
+ sfi->sp = sp;
+ sfi->ra = ra;
+
+ /* xpc is the same as ra, but is required in stacktrace_create */
+
+ sfi->xpc = ra;
/* store new stackframe info pointer */
- *osfi = sfi;
+ *psfi = sfi;
}
+#endif /* defined(ENABLE_INTRP) */
/* stacktrace_create_extern_stackframeinfo *************************************
*******************************************************************************/
void stacktrace_create_extern_stackframeinfo(stackframeinfo *sfi, u1 *pv,
- u1 *sp, functionptr ra,
- functionptr xpc)
+ u1 *sp, u1 *ra, u1 *xpc)
{
- void **osfi;
-#if !defined(__I386__) && !defined(__X86_64__)
- bool isleafmethod;
+ stackframeinfo **psfi;
+#if !defined(__I386__) && !defined(__X86_64__) && !defined(__S390__) && !defined(__M68K__)
+ bool isleafmethod;
+#endif
+#if defined(ENABLE_JIT)
+ s4 framesize;
#endif
- s4 framesize;
/* get current stackframe info pointer */
- osfi = builtin_asm_get_stackframeinfo();
+ psfi = &STACKFRAMEINFO;
- /* sometimes we don't have pv handy (e.g. in asmpart.S: */
- /* L_asm_call_jit_compiler_exception) */
+ /* sometimes we don't have pv handy (e.g. in asmpart.S:
+ L_asm_call_jit_compiler_exception or in the interpreter). */
- if (pv == NULL)
- pv = (u1 *) (ptrint) codegen_findmethod(ra);
-
-#if defined(__I386__) || defined(__X86_64__)
- /* On i386 and x86_64 we always have to get the return address from the */
- /* stack. */
-
- framesize = *((u4 *) (pv + FrameSize));
+ if (pv == NULL) {
+#if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ pv = codegen_get_pv_from_pc(ra);
+ else
+#endif
+ {
+#if defined(ENABLE_JIT)
+# if defined(__SPARC_64__)
+ pv = md_get_pv_from_stackframe(sp);
+# else
+ pv = md_codegen_get_pv_from_pc(ra);
+# endif
+#endif
+ }
+ }
- ra = md_stacktrace_get_returnaddress(sp, framesize);
-#else
- /* If the method is a non-leaf function, we need to get the return */
- /* address from the stack. For leaf functions the return address is set */
- /* correctly. This makes the assembler and the signal handler code */
- /* simpler. */
+#if defined(ENABLE_JIT)
+# if defined(ENABLE_INTRP)
+ /* When using the interpreter, we pass RA to the function. */
- isleafmethod = *((s4 *) (pv + IsLeaf));
+ if (!opt_intrp) {
+# endif
+# if defined(__I386__) || defined(__X86_64__) || defined(__S390__) || defined(__M68K__)
+ /* On i386 and x86_64 we always have to get the return address
+ from the stack. */
+ /* m68k has return address on stack always */
+ /* On S390 we use REG_RA as REG_ITMP3, so we have always to get
+ the RA from stack. */
- if (!isleafmethod) {
framesize = *((u4 *) (pv + FrameSize));
ra = md_stacktrace_get_returnaddress(sp, framesize);
+# else
+ /* If the method is a non-leaf function, we need to get the return
+ address from the stack. For leaf functions the return address
+ is set correctly. This makes the assembler and the signal
+ handler code simpler. */
+
+ isleafmethod = *((s4 *) (pv + IsLeaf));
+
+ if (!isleafmethod) {
+ framesize = *((u4 *) (pv + FrameSize));
+
+ ra = md_stacktrace_get_returnaddress(sp, framesize);
+ }
+# endif
+# if defined(ENABLE_INTRP)
}
-#endif
+# endif
+#endif /* defined(ENABLE_JIT) */
/* fill new stackframe info structure */
- sfi->oldThreadspecificHeadValue = *osfi;
- sfi->addressOfThreadspecificHead = osfi;
+ sfi->prev = *psfi;
sfi->method = NULL;
- sfi->pv = pv;
- sfi->sp = sp;
- sfi->ra = ra;
- sfi->xpc = xpc;
+ sfi->pv = pv;
+ sfi->sp = sp;
+ sfi->ra = ra;
+ sfi->xpc = xpc;
/* store new stackframe info pointer */
- *osfi = sfi;
+ *psfi = sfi;
}
*******************************************************************************/
void stacktrace_create_native_stackframeinfo(stackframeinfo *sfi, u1 *pv,
- u1 *sp, functionptr ra)
+ u1 *sp, u1 *ra)
{
- void **osfi;
- methodinfo *m;
+ stackframeinfo **psfi;
+ methodinfo *m;
+ codeinfo *code;
+
+ /* get codeinfo pointer from data segment */
+
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- /* get methodinfo pointer from data segment */
+ /* For asm_vm_call_method the codeinfo pointer is NULL. */
- m = *((methodinfo **) (pv + MethodPointer));
+ m = (code == NULL) ? NULL : code->m;
/* get current stackframe info pointer */
- osfi = builtin_asm_get_stackframeinfo();
+ psfi = &STACKFRAMEINFO;
/* fill new stackframe info structure */
- sfi->oldThreadspecificHeadValue = *osfi;
- sfi->addressOfThreadspecificHead = osfi;
+ sfi->prev = *psfi;
sfi->method = m;
- sfi->pv = NULL;
- sfi->sp = sp;
- sfi->ra = ra;
- sfi->xpc = NULL;
+ sfi->pv = NULL;
+ sfi->sp = sp;
+ sfi->ra = ra;
+ sfi->xpc = NULL;
/* store new stackframe info pointer */
- *osfi = sfi;
+ *psfi = sfi;
}
/* stacktrace_remove_stackframeinfo ********************************************
- XXX
+ Remove the topmost stackframeinfo in the current thread.
*******************************************************************************/
void stacktrace_remove_stackframeinfo(stackframeinfo *sfi)
{
- void **osfi;
+ stackframeinfo **psfi;
- /* get address of pointer */
+ /* get current stackframe info pointer */
- osfi = sfi->addressOfThreadspecificHead;
+ psfi = &STACKFRAMEINFO;
/* restore the old pointer */
- *osfi = sfi->oldThreadspecificHeadValue;
+ *psfi = sfi->prev;
}
-/* stacktrace_inline_arithmeticexception ***************************************
+/* stacktrace_add_entry ********************************************************
- Creates an ArithemticException for inline stub.
+ Adds a new entry to the stacktrace buffer.
*******************************************************************************/
-java_objectheader *stacktrace_inline_arithmeticexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
+static void stacktrace_add_entry(stacktracebuffer *stb, methodinfo *m, u2 line)
{
- stackframeinfo sfi;
- java_objectheader *o;
-
- /* create stackframeinfo */
-
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
+ stacktrace_entry *ste;
- /* create exception */
+ /* check if we already reached the buffer capacity */
- o = new_arithmeticexception();
+ if (stb->used >= stb->capacity) {
+ /* reallocate new memory */
- /* remove stackframeinfo */
+ stb->entries = DMREALLOC(stb->entries, stacktrace_entry, stb->capacity,
+ stb->capacity + STACKTRACE_CAPACITY_INCREMENT);
- stacktrace_remove_stackframeinfo(&sfi);
-
- return o;
-}
+ /* set new buffer capacity */
+ stb->capacity = stb->capacity + STACKTRACE_CAPACITY_INCREMENT;
+ }
-/* stacktrace_inline_arrayindexoutofboundsexception ****************************
-
- Creates an ArrayIndexOutOfBoundsException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_arrayindexoutofboundsexception(u1 *pv,
- u1 *sp,
- functionptr ra,
- functionptr xpc,
- s4 index)
-{
- stackframeinfo sfi;
- java_objectheader *o;
-
- /* create stackframeinfo */
-
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
- /* create exception */
+ /* insert the current entry */
- o = new_arrayindexoutofboundsexception(index);
+ ste = &(stb->entries[stb->used]);
- /* remove stackframeinfo */
+ ste->method = m;
+ ste->linenumber = line;
- stacktrace_remove_stackframeinfo(&sfi);
+ /* increase entries used count */
- return o;
+ stb->used += 1;
}
-/* stacktrace_inline_arraystoreexception ***************************************
-
- Creates an ArrayStoreException for inline stub.
+/* stacktrace_add_method *******************************************************
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_arraystoreexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
-{
- stackframeinfo sfi;
- java_objectheader *o;
-
- /* create stackframeinfo */
-
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
- /* create exception */
-
- o = new_arraystoreexception();
-
- /* remove stackframeinfo */
-
- stacktrace_remove_stackframeinfo(&sfi);
-
- return o;
-}
+ Add stacktrace entries[1] for the given method to the stacktrace buffer.
+ IN:
+ stb.........stacktracebuffer to fill
+ m...........method for which entries should be created
+ pv..........pv of method
+ pc..........position of program counter within the method's code
-/* stacktrace_inline_classcastexception ****************************************
+ OUT:
+ true, if stacktrace entries were successfully created, false otherwise.
- Creates an ClassCastException for inline stub.
+ [1] In case of inlined methods there may be more than one stacktrace
+ entry for a codegen-level method. (see doc/inlining_stacktrace.txt)
*******************************************************************************/
-java_objectheader *stacktrace_inline_classcastexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
+static bool stacktrace_add_method(stacktracebuffer *stb, methodinfo *m, u1 *pv,
+ u1 *pc)
{
- stackframeinfo sfi;
- java_objectheader *o;
+ codeinfo *code; /* compiled realization of method */
+ s4 linenumber;
- /* create stackframeinfo */
+ /* find the realization of the method the pc is in */
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- /* create exception */
+ /* search the line number table */
- o = new_classcastexception();
+ linenumber = dseg_get_linenumber_from_pc(&m, pv, pc);
- /* remove stackframeinfo */
-
- stacktrace_remove_stackframeinfo(&sfi);
-
- return o;
-}
-
-
-/* stacktrace_inline_negativearraysizeexception ********************************
-
- Creates an NegativeArraySizeException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_negativearraysizeexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
-{
- stackframeinfo sfi;
- java_objectheader *o;
+ /* now add a new entry to the staktrace */
- /* create stackframeinfo */
+ stacktrace_add_entry(stb, m, linenumber);
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
- /* create exception */
-
- o = new_negativearraysizeexception();
-
- /* remove stackframeinfo */
-
- stacktrace_remove_stackframeinfo(&sfi);
-
- return o;
+ return true;
}
-/* stacktrace_inline_nullpointerexception **************************************
-
- Creates an NullPointerException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_nullpointerexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
-{
- stackframeinfo sfi;
- java_objectheader *o;
+/* stacktrace_create ***********************************************************
- /* create stackframeinfo */
+ Generates a stacktrace from the thread passed into a
+ stacktracebuffer. The stacktracebuffer is allocated on the
+ dump memory.
+
+ NOTE: The first element in the stackframe chain must always be a
+ native stackframeinfo (e.g. VMThrowable.fillInStackTrace() is
+ a native function).
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
- /* create exception */
-
- o = new_nullpointerexception();
-
- /* remove stackframeinfo */
-
- stacktrace_remove_stackframeinfo(&sfi);
-
- return o;
-}
-
-
-/* stacktrace_hardware_arithmeticexception *************************************
-
- Creates an ArithemticException for inline stub.
+ RETURN VALUE:
+ pointer to the stacktracebuffer, or
+ NULL if there is no stacktrace available for the
+ given thread.
*******************************************************************************/
-java_objectheader *stacktrace_hardware_arithmeticexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
+stacktracebuffer *stacktrace_create(stackframeinfo *sfi)
{
- stackframeinfo sfi;
- java_objectheader *o;
-
- /* create stackframeinfo */
+ stacktracebuffer *stb;
+ methodinfo *m;
+ codeinfo *code;
+ u1 *pv;
+ u1 *sp;
+ u4 framesize;
+ u1 *ra;
+ u1 *xpc;
- stacktrace_create_extern_stackframeinfo(&sfi, pv, sp, ra, xpc);
+ /* prevent compiler warnings */
- /* create exception */
+ pv = NULL;
+ sp = NULL;
+ ra = NULL;
- o = new_arithmeticexception();
+ /* create a stacktracebuffer in dump memory */
- /* remove stackframeinfo */
+ stb = DNEW(stacktracebuffer);
- stacktrace_remove_stackframeinfo(&sfi);
+ stb->capacity = STACKTRACE_CAPACITY_DEFAULT;
+ stb->used = 0;
+ stb->entries = DMNEW(stacktrace_entry, STACKTRACE_CAPACITY_DEFAULT);
- return o;
-}
+#define PRINTMETHODS 0
+#if PRINTMETHODS
+ printf("\n\nfillInStackTrace start:\n");
+ fflush(stdout);
+#endif
-/* stacktrace_hardware_nullpointerexception ************************************
+ /* Loop while we have a method pointer (asm_calljavafunction has
+ NULL) or there is a stackframeinfo in the chain. */
- Creates an NullPointerException for the SIGSEGV signal handler.
+ m = NULL;
-*******************************************************************************/
+ while ((m != NULL) || (sfi != NULL)) {
+ /* m == NULL should only happen for the first time and inline
+ stackframe infos, like from the exception stubs or the
+ patcher wrapper. */
-java_objectheader *stacktrace_hardware_nullpointerexception(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
-{
- stackframeinfo sfi;
- java_objectheader *o;
+ if (m == NULL) {
+ /* for native stub stackframe infos, pv is always NULL */
- /* create stackframeinfo */
+ if (sfi->pv == NULL) {
+ /* get methodinfo, sp and ra from the current stackframe info */
- stacktrace_create_extern_stackframeinfo(&sfi, pv, sp, ra, xpc);
+ m = sfi->method;
+ sp = sfi->sp; /* sp of parent Java function */
+ ra = sfi->ra;
- /* create exception */
+ if (m)
+ stacktrace_add_entry(stb, m, 0);
- o = new_nullpointerexception();
+#if PRINTMETHODS
+ printf("ra=%p sp=%p, ", ra, sp);
+ method_print(m);
+ printf(": native stub\n");
+ fflush(stdout);
+#endif
+ /* This is an native stub stackframe info, so we can
+ get the parent pv from the return address
+ (ICMD_INVOKE*). */
+
+#if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ pv = codegen_get_pv_from_pc(ra);
+ else
+#endif
+ {
+#if defined(ENABLE_JIT)
+ pv = md_codegen_get_pv_from_pc(ra);
+#endif
+ }
- /* remove stackframeinfo */
+ /* get methodinfo pointer from parent data segment */
- stacktrace_remove_stackframeinfo(&sfi);
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- return o;
-}
+ /* For asm_vm_call_method the codeinfo pointer is
+ NULL. */
+ m = (code == NULL) ? NULL : code->m;
-/* stacktrace_inline_fillInStackTrace ******************************************
+ } else {
+ /* Inline stackframe infos are special: they have a
+ xpc of the actual exception position and the return
+ address saved since an inline stackframe info can
+ also be in a leaf method (no return address saved
+ on stack!!!). ATTENTION: This one is also for
+ hardware exceptions!!! */
- Fills in the correct stacktrace into an existing exception object
- (this one is for inline exception stubs).
+ /* get methodinfo, sp and ra from the current stackframe info */
-*******************************************************************************/
+ m = sfi->method; /* m == NULL */
+ pv = sfi->pv; /* pv of parent Java function */
+ sp = sfi->sp; /* sp of parent Java function */
+ ra = sfi->ra; /* ra of parent Java function */
+ xpc = sfi->xpc; /* actual exception position */
-java_objectheader *stacktrace_inline_fillInStackTrace(u1 *pv, u1 *sp,
- functionptr ra,
- functionptr xpc)
-{
- stackframeinfo sfi;
- java_objectheader *o;
- methodinfo *m;
+#if PRINTMETHODS
+ printf("ra=%p sp=%p, ", ra, sp);
+ printf("NULL: inline stub\n");
+ fflush(stdout);
+#endif
- /* create stackframeinfo */
+ /* get methodinfo from current Java method */
- stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- /* get exception */
+ /* For asm_vm_call_method the codeinfo pointer is
+ NULL. */
- o = *exceptionptr;
+ m = (code == NULL) ? NULL : code->m;
- /* clear exception */
+ /* if m == NULL, this is a asm_calljavafunction call */
- *exceptionptr = NULL;
+ if (m != NULL) {
+#if PRINTMETHODS
+ printf("ra=%p sp=%p, ", ra, sp);
+ method_print(m);
+ printf(": inline stub parent");
+ fflush(stdout);
+#endif
- /* resolve methodinfo pointer from exception object */
+#if defined(ENABLE_INTRP)
+ if (!opt_intrp) {
+#endif
- m = class_resolvemethod(o->vftbl->class,
- utf_fillInStackTrace,
- utf_void__java_lang_Throwable);
+ /* add the method to the stacktrace */
- /* call function */
+ stacktrace_add_method(stb, m, pv, (u1 *) ((ptrint) xpc));
- asm_calljavafunction(m, o, NULL, NULL, NULL);
+ /* get the current stack frame size */
- /* remove stackframeinfo */
+ framesize = *((u4 *) (pv + FrameSize));
- stacktrace_remove_stackframeinfo(&sfi);
+#if PRINTMETHODS
+ printf(", framesize=%d\n", framesize);
+ fflush(stdout);
+#endif
- return o;
-}
+ /* Set stack pointer to stackframe of parent Java
+ function of the current Java function. */
+#if defined(__I386__) || defined (__X86_64__) || defined (__M68K__)
+ sp += framesize + SIZEOF_VOID_P;
+#elif defined(__SPARC_64__)
+ sp = md_get_framepointer(sp);
+#else
+ sp += framesize;
+#endif
-/* addEntry ********************************************************************
+ /* get data segment and methodinfo pointer from
+ parent method */
- XXX
+#if defined(ENABLE_JIT)
+ pv = md_codegen_get_pv_from_pc(ra);
+#endif
-*******************************************************************************/
+ code = *((codeinfo **) (pv + CodeinfoPointer));
-static void addEntry(stackTraceBuffer *buffer, methodinfo *method, u2 line)
-{
- if (buffer->size > buffer->full) {
- stacktraceelement *tmp = &(buffer->start[buffer->full]);
+ /* For asm_vm_call_method the codeinfo pointer is
+ NULL. */
- tmp->method = method;
- tmp->linenumber = line;
- buffer->full = buffer->full + 1;
+ m = (code == NULL) ? NULL : code->m;
- } else {
- stacktraceelement *newBuffer;
+#if defined(ENABLE_INTRP)
+ }
+#endif
+ }
+#if PRINTMETHODS
+ else {
+ printf("ra=%p sp=%p, ", ra, sp);
+ printf("asm_calljavafunction\n");
+ fflush(stdout);
+ }
+#endif
+ }
- newBuffer =
- (stacktraceelement *) malloc((buffer->size + BLOCK_SIZEINCREMENT) *
- sizeof(stacktraceelement));
+ /* get previous stackframeinfo in the chain */
- if (newBuffer == 0) {
- log_text("OOM during stacktrace creation");
- assert(0);
- }
+ sfi = sfi->prev;
- memcpy(newBuffer, buffer->start, buffer->size * sizeof(stacktraceelement));
- if (buffer->needsFree)
- free(buffer->start);
+ } else {
+#if PRINTMETHODS
+ printf("ra=%p sp=%p, ", ra, sp);
+ method_print(m);
+ printf(": JIT");
+ fflush(stdout);
+#endif
- buffer->start = newBuffer;
- buffer->size = buffer->size + BLOCK_SIZEINCREMENT;
- buffer->needsFree = 1;
+ /* JIT method found, add it to the stacktrace (we subtract
+ 1 from the return address since it points the the
+ instruction after call). */
- addEntry(buffer, method, line);
- }
-}
+ stacktrace_add_method(stb, m, pv, (u1 *) ((ptrint) ra) - 1);
+ /* get the current stack frame size */
-/* stacktrace_fillInStackTrace_methodRecursive *********************************
+ framesize = *((u4 *) (pv + FrameSize));
- XXX
+#if PRINTMETHODS
+ printf(", framesize=%d\n", framesize);
+ fflush(stdout);
+#endif
-*******************************************************************************/
+ /* get return address of current stack frame */
-static bool stacktrace_fillInStackTrace_methodRecursive(stackTraceBuffer *buffer,
- methodinfo *m,
- lineNumberTableEntry *lntentry,
- s4 lntsize,
- u1 *pc)
-{
-#if 0
- lineNumberTableEntryInlineBegin *lntinline;
+#if defined(ENABLE_JIT)
+# if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ ra = intrp_md_stacktrace_get_returnaddress(sp, framesize);
+ else
+# endif
+ ra = md_stacktrace_get_returnaddress(sp, framesize);
+#else
+ ra = intrp_md_stacktrace_get_returnaddress(sp, framesize);
#endif
- /* find the line number for the specified pc (going backwards) */
+ /* get data segment and methodinfo pointer from parent method */
- for (; lntsize > 0; lntsize--, lntentry--) {
- /* did we reach the current line? */
+#if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ pv = codegen_get_pv_from_pc(ra);
+ else
+#endif
+ {
+#if defined(ENABLE_JIT)
+# if defined(__SPARC_64__)
+ sp = md_get_framepointer(sp);
+ pv = md_get_pv_from_stackframe(sp);
+# else
+ pv = md_codegen_get_pv_from_pc(ra);
+# endif
+#endif
+ }
- if (pc >= lntentry->pc) {
- /* check for special inline entries */
+ code = *((codeinfo **) (pv + CodeinfoPointer));
- switch (lntentry->line) {
-#if 0
- /* XXX TWISTI we have to think about this inline stuff again */
+ /* For asm_vm_call_method the codeinfo pointer is NULL. */
- case -1: /* begin of inlined method */
- lntinline = (lineNumberTableEntryInlineBegin *) (--lntentry);
- lntentry++;
- lntsize--; lntsize--;
- if (stacktrace_fillInStackTrace_methodRecursive(buffer,
- ilStart->method,
- ent,
- &ent,
- &ahead,
- pc)) {
- addEntry(buffer, m, ilStart->lineNrOuter);
+ m = (code == NULL) ? NULL : code->m;
- return true;
- }
- break;
+ /* walk the stack */
- case -2: /* end of inlined method */
- *entry = ent;
- *entriesAhead = ahead;
- return false;
- break;
+#if defined(ENABLE_INTRP)
+ if (opt_intrp)
+ sp = *(u1 **) (sp - framesize);
+ else
#endif
-
- default:
- addEntry(buffer, m, lntentry->line);
- return true;
- }
+ {
+#if defined(__I386__) || defined (__X86_64__) || defined (__M68K__)
+ sp += framesize + SIZEOF_VOID_P;
+#elif defined(__SPARC_64__)
+ /* already has the new sp */
+#else
+ sp += framesize;
+#endif
+ }
}
}
- /* check if we are before the actual JIT code */
-
- if ((ptrint) pc < (ptrint) m->entrypoint) {
- dolog("Current pc before start of code: %p < %p", pc, m->entrypoint);
- assert(0);
- }
+ /* return the stacktracebuffer */
- /* otherwise just add line 0 */
-
- addEntry(buffer, m, 0);
-
- return true;
+ if (stb->used == 0)
+ return NULL;
+ else
+ return stb;
}
-/* stacktrace_fillInStackTrace_method ******************************************
+/* stacktrace_fillInStackTrace *************************************************
- XXX
+ Generate a stacktrace from the current thread for
+ java.lang.VMThrowable.fillInStackTrace.
*******************************************************************************/
-static void stacktrace_fillInStackTrace_method(stackTraceBuffer *buffer,
- methodinfo *method, u1 *pv,
- u1 *pc)
+stacktracecontainer *stacktrace_fillInStackTrace(void)
{
- ptrint lntsize; /* size of line number table */
- u1 *lntstart; /* start of line number table */
- lineNumberTableEntry *lntentry; /* points to last entry in the table */
+ stacktracebuffer *stb;
+ stacktracecontainer *gcstc;
+ s4 gcstc_size;
+ s4 dumpsize;
+ CYCLES_STATS_DECLARE_AND_START_WITH_OVERHEAD
- /* get size of line number table */
+ /* mark start of dump memory area */
- lntsize = *((ptrint *) (pv + LineNumberTableSize));
- lntstart = *((u1 **) (pv + LineNumberTableStart));
+ dumpsize = dump_size();
- /* subtract the size of the line number entry of the structure, since the */
- /* line number table start points to the pc */
+ /* create a stacktrace from the current thread */
- lntentry = (lineNumberTableEntry *) (lntstart - SIZEOF_VOID_P);
+ stb = stacktrace_create(STACKFRAMEINFO);
- if (lntsize == 0) {
- /* this happens when an exception is thrown in the native stub */
+ if (stb == NULL)
+ goto return_NULL;
- addEntry(buffer, method, 0);
+ /* allocate memory from the GC heap and copy the stacktrace buffer */
+ /* ATTENTION: use stacktracecontainer for this and make it look like
+ an array */
- } else {
- if (!stacktrace_fillInStackTrace_methodRecursive(buffer,
- method,
- lntentry,
- lntsize,
- pc)) {
- log_text("Trace point not found in suspected method");
- assert(0);
- }
- }
-}
+ gcstc_size = sizeof(stacktracebuffer) +
+ sizeof(stacktrace_entry) * stb->used;
+ gcstc = (stacktracecontainer *) builtin_newarray_byte(gcstc_size);
+ if (gcstc == NULL)
+ goto return_NULL;
-/* cacao_stacktrace_fillInStackTrace *******************************************
+ gcstc->stb.capacity = stb->capacity;
+ gcstc->stb.used = stb->used;
+ gcstc->stb.entries = gcstc->data;
- XXX
+ MCOPY(gcstc->data, stb->entries, stacktrace_entry, stb->used);
-*******************************************************************************/
+ /* release dump memory */
-void cacao_stacktrace_fillInStackTrace(void **target,
- CacaoStackTraceCollector coll)
-{
- stacktraceelement primaryBlock[BLOCK_INITIALSIZE*sizeof(stacktraceelement)];
- stackTraceBuffer buffer;
- stackframeinfo *info;
- methodinfo *m;
- u1 *pv;
- u1 *sp;
- u4 framesize;
- functionptr ra;
- functionptr xpc;
+ dump_release(dumpsize);
- /* prevent compiler warnings */
+ CYCLES_STATS_END_WITH_OVERHEAD(stacktrace_fillInStackTrace,
+ stacktrace_overhead)
+ return gcstc;
- pv = NULL;
- sp = NULL;
- ra = NULL;
+return_NULL:
+ dump_release(dumpsize);
- /* In most cases this should be enough -> one malloc less. I don't think */
- /* temporary data should be allocated with the GC, only the result. */
+ CYCLES_STATS_END_WITH_OVERHEAD(stacktrace_fillInStackTrace,
+ stacktrace_overhead)
- buffer.needsFree = 0;
- buffer.start = primaryBlock;
- buffer.size = BLOCK_INITIALSIZE; /* *sizeof(stacktraceelement); */
- buffer.full = 0;
+ return NULL;
+}
- /* the first element in the stackframe chain must always be a native */
- /* stackframeinfo (VMThrowable.fillInStackTrace is a native function) */
- info = *((void **) builtin_asm_get_stackframeinfo());
+/* stacktrace_getClassContext **************************************************
- if (!info) {
- *target = NULL;
- return;
- }
+ Creates a Class context array.
-#define PRINTMETHODS 0
+ RETURN VALUE:
+ the array of java.lang.Class objects, or
+ NULL if an exception has been thrown
-#if PRINTMETHODS
- printf("\n\nfillInStackTrace start:\n");
-#endif
+*******************************************************************************/
- /* loop while we have a method pointer (asm_calljavafunction has NULL) or */
- /* there is a stackframeinfo in the chain */
+java_handle_objectarray_t *stacktrace_getClassContext(void)
+{
+ stacktracebuffer *stb;
+ stacktrace_entry *ste;
+ java_handle_objectarray_t *oa;
+ s4 oalength;
+ s4 i;
+ s4 dumpsize;
+ CYCLES_STATS_DECLARE_AND_START
- m = NULL;
+ /* mark start of dump memory area */
- while (m || info) {
- /* m == NULL should only happen for the first time and inline */
- /* stackframe infos, like from the exception stubs or the patcher */
- /* wrapper */
+ dumpsize = dump_size();
- if (m == NULL) {
- /* for native stub stackframe infos, pv is always NULL */
+ /* create a stacktrace for the current thread */
- if (info->pv == NULL) {
- /* get methodinfo, sp and ra from the current stackframe info */
+ stb = stacktrace_create(STACKFRAMEINFO);
- m = info->method;
- sp = info->sp; /* sp of parent Java function */
- ra = info->ra;
+ if (stb == NULL)
+ goto return_NULL;
- if (m)
- addEntry(&buffer, m, 0);
+ /* calculate the size of the Class array */
-#if PRINTMETHODS
- utf_display_classname(m->class->name);
- printf(".");
- utf_display(m->name);
- utf_display(m->descriptor);
- printf(": native stub\n");
-#endif
- /* this is an native stub stackframe info, so we can get the */
- /* parent pv from the return address (ICMD_INVOKE*) */
+ for (i = 0, oalength = 0; i < stb->used; i++)
+ if (stb->entries[i].method != NULL)
+ oalength++;
- pv = (u1 *) (ptrint) codegen_findmethod(ra);
+ /* The first entry corresponds to the method whose implementation */
+ /* calls stacktrace_getClassContext. We remove that entry. */
- /* get methodinfo pointer from parent data segment */
+ ste = &(stb->entries[0]);
+ ste++;
+ oalength--;
- m = *((methodinfo **) (pv + MethodPointer));
+ /* allocate the Class array */
- } else {
- /* Inline stackframe infos are special: they have a xpc of */
- /* the actual exception position and the return address saved */
- /* since an inline stackframe info can also be in a leaf */
- /* method (no return address saved on stack!!!). */
- /* ATTENTION: This one is also for hardware exceptions!!! */
+ oa = builtin_anewarray(oalength, class_java_lang_Class);
+ if (!oa)
+ goto return_NULL;
- /* get methodinfo, sp and ra from the current stackframe info */
+ /* fill the Class array from the stacktracebuffer */
- m = info->method; /* m == NULL */
- pv = info->pv; /* pv of parent Java function */
- sp = info->sp; /* sp of parent Java function */
- ra = info->ra; /* ra of parent Java function */
- xpc = info->xpc; /* actual exception position */
+ for(i = 0; i < oalength; i++, ste++) {
+ if (ste->method == NULL) {
+ i--;
+ continue;
+ }
-#if PRINTMETHODS
- printf("NULL: inline stub\n");
-#endif
+ oa->data[i] = (java_object_t *) ste->method->class;
+ }
- /* get methodinfo from current Java method */
+ /* release dump memory */
- m = *((methodinfo **) (pv + MethodPointer));
+ dump_release(dumpsize);
- /* if m == NULL, this is a asm_calljavafunction call */
+ CYCLES_STATS_END(stacktrace_getClassContext)
- if (m != NULL) {
-#if PRINTMETHODS
- utf_display_classname(m->class->name);
- printf(".");
- utf_display(m->name);
- utf_display(m->descriptor);
- printf(": inline stub parent\n");
-#endif
+ return oa;
- /* add it to the stacktrace */
+return_NULL:
+ dump_release(dumpsize);
- stacktrace_fillInStackTrace_method(&buffer, m, pv,
- (u1 *) ((ptrint) xpc));
+ CYCLES_STATS_END(stacktrace_getClassContext)
- /* get the current stack frame size */
+ return NULL;
+}
- framesize = *((u4 *) (pv + FrameSize));
- /* set stack pointer to stackframe of parent Java */
- /* function of the current Java function */
+/* stacktrace_getCurrentClass **************************************************
-#if defined(__I386__) || defined (__X86_64__)
- sp += framesize + SIZEOF_VOID_P;
-#else
- sp += framesize;
-#endif
+ Find the current class by walking the stack trace.
- /* get data segment and methodinfo pointer from parent */
- /* method */
+ Quote from the JNI documentation:
+
+ In the Java 2 Platform, FindClass locates the class loader
+ associated with the current native method. If the native code
+ belongs to a system class, no class loader will be
+ involved. Otherwise, the proper class loader will be invoked to
+ load and link the named class. When FindClass is called through the
+ Invocation Interface, there is no current native method or its
+ associated class loader. In that case, the result of
+ ClassLoader.getBaseClassLoader is used."
- pv = (u1 *) (ptrint) codegen_findmethod(ra);
- m = *((methodinfo **) (pv + MethodPointer));
- }
- }
+*******************************************************************************/
- /* get next stackframeinfo in the chain */
+#if defined(ENABLE_JAVASE)
+classinfo *stacktrace_getCurrentClass(void)
+{
+ stacktracebuffer *stb;
+ stacktrace_entry *ste;
+ methodinfo *m;
+ s4 i;
+ s4 dumpsize;
+ CYCLES_STATS_DECLARE_AND_START
- info = info->oldThreadspecificHeadValue;
+ /* mark start of dump memory area */
- } else {
-#if PRINTMETHODS
- utf_display_classname(m->class->name);
- printf(".");
- utf_display(m->name);
- utf_display(m->descriptor);
- printf(": JIT\n");
-#endif
+ dumpsize = dump_size();
- /* JIT method found, add it to the stacktrace (we subtract 1 from */
- /* the return address since it points the the instruction after */
- /* call) */
+ /* create a stacktrace for the current thread */
- stacktrace_fillInStackTrace_method(&buffer, m, pv,
- (u1 *) ((ptrint) ra) - 1);
+ stb = stacktrace_create(STACKFRAMEINFO);
- /* get the current stack frame size */
+ if (stb == NULL)
+ goto return_NULL; /* XXX exception: how to distinguish from normal NULL return? */
- framesize = *((u4 *) (pv + FrameSize));
+ /* iterate over all stacktrace entries and find the first suitable
+ class */
- /* get return address of current stack frame */
+ for (i = 0, ste = &(stb->entries[0]); i < stb->used; i++, ste++) {
+ m = ste->method;
- ra = md_stacktrace_get_returnaddress(sp, framesize);
+ if (m == NULL)
+ continue;
- /* get data segment and methodinfo pointer from parent method */
+ if (m->class == class_java_security_PrivilegedAction)
+ goto return_NULL;
- pv = (u1 *) (ptrint) codegen_findmethod(ra);
- m = *((methodinfo **) (pv + MethodPointer));
+ if (m->class != NULL) {
+ dump_release(dumpsize);
- /* walk the stack */
+ CYCLES_STATS_END(stacktrace_getCurrentClass)
-#if defined(__I386__) || defined (__X86_64__)
- sp += framesize + SIZEOF_VOID_P;
-#else
- sp += framesize;
-#endif
+ return m->class;
}
}
-
- if (coll)
- coll(target, &buffer);
-
- if (buffer.needsFree)
- free(buffer.start);
-}
+ /* no Java method found on the stack */
-static
-void stackTraceCollector(void **target, stackTraceBuffer *buffer) {
- stackTraceBuffer *dest=*target=heap_allocate(sizeof(stackTraceBuffer)+buffer->full*sizeof(stacktraceelement),true,0);
- memcpy(*target,buffer,sizeof(stackTraceBuffer));
- memcpy(dest+1,buffer->start,buffer->full*sizeof(stacktraceelement));
+return_NULL:
+ dump_release(dumpsize);
- dest->needsFree=0;
- dest->size=dest->full;
- dest->start=(stacktraceelement*)(dest+1);
+ CYCLES_STATS_END(stacktrace_getCurrentClass)
- /*
- if (buffer->full>0) {
- printf("SOURCE BUFFER:%s\n",buffer->start[0].method->name->text);
- printf("DEST BUFFER:%s\n",dest->start[0].method->name->text);
- } else printf("Buffer is empty\n");
- */
+ return NULL;
}
+#endif /* ENABLE_JAVASE */
-void cacao_stacktrace_NormalTrace(void **target)
-{
- cacao_stacktrace_fillInStackTrace(target, &stackTraceCollector);
-}
+/* stacktrace_getStack *********************************************************
+ Create a 2-dimensional array for java.security.VMAccessControler.
+ RETURN VALUE:
+ the arrary, or
+ NULL if an exception has been thrown
-static void classContextCollector(void **target, stackTraceBuffer *buffer)
+*******************************************************************************/
+
+#if defined(ENABLE_JAVASE)
+java_handle_objectarray_t *stacktrace_getStack(void)
{
- java_objectarray *tmpArray;
- stacktraceelement *current;
- stacktraceelement *start;
- size_t size;
- size_t targetSize;
- s4 i;
-
- size = buffer->full;
- targetSize = 0;
-
- for (i = 0; i < size; i++)
- if (buffer->start[i].method != 0)
- targetSize++;
-
- start = buffer->start;
- start++;
- targetSize--;
-
- if (targetSize > 0) {
- if (start->method && (start->method->class == class_java_lang_SecurityManager)) {
- targetSize--;
- start++;
- }
- }
+ stacktracebuffer *stb;
+ stacktrace_entry *ste;
+ java_handle_objectarray_t *oa;
+ java_handle_objectarray_t *classes;
+ java_handle_objectarray_t *methodnames;
+ classinfo *c;
+ java_handle_t *string;
+ s4 i;
+ s4 dumpsize;
+ CYCLES_STATS_DECLARE_AND_START
- tmpArray = builtin_anewarray(targetSize, class_java_lang_Class);
+ /* mark start of dump memory area */
- for(i = 0, current = start; i < targetSize; i++, current++) {
- /* XXX TWISTI: should we use this skipping for native stubs? */
+ dumpsize = dump_size();
- if (!current->method) {
- i--;
- continue;
- }
+ /* create a stacktrace for the current thread */
- use_class_as_object(current->method->class);
+ stb = stacktrace_create(STACKFRAMEINFO);
- tmpArray->data[i] = (java_objectheader *) current->method->class;
- }
+ if (stb == NULL)
+ goto return_NULL;
- *target = tmpArray;
-}
+ /* get the first stacktrace entry */
+ ste = &(stb->entries[0]);
+ /* allocate all required arrays */
-java_objectarray *cacao_createClassContextArray(void)
-{
- java_objectarray *array=0;
+ oa = builtin_anewarray(2, arrayclass_java_lang_Object);
- cacao_stacktrace_fillInStackTrace((void **) &array, &classContextCollector);
+ if (oa == NULL)
+ goto return_NULL;
- return array;
-}
+ classes = builtin_anewarray(stb->used, class_java_lang_Class);
+ if (classes == NULL)
+ goto return_NULL;
-/* stacktrace_classLoaderCollector *********************************************
+ methodnames = builtin_anewarray(stb->used, class_java_lang_String);
- XXX
+ if (methodnames == NULL)
+ goto return_NULL;
-*******************************************************************************/
+ /* set up the 2-dimensional array */
-static void stacktrace_classLoaderCollector(void **target,
- stackTraceBuffer *buffer)
-{
- stacktraceelement *current;
- stacktraceelement *start;
- methodinfo *m;
- ptrint size;
- s4 i;
+ oa->data[0] = (java_object_t *) classes;
+ oa->data[1] = (java_object_t *) methodnames;
- size = buffer->full;
- start = &(buffer->start[0]);
+ /* iterate over all stacktrace entries */
- for(i = 0, current = start; i < size; i++, current++) {
- m = current->method;
+ for (i = 0, ste = &(stb->entries[0]); i < stb->used; i++, ste++) {
+ c = ste->method->class;
- if (!m)
- continue;
+ classes->data[i] = (java_object_t *) c;
- if (m->class == class_java_security_PrivilegedAction) {
- *target = NULL;
- return;
- }
+ string = javastring_new(ste->method->name);
- if (m->class->classloader) {
- *target = (java_lang_ClassLoader *) m->class->classloader;
- return;
- }
+ if (string == NULL)
+ goto return_NULL;
+
+ methodnames->data[i] = string;
}
- *target = NULL;
-}
+ /* return the 2-dimensional array */
+ dump_release(dumpsize);
-/* cacao_currentClassLoader ****************************************************
+ CYCLES_STATS_END(stacktrace_getStack)
- XXX
+ return oa;
-*******************************************************************************/
+return_NULL:
+ dump_release(dumpsize);
-java_objectheader *cacao_currentClassLoader(void)
-{
- java_objectheader *header=0;
-
- cacao_stacktrace_fillInStackTrace((void**)&header,
- &stacktrace_classLoaderCollector);
+ CYCLES_STATS_END(stacktrace_getStack)
- return header;
+ return NULL;
}
+#endif /* ENABLE_JAVASE */
-static
-void callingMethodCollector(void **target, stackTraceBuffer *buffer) {
- if (buffer->full >2) (*target)=buffer->start[2].method;
- else (*target=0);
-}
+/* stacktrace_print_trace_from_buffer ******************************************
-methodinfo *cacao_callingMethod() {
- methodinfo *method;
- cacao_stacktrace_fillInStackTrace((void**)&method,&callingMethodCollector);
- return method;
-}
+ Print the stacktrace of a given stacktracebuffer with CACAO intern
+ methods (no Java help). This method is used by
+ stacktrace_dump_trace and builtin_trace_exception.
+*******************************************************************************/
-static
-void getStackCollector(void **target, stackTraceBuffer *buffer)
+void stacktrace_print_trace_from_buffer(stacktracebuffer *stb)
{
- java_objectarray *classes;
- java_objectarray *methodnames;
- java_objectarray **result=(java_objectarray**)target;
- java_lang_String *str;
- classinfo *c;
- stacktraceelement *current;
- int i,size;
-
- /*log_text("getStackCollector");*/
-
- size = buffer->full;
+ stacktrace_entry *ste;
+ methodinfo *m;
+ s4 i;
- *result = builtin_anewarray(2, arrayclass_java_lang_Object);
+ ste = &(stb->entries[0]);
- if (!(*result))
- return;
+ for (i = 0; i < stb->used; i++, ste++) {
+ m = ste->method;
- classes = builtin_anewarray(size, class_java_lang_Class);
-
- if (!classes)
- return;
+ printf("\tat ");
+ utf_display_printable_ascii_classname(m->class->name);
+ printf(".");
+ utf_display_printable_ascii(m->name);
+ utf_display_printable_ascii(m->descriptor);
- methodnames = builtin_anewarray(size, class_java_lang_String);
+ if (m->flags & ACC_NATIVE) {
+ puts("(Native Method)");
- if (!methodnames)
- return;
-
- (*result)->data[0] = (java_objectheader *) classes;
- (*result)->data[1] = (java_objectheader *) methodnames;
-
- /*log_text("Before for loop");*/
- for (i = 0, current = &(buffer->start[0]); i < size; i++, current++) {
- /*log_text("In loop");*/
- c = current->method->class;
- use_class_as_object(c);
- classes->data[i] = (java_objectheader *) c;
- str = javastring_new(current->method->name);
- if (!str)
- return;
- methodnames->data[i] = (java_objectheader *) str;
- /*printf("getStackCollector: %s.%s\n",c->name->text,current->method->name->text);*/
+ } else {
+ printf("(");
+ utf_display_printable_ascii(m->class->sourcefile);
+ printf(":%d)\n", (u4) ste->linenumber);
+ }
}
- /*if (*exceptionptr) panic("Exception in getStackCollector");*/
-
- /*log_text("loop left");*/
- return;
-
-}
-
-
-java_objectarray *cacao_getStackForVMAccessController(void)
-{
- java_objectarray *result = NULL;
+ /* just to be sure */
- cacao_stacktrace_fillInStackTrace((void **) &result, &getStackCollector);
-
- return result;
+ fflush(stdout);
}
-/* stacktrace_dump_trace *******************************************************
+/* stacktrace_print_trace ******************************************************
- This method is call from signal_handler_sigusr1 to dump the
- stacktrace of the current thread to stdout.
+ Print the stacktrace of a given exception. More or less a wrapper
+ to stacktrace_print_trace_from_buffer.
*******************************************************************************/
-void stacktrace_dump_trace(void)
+void stacktrace_print_trace(java_handle_t *xptr)
{
- stackTraceBuffer *buffer;
- stacktraceelement *element;
- methodinfo *m;
- s4 i;
-
-#if 0
- /* get thread stackframeinfo */
-
- info = &THREADINFO->_stackframeinfo;
-
- /* fill stackframeinfo structure */
-
- tmp.oldThreadspecificHeadValue = *info;
- tmp.addressOfThreadspecificHead = info;
- tmp.method = NULL;
- tmp.sp = NULL;
- tmp.ra = _mc->gregs[REG_RIP];
-
- *info = &tmp;
+ java_lang_Throwable *t;
+#if defined(WITH_CLASSPATH_GNU)
+ java_lang_VMThrowable *vmt;
#endif
+ stacktracecontainer *stc;
+ stacktracebuffer *stb;
- /* generate stacktrace */
-
- cacao_stacktrace_NormalTrace((void **) &buffer);
+ t = (java_lang_Throwable *) xptr;
- /* print stacktrace */
-
- if (buffer) {
- element = buffer->start;
+ if (t == NULL)
+ return;
- for (i = 0; i < buffer->size; i++, element++) {
- m = element->method;
+ /* now print the stacktrace */
- printf("\tat ");
- utf_display_classname(m->class->name);
- printf(".");
- utf_display(m->name);
- utf_display(m->descriptor);
+#if defined(WITH_CLASSPATH_GNU)
+ LLNI_field_get_ref(t, vmState, vmt);
+ stc = (stacktracecontainer *) LLNI_field_direct(vmt, vmData);
+#elif defined(WITH_CLASSPATH_SUN) || defined(WITH_CLASSPATH_CLDC1_1)
+ stc = (stacktracecontainer *) t->backtrace;
+#else
+# error unknown classpath configuration
+#endif
- if (m->flags & ACC_NATIVE) {
- printf("(Native Method)\n");
+ stb = &(stc->stb);
- } else {
- printf("(");
- utf_display(m->class->sourcefile);
- printf(":%d)\n", (u4) element->linenumber);
- }
- }
- }
+ stacktrace_print_trace_from_buffer(stb);
+}
- /* flush stdout */
- fflush(stdout);
+#if defined(ENABLE_CYCLES_STATS)
+void stacktrace_print_cycles_stats(FILE *file)
+{
+ CYCLES_STATS_PRINT_OVERHEAD(stacktrace_overhead,file);
+ CYCLES_STATS_PRINT(stacktrace_fillInStackTrace,file);
+ CYCLES_STATS_PRINT(stacktrace_getClassContext ,file);
+ CYCLES_STATS_PRINT(stacktrace_getCurrentClass ,file);
+ CYCLES_STATS_PRINT(stacktrace_getStack ,file);
}
+#endif
/*
* c-basic-offset: 4
* tab-width: 4
* End:
+ * vim:noexpandtab:sw=4:ts=4:
*/