* src/vm/exceptions.c (exceptions_handle_exception): Use
[cacao.git] / src / vm / jit / stacktrace.c
index 275d907a0c3dc405fa85b24e4c980ac2f3c099dd..02ed7f89e21e86ef4224deb12cbb86e365dd4ca2 100644 (file)
@@ -1,6 +1,6 @@
-/* src/vm/jit/stacktrace.c - machine independet stacktrace system
+/* src/vm/jit/stacktrace.c - machine independent stacktrace system
 
-   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: Joseph Wenninger
-
-   Changes: Christian Thalinger
-
-   $Id: stacktrace.c 4420 2006-02-04 00:00:01Z edwin $
-
 */
 
 
 #include "config.h"
 
 #include <assert.h>
+#include <stdint.h>
 #include <stdlib.h>
 #include <string.h>
 
 #include "vm/types.h"
 
-#include "mm/boehm.h"
-#include "native/native.h"
+#include "mm/gc-common.h"
+#include "mm/memory.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"
-#include "native/include/java_lang_VMThrowable.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/array.h"
 #include "vm/builtin.h"
-#include "vm/class.h"
+#include "vm/cycles-stats.h"
 #include "vm/exceptions.h"
-#include "vm/loader.h"
-#include "vm/options.h"
 #include "vm/stringlocal.h"
+#include "vm/vm.h"
+
 #include "vm/jit/asmpart.h"
 #include "vm/jit/codegen-common.h"
 #include "vm/jit/methodheader.h"
 
-
-/* linenumbertable_entry ******************************************************/
-
-/* Keep the type of line the same as the pointer type, otherwise we
-   run into alignment troubles (like on MIPS64). */
-
-typedef struct linenumbertable_entry linenumbertable_entry;
-
-struct linenumbertable_entry {
-       ptrint  line;
-       u1     *pc;
-};
-
-
-#if 0
-typedef struct lineNumberTableEntryInlineBegin {
-       /* this should have the same layout and size as the lineNumberTableEntry */
-       ptrint      lineNrOuter;
-       methodinfo *method;
-} lineNumberTableEntryInlineBegin;
-#endif
+#include "vmcore/class.h"
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
 
 
 /* global variables ***********************************************************/
-
-#if !defined(USE_THREADS)
-stackframeinfo *_no_threads_stackframeinfo = NULL;
-#endif
-
-
-/* stacktrace_create_stackframeinfo ********************************************
-
-   Creates an stackframe info structure for inline code in the
-   interpreter.
-
-*******************************************************************************/
-
-#if defined(ENABLE_INTRP)
-void stacktrace_create_stackframeinfo(stackframeinfo *sfi, u1 *pv, u1 *sp,
-                                                                         u1 *ra)
-{
-       stackframeinfo **psfi;
-       methodinfo      *m;
-
-       /* get current stackframe info pointer */
-
-       psfi = STACKFRAMEINFO;
-
-       /* if we don't have pv handy */
-
-       if (pv == NULL) {
-#if defined(ENABLE_INTRP)
-               if (opt_intrp)
-                       pv = codegen_findmethod(ra);
-               else
-#endif
-                       {
-#if defined(ENABLE_JIT)
-                               pv = md_codegen_findmethod(ra);
+#if !defined(ENABLE_THREADS)
+stackframeinfo_t *_no_threads_stackframeinfo = NULL;
 #endif
-                       }
-       }
-
-       /* get methodinfo pointer from data segment */
 
-       m = *((methodinfo **) (pv + MethodPointer));
+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)
 
-       /* fill new stackframe info structure */
 
-       sfi->prev   = *psfi;
-       sfi->method = m;
-       sfi->pv     = pv;
-       sfi->sp     = sp;
-       sfi->ra     = ra;
+/* stacktrace_stackframeinfo_add ***********************************************
 
-       /* xpc is the same as ra, but is required in stacktrace_create */
-
-       sfi->xpc    = ra;
-
-       /* store new stackframe info pointer */
-
-       *psfi = sfi;
-}
-#endif /* defined(ENABLE_INTRP) */
-
-
-/* stacktrace_create_inline_stackframeinfo *************************************
-
-   Creates an stackframe info structure for an inline exception stub.
+   Fills a stackframe info structure with the given or calculated
+   values and adds it to the chain.
 
 *******************************************************************************/
 
-void stacktrace_create_inline_stackframeinfo(stackframeinfo *sfi, u1 *pv,
-                                                                                        u1 *sp, u1 *ra, u1 *xpc)
+void stacktrace_stackframeinfo_add(stackframeinfo_t *sfi, u1 *pv, u1 *sp, u1 *ra, u1 *xpc)
 {
-       stackframeinfo **psfi;
-
-       /* get current stackframe info pointer */
-
-       psfi = STACKFRAMEINFO;
-
-#if defined(ENABLE_INTRP)
-       if (opt_intrp) {
-               /* if we don't have pv handy */
-
-               if (pv == NULL)
-                       pv = codegen_findmethod(ra);
-
-       }
-#endif
-
-       /* fill new stackframe info structure */
-
-       sfi->prev   = *psfi;
-       sfi->method = NULL;
-       sfi->pv     = pv;
-       sfi->sp     = sp;
-       sfi->ra     = ra;
-       sfi->xpc    = xpc;
-
-       /* store new stackframe info pointer */
-
-       *psfi = sfi;
-}
-
-
-/* stacktrace_create_extern_stackframeinfo *************************************
-
-   Creates an stackframe info structure for an extern exception
-   (hardware or assembler).
-
-*******************************************************************************/
-
-void stacktrace_create_extern_stackframeinfo(stackframeinfo *sfi, u1 *pv,
-                                                                                        u1 *sp, u1 *ra, u1 *xpc)
-{
-       stackframeinfo **psfi;
-#if !defined(__I386__) && !defined(__X86_64__)
-       bool             isleafmethod;
+       stackframeinfo_t **psfi;
+       codeinfo          *code;
+#if !defined(__I386__) && !defined(__X86_64__) && !defined(__S390__) && !defined(__M68K__)
+       bool               isleafmethod;
 #endif
 #if defined(ENABLE_JIT)
-       s4               framesize;
+       s4                 framesize;
 #endif
 
        /* get current stackframe info pointer */
 
-       psfi = STACKFRAMEINFO;
+       psfi = &STACKFRAMEINFO;
 
        /* sometimes we don't have pv handy (e.g. in asmpart.S:
        L_asm_call_jit_compiler_exception or in the interpreter). */
@@ -214,25 +112,39 @@ void stacktrace_create_extern_stackframeinfo(stackframeinfo *sfi, u1 *pv,
        if (pv == NULL) {
 #if defined(ENABLE_INTRP)
                if (opt_intrp)
-                       pv = codegen_findmethod(ra);
+                       pv = codegen_get_pv_from_pc(ra);
                else
 #endif
                        {
 #if defined(ENABLE_JIT)
-                               pv = md_codegen_findmethod(ra);
+# if defined(__SPARC_64__)
+                               pv = md_get_pv_from_stackframe(sp);
+# else
+                               pv = md_codegen_get_pv_from_pc(ra);
+# endif
 #endif
                        }
        }
 
+       /* Get codeinfo pointer for the parent Java method. */
+
+       code = code_get_codeinfo_for_pv(pv);
+
+       /* XXX */
+/*     assert(m != NULL); */
+
 #if defined(ENABLE_JIT)
 # if defined(ENABLE_INTRP)
        /* When using the interpreter, we pass RA to the function. */
 
        if (!opt_intrp) {
 # endif
-# if defined(__I386__) || defined(__X86_64__)
+# 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. */
 
                framesize = *((u4 *) (pv + FrameSize));
 
@@ -254,338 +166,113 @@ void stacktrace_create_extern_stackframeinfo(stackframeinfo *sfi, u1 *pv,
 # if defined(ENABLE_INTRP)
        }
 # endif
-#endif /* defined(ENABLE_JIT) */
-
-       /* fill new stackframe info structure */
-
-       sfi->prev   = *psfi;
-       sfi->method = NULL;
-       sfi->pv     = pv;
-       sfi->sp     = sp;
-       sfi->ra     = ra;
-       sfi->xpc    = xpc;
-
-       /* store new stackframe info pointer */
-
-       *psfi = sfi;
-}
-
-
-/* stacktrace_create_native_stackframeinfo *************************************
-
-   Creates a stackframe info structure for a native stub.
-
-*******************************************************************************/
-
-void stacktrace_create_native_stackframeinfo(stackframeinfo *sfi, u1 *pv,
-                                                                                        u1 *sp, u1 *ra)
-{
-       stackframeinfo **psfi;
-       methodinfo      *m;
-
-       /* get methodinfo pointer from data segment */
-
-       m = *((methodinfo **) (pv + MethodPointer));
-
-       /* get current stackframe info pointer */
+#endif
 
-       psfi = STACKFRAMEINFO;
+       /* Calculate XPC when not given.  The XPC is then the return
+          address of the current method minus 1 because the RA points to
+          the instruction after the call instruction.  This is required
+          e.g. for method stubs. */
 
-       /* fill new stackframe info structure */
+       if (xpc == NULL) {
+               xpc = (void *) (((intptr_t) ra) - 1);
+       }
 
-       sfi->prev   = *psfi;
-       sfi->method = m;
-       sfi->pv     = NULL;
-       sfi->sp     = sp;
-       sfi->ra     = ra;
-       sfi->xpc    = NULL;
+       /* Fill new stackframeinfo structure. */
+
+       sfi->prev = *psfi;
+       sfi->code = code;
+       sfi->pv   = pv;
+       sfi->sp   = sp;
+       sfi->ra   = ra;
+       sfi->xpc  = xpc;
+
+#if !defined(NDEBUG)
+       if (opt_DebugStackFrameInfo) {
+               log_start();
+               log_print("[stackframeinfo add   : sfi=%p, method=%p, pv=%p, sp=%p, ra=%p, xpc=%p, method=",
+                                 sfi, sfi->code->m, sfi->pv, sfi->sp, sfi->ra, sfi->xpc);
+               method_print(sfi->code->m);
+               log_print("]");
+               log_finish();
+       }
+#endif
 
-       /* store new stackframe info pointer */
+       /* Store new stackframeinfo pointer. */
 
        *psfi = sfi;
-}
-
-
-/* stacktrace_remove_stackframeinfo ********************************************
-
-   XXX
-
-*******************************************************************************/
-
-void stacktrace_remove_stackframeinfo(stackframeinfo *sfi)
-{
-       stackframeinfo **psfi;
-
-       /* get current stackframe info pointer */
-
-       psfi = STACKFRAMEINFO;
-
-       /* restore the old pointer */
-
-       *psfi = sfi->prev;
-}
-
-
-/* stacktrace_inline_arithmeticexception ***************************************
-
-   Creates an ArithemticException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_arithmeticexception(u1 *pv, u1 *sp,
-                                                                                                                u1 *ra, u1 *xpc)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* create exception */
-
-       o = new_arithmeticexception();
-
-       /* remove stackframeinfo */
-
-       stacktrace_remove_stackframeinfo(&sfi);
-
-       return o;
-}
-
-
-/* stacktrace_inline_arrayindexoutofboundsexception ****************************
-
-   Creates an ArrayIndexOutOfBoundsException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_arrayindexoutofboundsexception(u1 *pv,
-                                                                                                                                       u1 *sp,
-                                                                                                                                       u1 *ra,
-                                                                                                                                       u1 *xpc,
-                                                                                                                                       s4 index)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* create exception */
-
-       o = new_arrayindexoutofboundsexception(index);
-
-       /* remove stackframeinfo */
-
-       stacktrace_remove_stackframeinfo(&sfi);
-
-       return o;
-}
-
-
-/* stacktrace_inline_arraystoreexception ***************************************
-
-   Creates an ArrayStoreException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_arraystoreexception(u1 *pv, u1 *sp, u1 *ra,
-                                                                                                                u1 *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;
-}
-
-
-/* stacktrace_inline_classcastexception ****************************************
-
-   Creates an ClassCastException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_classcastexception(u1 *pv, u1 *sp, u1 *ra,
-                                                                                                               u1 *xpc)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* create exception */
-
-       o = new_classcastexception();
-
-       /* remove stackframeinfo */
 
-       stacktrace_remove_stackframeinfo(&sfi);
+       /* set the native world flag for the current thread */
+       /* ATTENTION: This flag tells the GC how to treat this thread in case of
+          a collection. Set this flag _after_ a valid stackframe info was set. */
 
-       return o;
+       THREAD_NATIVEWORLD_ENTER;
 }
 
 
-/* stacktrace_inline_nullpointerexception **************************************
+/* stacktrace_stackframeinfo_remove ********************************************
 
-   Creates an NullPointerException for inline stub.
+   Remove the given stackframeinfo from the chain in the current
+   thread.
 
 *******************************************************************************/
 
-java_objectheader *stacktrace_inline_nullpointerexception(u1 *pv, u1 *sp,
-                                                                                                                 u1 *ra, u1 *xpc)
+void stacktrace_stackframeinfo_remove(stackframeinfo_t *sfi)
 {
-       stackframeinfo     sfi;
-       java_objectheader *o;
+       stackframeinfo_t **psfi;
 
-       /* create stackframeinfo */
+       /* clear the native world flag for the current thread */
+       /* ATTENTION: Clear this flag _before_ removing the stackframe info */
 
-       stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
+       THREAD_NATIVEWORLD_EXIT;
 
-       /* create exception */
-
-       o = new_nullpointerexception();
-
-       /* remove stackframeinfo */
-
-       stacktrace_remove_stackframeinfo(&sfi);
-
-       return o;
-}
-
-
-/* stacktrace_hardware_arithmeticexception *************************************
-
-   Creates an ArithemticException for inline stub.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_hardware_arithmeticexception(u1 *pv, u1 *sp,
-                                                                                                                  u1 *ra, u1 *xpc)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_extern_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* create exception */
-
-       o = new_arithmeticexception();
-
-       /* remove stackframeinfo */
-
-       stacktrace_remove_stackframeinfo(&sfi);
-
-       return o;
-}
-
-
-/* stacktrace_hardware_nullpointerexception ************************************
-
-   Creates an NullPointerException for the SIGSEGV signal handler.
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_hardware_nullpointerexception(u1 *pv, u1 *sp,
-                                                                                                                       u1 *ra, u1 *xpc)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_extern_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* create exception */
-
-       o = new_nullpointerexception();
-
-       /* remove stackframeinfo */
-
-       stacktrace_remove_stackframeinfo(&sfi);
-
-       return o;
-}
-
-
-/* stacktrace_inline_fillInStackTrace ******************************************
-
-   Fills in the correct stacktrace into an existing exception object
-   (this one is for inline exception stubs).
-
-*******************************************************************************/
-
-java_objectheader *stacktrace_inline_fillInStackTrace(u1 *pv, u1 *sp, u1 *ra,
-                                                                                                         u1 *xpc)
-{
-       stackframeinfo     sfi;
-       java_objectheader *o;
-       methodinfo        *m;
-
-       /* create stackframeinfo */
-
-       stacktrace_create_inline_stackframeinfo(&sfi, pv, sp, ra, xpc);
-
-       /* get exception */
-
-       o = *exceptionptr;
-
-       /* clear exception */
-
-       *exceptionptr = NULL;
-
-       /* resolve methodinfo pointer from exception object */
-
-       m = class_resolvemethod(o->vftbl->class,
-                                                       utf_fillInStackTrace,
-                                                       utf_void__java_lang_Throwable);
-
-       /* call function */
+       /* get current stackframe info pointer */
 
-       ASM_CALLJAVAFUNCTION(m, o, NULL, NULL, NULL);
+       psfi = &STACKFRAMEINFO;
 
-       /* remove stackframeinfo */
+#if !defined(NDEBUG)
+       if (opt_DebugStackFrameInfo) {
+               log_start();
+               log_print("[stackframeinfo remove: sfi=%p, method=%p, pv=%p, sp=%p, ra=%p, xpc=%p, method=",
+                                 sfi, sfi->code->m, sfi->pv, sfi->sp, sfi->ra, sfi->xpc);
+               method_print(sfi->code->m);
+               log_print("]");
+               log_finish();
+       }
+#endif
 
-       stacktrace_remove_stackframeinfo(&sfi);
+       /* restore the old pointer */
 
-       return o;
+       *psfi = sfi->prev;
 }
 
 
-/* stacktrace_add_entry ********************************************************
+/* stacktrace_entry_add ********************************************************
 
    Adds a new entry to the stacktrace buffer.
 
 *******************************************************************************/
 
-static void stacktrace_add_entry(stacktracebuffer *stb, methodinfo *m, u2 line)
+static inline stacktracebuffer *stacktrace_entry_add(stacktracebuffer *stb, methodinfo *m, u2 line)
 {
        stacktrace_entry *ste;
+       u4                stb_size_old;
+       u4                stb_size_new;
 
        /* check if we already reached the buffer capacity */
 
        if (stb->used >= stb->capacity) {
+               /* calculate size of stacktracebuffer */
+
+               stb_size_old = sizeof(stacktracebuffer) +
+                                          sizeof(stacktrace_entry) * stb->capacity -
+                                          sizeof(stacktrace_entry) * STACKTRACE_CAPACITY_DEFAULT;
+
+               stb_size_new = stb_size_old +
+                                          sizeof(stacktrace_entry) * STACKTRACE_CAPACITY_INCREMENT;
+
                /* reallocate new memory */
 
-               ste = DMREALLOC(stb->entries, stacktrace_entry, stb->capacity,
-                                               stb->capacity + STACKTRACE_CAPACITY_INCREMENT);
+               stb = DMREALLOC(stb, u1, stb_size_old, stb_size_new);
 
                /* set new buffer capacity */
 
@@ -602,388 +289,337 @@ static void stacktrace_add_entry(stacktracebuffer *stb, methodinfo *m, u2 line)
        /* increase entries used count */
 
        stb->used += 1;
+
+       return stb;
 }
 
 
-/* stacktrace_fillInStackTrace_method ******************************************
+/* stacktrace_method_add *******************************************************
 
-   XXX
+   Add stacktrace entries[1] for the given method to the stacktrace
+   buffer.
 
-*******************************************************************************/
+   IN:
+       stb....stacktracebuffer to fill
+          sfi....current stackframeinfo
+   OUT:
+       stacktracebuffer after possible reallocation.
 
-static bool stacktrace_add_method(stacktracebuffer *stb, methodinfo *m, u1 *pv,
-                                                                 u1 *pc)
-{
-       ptrint                 lntsize;     /* size of line number table          */
-       u1                    *lntstart;    /* start of line number table         */
-       linenumbertable_entry *lntentry;    /* points to last entry in the table  */
+   [1] In case of inlined methods there may be more than one stacktrace
+       entry for a codegen-level method. (see doc/inlining_stacktrace.txt)
 
-       /* get size of line number table */
+*******************************************************************************/
 
-       lntsize  = *((ptrint *) (pv + LineNumberTableSize));
-       lntstart = *((u1 **)    (pv + LineNumberTableStart));
+static inline stacktracebuffer *stacktrace_method_add(stacktracebuffer *stb, stackframeinfo_t *sfi)
+{
+       codeinfo   *code;
+       void       *pv;
+       void       *xpc;
+       methodinfo *m;
+       int32_t     linenumber;
 
-       /* Subtract the size of the line number entry of the structure,
-          since the line number table start points to the pc. */
+       /* Get values from the stackframeinfo. */
 
-       lntentry = (linenumbertable_entry *) (lntstart - SIZEOF_VOID_P);
+       code = sfi->code;
+       pv   = sfi->pv;
+       xpc  = sfi->xpc;
 
-       /* Find the line number for the specified PC (going backwards
-          in the linenumber table). The linenumber table size is zero
-          in native stubs. */
+       m = code->m;
 
-       for (; lntsize > 0; lntsize--, lntentry--) {
-               /* did we reach the current line? */
+       /* Skip builtin methods. */
 
-               if (pc >= lntentry->pc) {
-                       /* check for special inline entries */
+       if (m->flags & ACC_METHOD_BUILTIN)
+               return stb;
 
-                       switch (lntentry->line) {
-#if 0
-                               /* XXX TWISTI we have to think about this inline stuff again */
+       /* Search the line number table. */
 
-                       case -1: /* begin of inlined method */
-                               lntinline = (lineNumberTableEntryInlineBegin *) (--lntentry);
-                               lntentry++;
-                               lntsize--; lntsize--;
-                               if (stacktrace_fillInStackTrace_methodRecursive(buffer,
-                                                                                                                               ilStart->method,
-                                                                                                                               ent,
-                                                                                                                               &ent,
-                                                                                                                               &ahead,
-                                                                                                                               pc)) {
-                                       stacktrace_add_entry(buffer, m, ilStart->lineNrOuter);
+       linenumber = dseg_get_linenumber_from_pc(&m, pv, xpc);
 
-                                       return true;
-                               }
-                               break;
+       /* Add a new entry to the staktrace. */
 
-                       case -2: /* end of inlined method */
-                               *entry = ent;
-                               *entriesAhead = ahead;
-                               return false;
-                               break;
-#endif
+       stb = stacktrace_entry_add(stb, m, linenumber);
 
-                       default:
-                               stacktrace_add_entry(stb, m, lntentry->line);
-                               return true;
-                       }
-               }
-       }
-
-       /* 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);
-       }
-
-       /* If we get here, just add the entry with line number 0. */
-
-       stacktrace_add_entry(stb, m, 0);
-
-       return true;
+       return stb;
 }
 
 
-/* stacktrace_create ***********************************************************
+/* stacktrace_stack_walk *******************************************************
 
-   Generates a stacktrace from the thread passed into a
-   stacktracebuffer.  The stacktracebuffer is allocated on the GC
-   heap.
+   Walk the stack (or the stackframeinfo-chain) to the next method.
+
+   IN:
+       sfi....stackframeinfo of current method
 
 *******************************************************************************/
 
-stacktracebuffer *stacktrace_create(threadobject* thread)
+static inline void stacktrace_stack_walk(stackframeinfo_t *sfi)
 {
-       stacktracebuffer *stb;
-       stacktracebuffer *gcstb;
-       s4                dumpsize;
-       stackframeinfo   *sfi;
-       methodinfo       *m;
-       u1               *pv;
-       u1               *sp;
-       u4                framesize;
-       u1               *ra;
-       u1               *xpc;
-
-       /* mark start of dump memory area */
+       codeinfo *code;
+       void     *pv;
+       void     *sp;
+       void     *ra;
+       void     *xpc;
+       uint32_t  framesize;
 
-       dumpsize = dump_size();
-
-       /* prevent compiler warnings */
-
-       pv = NULL;
-       sp = NULL;
-       ra = NULL;
-
-       /* create a stacktracebuffer in dump memory */
+       /* Get values from the stackframeinfo. */
 
-       stb = (stacktracebuffer *) DMNEW(u1, sizeof(stacktracebuffer) +
-                                                                        sizeof(stacktrace_entry) * STACKTRACE_CAPACITY_DEFAULT);
+       code = sfi->code;
+       pv   = sfi->pv;
+       sp   = sfi->sp;
+       ra   = sfi->ra;
+       xpc  = sfi->xpc;
 
-       stb->capacity = STACKTRACE_CAPACITY_DEFAULT;
-       stb->used     = 0;
+       /* Get the current stack frame size. */
 
-       /* The first element in the stackframe chain must always be a
-          native stackframeinfo (VMThrowable.fillInStackTrace is a native
-          function). */
+       framesize = *((uint32_t *) (((intptr_t) pv) + FrameSize));
 
-       sfi = thread->info._stackframeinfo;
+       /* Get the RA of the current stack frame (RA to the parent Java
+          method) if the current method is a non-leaf method.  Otherwise
+          the value in the stackframeinfo is correct (from the signal
+          handler). */
 
-#define PRINTMETHODS 0
-
-#if PRINTMETHODS
-       printf("\n\nfillInStackTrace start:\n");
-       fflush(stdout);
+#if defined(ENABLE_JIT)
+# if defined(ENABLE_INTRP)
+       if (opt_intrp)
+               ra = intrp_md_stacktrace_get_returnaddress(sp, framesize);
+       else
+# endif
+               {
+                       if (!code_is_leafmethod(code))
+                               ra = md_stacktrace_get_returnaddress(sp, framesize);
+               }
+#else
+       ra = intrp_md_stacktrace_get_returnaddress(sp, framesize);
 #endif
 
-       /* Loop while we have a method pointer (asm_calljavafunction has
-          NULL) or there is a stackframeinfo in the chain. */
-
-       m = NULL;
-
-       while (m || sfi) {
-               /* m == NULL should only happen for the first time and inline
-                  stackframe infos, like from the exception stubs or the
-                  patcher wrapper. */
-
-               if (m == NULL) {
-                       /* for native stub stackframe infos, pv is always NULL */
-
-                       if (sfi->pv == NULL) {
-                               /* get methodinfo, sp and ra from the current stackframe info */
-
-                               m  = sfi->method;
-                               sp = sfi->sp;           /* sp of parent Java function         */
-                               ra = sfi->ra;
-
-                               if (m)
-                                       stacktrace_add_entry(stb, m, 0);
-
-#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*). */
+       /* Get the PV for the parent Java method. */
 
 #if defined(ENABLE_INTRP)
-                               if (opt_intrp)
-                                       pv = codegen_findmethod(ra);
-                               else
+       if (opt_intrp)
+               pv = codegen_get_pv_from_pc(ra);
+       else
 #endif
-                                       {
+               {
 #if defined(ENABLE_JIT)
-                                               pv = md_codegen_findmethod(ra);
+# 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
-                                       }
-
-                               /* get methodinfo pointer from parent data segment */
-
-                               m = *((methodinfo **) (pv + MethodPointer));
+               }
 
-                       } 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!!! */
+       /* Get the codeinfo pointer for the parent Java method. */
 
-                               /* get methodinfo, sp and ra from the current stackframe info */
+       code = code_get_codeinfo_for_pv(pv);
 
-                               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          */
+       /* Calculate the SP for the parent Java method. */
 
-#if PRINTMETHODS
-                               printf("ra=%p sp=%p, ", ra, sp);
-                               printf("NULL: inline stub\n");
-                               fflush(stdout);
+#if defined(ENABLE_INTRP)
+       if (opt_intrp)
+               sp = *(u1 **) (sp - framesize);
+       else
 #endif
+               {
+#if defined(__I386__) || defined (__X86_64__) || defined (__M68K__)
+                       sp = (void *) (((intptr_t) sp) + framesize + SIZEOF_VOID_P);
+#elif defined(__SPARC_64__)
+                       /* already has the new sp */
+#else
+                       sp = (void *) (((intptr_t) sp) + framesize);
+#endif
+               }
 
-                               /* get methodinfo from current Java method */
-
-                               m = *((methodinfo **) (pv + MethodPointer));
+       /* Store the new values in the stackframeinfo.  NOTE: We subtract
+          1 from the RA to get the XPC, because the RA points to the
+          instruction after the call instruction. */
 
-                               /* if m == NULL, this is a asm_calljavafunction call */
+       sfi->code = code;
+       sfi->pv   = pv;
+       sfi->sp   = sp;
+       sfi->ra   = ra;
+       sfi->xpc  = (void *) (((intptr_t) ra) - 1);
+}
 
-                               if (m != NULL) {
-#if PRINTMETHODS
-                                       printf("ra=%p sp=%p, ", ra, sp);
-                                       method_print(m);
-                                       printf(": inline stub parent");
-                                       fflush(stdout);
-#endif
 
-#if defined(ENABLE_INTRP)
-                                       if (!opt_intrp) {
-#endif
+/* stacktrace_create ***********************************************************
 
-                                       /* add the method to the stacktrace */
+   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).
+
+   RETURN VALUE:
+      pointer to the stacktracebuffer, or
+      NULL if there is no stacktrace available for the
+      given thread.
 
-                                       stacktrace_add_method(stb, m, pv, (u1 *) ((ptrint) xpc));
+*******************************************************************************/
 
-                                       /* get the current stack frame size */
+stacktracebuffer *stacktrace_create(stackframeinfo_t *sfi)
+{
+       stacktracebuffer *stb;
+       stackframeinfo_t  tmpsfi;
 
-                                       framesize = *((u4 *) (pv + FrameSize));
+       /* Create a stacktracebuffer in dump memory. */
 
-#if PRINTMETHODS
-                                       printf(", framesize=%d\n", framesize);
-                                       fflush(stdout);
-#endif
+       stb = DNEW(stacktracebuffer);
 
-                                       /* set stack pointer to stackframe of parent Java */
-                                       /* function of the current Java function */
+       stb->capacity = STACKTRACE_CAPACITY_DEFAULT;
+       stb->used     = 0;
 
-#if defined(__I386__) || defined (__X86_64__)
-                                       sp += framesize + SIZEOF_VOID_P;
-#else
-                                       sp += framesize;
+#if !defined(NDEBUG)
+       if (opt_DebugStackTrace) {
+               printf("\n\n---> stacktrace creation start (fillInStackTrace):\n");
+               fflush(stdout);
+       }
 #endif
 
-                                       /* get data segment and methodinfo pointer from parent */
-                                       /* method */
+       /* Put the data from the stackframeinfo into a temporary one. */
 
-#if defined(ENABLE_JIT)
-                                       pv = md_codegen_findmethod(ra);
-#endif
-
-                                       m = *((methodinfo **) (pv + MethodPointer));
+       /* XXX This is not correct, but a workaround for threads-dump for
+          now. */
+/*     assert(sfi != NULL); */
+       if (sfi == NULL)
+               return NULL;
 
-#if defined(ENABLE_INTRP)
-                                       }
-#endif
-                               }
-#if PRINTMETHODS
-                               else {
-                                       printf("ra=%p sp=%p, ", ra, sp);
-                                       printf("asm_calljavafunction\n");
-                                       fflush(stdout);
-                               }
+       tmpsfi.code = sfi->code;
+       tmpsfi.pv   = sfi->pv;
+       tmpsfi.sp   = sfi->sp;
+       tmpsfi.ra   = sfi->ra;
+       tmpsfi.xpc  = sfi->xpc;
+
+       /* Iterate till we're done. */
+
+       for (;;) {
+#if !defined(NDEBUG)
+               /* Print current method information. */
+
+               if (opt_DebugStackTrace) {
+                       log_start();
+                       log_print("[stacktrace: method=%p, pv=%p, sp=%p, ra=%p, xpc=%p, method=",
+                                         tmpsfi.code->m, tmpsfi.pv, tmpsfi.sp, tmpsfi.ra,
+                                         tmpsfi.xpc);
+                       method_print(tmpsfi.code->m);
+                       log_print("]");
+                       log_finish();
+               }
 #endif
-                       }
 
-                       /* get previous stackframeinfo in the chain */
+               /* Check for Throwable.fillInStackTrace(). */
 
-                       sfi = sfi->prev;
+/*             if (tmpsfi.method->name != utf_fillInStackTrace) { */
+                       
+                       /* Add this method to the stacktrace. */
 
-               } else {
-#if PRINTMETHODS
-                       printf("ra=%p sp=%p, ", ra, sp);
-                       method_print(m);
-                       printf(": JIT");
-                       fflush(stdout);
-#endif
+                       stb = stacktrace_method_add(stb, &tmpsfi);
+/*             } */
 
-                       /* JIT method found, add it to the stacktrace (we subtract
-                          1 from the return address since it points the the
-                          instruction after call). */
+               /* Walk the stack (or the stackframeinfo chain) and get the
+                  next method. */
 
-                       stacktrace_add_method(stb, m, pv, (u1 *) ((ptrint) ra) - 1);
+               stacktrace_stack_walk(&tmpsfi);
 
-                       /* get the current stack frame size */
+               /* If the new codeinfo pointer is NULL we reached a
+                  asm_vm_call_method function.  In this case we get the next
+                  values from the previous stackframeinfo in the chain.
+                  Otherwise the new values have been calculated before. */
 
-                       framesize = *((u4 *) (pv + FrameSize));
+               if (tmpsfi.code == NULL) {
+                       sfi = sfi->prev;
 
-#if PRINTMETHODS
-                       printf(", framesize=%d\n", framesize);
-                       fflush(stdout);
-#endif
+                       /* If the previous stackframeinfo in the chain is NULL we
+                          reached the top of the stacktrace and leave the
+                          loop. */
 
-                       /* get return address of current stack frame */
+                       if (sfi == NULL)
+                               break;
 
-#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
+                       /* Fill the temporary stackframeinfo with the new
+                          values. */
 
-                       /* get data segment and methodinfo pointer from parent method */
+                       tmpsfi.code = sfi->code;
+                       tmpsfi.pv   = sfi->pv;
+                       tmpsfi.sp   = sfi->sp;
+                       tmpsfi.ra   = sfi->ra;
+                       tmpsfi.xpc  = sfi->xpc;
+               }
+       }
 
-#if defined(ENABLE_INTRP)
-                       if (opt_intrp)
-                               pv = codegen_findmethod(ra);
-                       else
-#endif
-                               {
-#if defined(ENABLE_JIT)
-                                       pv = md_codegen_findmethod(ra);
+#if !defined(NDEBUG)
+       if (opt_DebugStackTrace) {
+               printf("---> stacktrace creation finished.\n\n");
+               fflush(stdout);
+       }
 #endif
-                               }
 
-                       m = *((methodinfo **) (pv + MethodPointer));
+       /* return the stacktracebuffer */
 
-                       /* walk the stack */
+       if (stb->used == 0)
+               return NULL;
+       else
+               return stb;
+}
 
-#if defined(ENABLE_INTRP)
-                       if (opt_intrp)
-                               sp = *(u1 **) (sp - framesize);
-                       else
-#endif
-                               {
-#if defined(__I386__) || defined (__X86_64__)
-                                       sp += framesize + SIZEOF_VOID_P;
-#else
-                                       sp += framesize;
-#endif
-                               }
-               }
-       }
 
-       /* allocate memory from the GC heap and copy the stacktrace buffer */
+/* stacktrace_fillInStackTrace *************************************************
 
-       gcstb = GCMNEW(u1, sizeof(stacktracebuffer) +
-                                  sizeof(stacktrace_entry) * stb->used);
+   Generate a stacktrace from the current thread for
+   java.lang.VMThrowable.fillInStackTrace.
 
-       gcstb->capacity = stb->capacity;
-       gcstb->used     = stb->used;
+*******************************************************************************/
 
-       MCOPY(gcstb->entries, stb->entries, stacktrace_entry, stb->used);
+java_handle_bytearray_t *stacktrace_fillInStackTrace(void)
+{
+       stacktracebuffer        *stb;
+       java_handle_bytearray_t *ba;
+       s4                       ba_size;
+       s4                       dumpsize;
+       CYCLES_STATS_DECLARE_AND_START_WITH_OVERHEAD
 
-       /* just to be sure */
+       /* mark start of dump memory area */
 
-       stb = NULL;
-       assert(gcstb != NULL);
+       dumpsize = dump_size();
 
-       /* release memory */
+       /* create a stacktrace from the current thread */
 
-       dump_release(dumpsize);
+       stb = stacktrace_create(STACKFRAMEINFO);
 
-       /* return the stacktracebuffer */
+       if (stb == NULL)
+               goto return_NULL;
 
-       return gcstb;
-}
+       /* allocate memory from the GC heap and copy the stacktrace buffer */
+       /* ATTENTION: use a bytearray for this to not confuse the GC */
 
+       ba_size = sizeof(stacktracebuffer) +
+                 sizeof(stacktrace_entry) * stb->used -
+                 sizeof(stacktrace_entry) * STACKTRACE_CAPACITY_DEFAULT;
+       ba = builtin_newarray_byte(ba_size);
 
-/* stacktrace_fillInStackTrace *************************************************
+       if (ba == NULL)
+               goto return_NULL;
 
-   Generate a stacktrace from the current thread for
-   java.lang.VMThrowable.fillInStackTrace.
+       MCOPY(LLNI_array_data(ba), stb, u1, ba_size);
 
-*******************************************************************************/
+       /* release dump memory */
 
-stacktracebuffer *stacktrace_fillInStackTrace(void)
-{
-       stacktracebuffer *stb;
+       dump_release(dumpsize);
 
-       /* create a stacktrace from the current thread */
+       CYCLES_STATS_END_WITH_OVERHEAD(stacktrace_fillInStackTrace,
+                                                                  stacktrace_overhead)
+       return ba;
 
-       stb = stacktrace_create(THREADOBJECT);
+return_NULL:
+       dump_release(dumpsize);
 
-       return stb;
+       CYCLES_STATS_END_WITH_OVERHEAD(stacktrace_fillInStackTrace,
+                                                                  stacktrace_overhead)
+
+       return NULL;
 }
 
 
@@ -991,130 +627,185 @@ stacktracebuffer *stacktrace_fillInStackTrace(void)
 
    Creates a Class context array.
 
+   RETURN VALUE:
+      the array of java.lang.Class objects, or
+         NULL if an exception has been thrown
+
 *******************************************************************************/
 
-java_objectarray *stacktrace_getClassContext(void)
+java_handle_objectarray_t *stacktrace_getClassContext(void)
 {
-       stacktracebuffer  *stb;
-       stacktrace_entry  *ste;
-       java_objectarray  *oa;
-       s4                 arraysize;
-       s4                 i;
+       stacktracebuffer          *stb;
+       stacktrace_entry          *ste;
+       java_handle_objectarray_t *oa;
+       s4                         oalength;
+       s4                         i;
+       s4                         dumpsize;
+       CYCLES_STATS_DECLARE_AND_START
+
+       /* mark start of dump memory area */
+
+       dumpsize = dump_size();
 
        /* create a stacktrace for the current thread */
 
-       stb = stacktrace_create(THREADOBJECT);
+       stb = stacktrace_create(STACKFRAMEINFO);
 
-       arraysize = 0;
+       if (stb == NULL)
+               goto return_NULL;
 
        /* calculate the size of the Class array */
 
-       for (i = 0; i < stb->used; i++)
+       for (i = 0, oalength = 0; i < stb->used; i++)
                if (stb->entries[i].method != NULL)
-                       arraysize++;
+                       oalength++;
+
+       /* The first entry corresponds to the method whose implementation */
+       /* calls stacktrace_getClassContext. We remove that entry.        */
 
        ste = &(stb->entries[0]);
        ste++;
-       arraysize--;
-
-       /* XXX document me */
-
-       if (arraysize > 0) {
-               if (ste->method &&
-                       (ste->method->class == class_java_lang_SecurityManager)) {
-                       arraysize--;
-                       ste++;
-               }
-       }
+       oalength--;
 
        /* allocate the Class array */
 
-       oa = builtin_anewarray(arraysize, class_java_lang_Class);
-
+       oa = builtin_anewarray(oalength, class_java_lang_Class);
        if (!oa)
-               return NULL;
+               goto return_NULL;
 
        /* fill the Class array from the stacktracebuffer */
 
-       for(i = 0; i < arraysize; i++, ste++) {
+       for(i = 0; i < oalength; i++, ste++) {
                if (ste->method == NULL) {
                        i--;
                        continue;
                }
 
-               oa->data[i] = (java_objectheader *) ste->method->class;
+               LLNI_array_direct(oa, i) = (java_object_t *) ste->method->class;
        }
 
+       /* release dump memory */
+
+       dump_release(dumpsize);
+
+       CYCLES_STATS_END(stacktrace_getClassContext)
+
        return oa;
+
+return_NULL:
+       dump_release(dumpsize);
+
+       CYCLES_STATS_END(stacktrace_getClassContext)
+
+       return NULL;
 }
 
 
-/* stacktrace_getCallingClassLoader ********************************************
+/* stacktrace_getCurrentClass **************************************************
+
+   Find the current class by walking the stack trace.
 
-   XXX
+   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."
 
 *******************************************************************************/
 
-java_objectheader *stacktrace_getCallingClassLoader(void)
+#if defined(ENABLE_JAVASE)
+classinfo *stacktrace_getCurrentClass(void)
 {
        stacktracebuffer  *stb;
        stacktrace_entry  *ste;
        methodinfo        *m;
-       java_objectheader *cl;
        s4                 i;
+       s4                 dumpsize;
+       CYCLES_STATS_DECLARE_AND_START
 
-       cl = NULL;
+       /* mark start of dump memory area */
+
+       dumpsize = dump_size();
 
        /* create a stacktrace for the current thread */
 
-       stb = stacktrace_create(THREADOBJECT);
+       stb = stacktrace_create(STACKFRAMEINFO);
+
+       if (stb == NULL)
+               goto return_NULL; /* XXX exception: how to distinguish from normal NULL return? */
 
        /* iterate over all stacktrace entries and find the first suitable
-          classloader */
+          class */
 
        for (i = 0, ste = &(stb->entries[0]); i < stb->used; i++, ste++) {
                m = ste->method;
 
-               if (!m)
+               if (m == NULL)
                        continue;
 
-               if (m->class == class_java_security_PrivilegedAction) {
-                       cl = NULL;
-                       break;
-               }
+               if (m->class == class_java_security_PrivilegedAction)
+                       goto return_NULL;
+
+               if (m->class != NULL) {
+                       dump_release(dumpsize);
+
+                       CYCLES_STATS_END(stacktrace_getCurrentClass)
 
-               if (m->class->classloader) {
-                       cl = m->class->classloader;
-                       break;
+                       return m->class;
                }
        }
 
-       /* return the classloader */
+       /* no Java method found on the stack */
+
+return_NULL:
+       dump_release(dumpsize);
+
+       CYCLES_STATS_END(stacktrace_getCurrentClass)
 
-       return cl;
+       return NULL;
 }
+#endif /* ENABLE_JAVASE */
 
 
 /* stacktrace_getStack *********************************************************
 
    Create a 2-dimensional array for java.security.VMAccessControler.
 
+   RETURN VALUE:
+      the arrary, or
+         NULL if an exception has been thrown
+
 *******************************************************************************/
 
-java_objectarray *stacktrace_getStack(void)
+#if defined(ENABLE_JAVASE)
+java_handle_objectarray_t *stacktrace_getStack(void)
 {
-       stacktracebuffer *stb;
-       stacktrace_entry *ste;
-       java_objectarray *oa;
-       java_objectarray *classes;
-       java_objectarray *methodnames;
-       classinfo        *c;
-       java_lang_String *str;
-       s4                i;
+       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
+
+       /* mark start of dump memory area */
+
+       dumpsize = dump_size();
 
        /* create a stacktrace for the current thread */
 
-       stb = stacktrace_create(THREADOBJECT);
+       stb = stacktrace_create(STACKFRAMEINFO);
+
+       if (stb == NULL)
+               goto return_NULL;
 
        /* get the first stacktrace entry */
 
@@ -1124,42 +815,55 @@ java_objectarray *stacktrace_getStack(void)
 
        oa = builtin_anewarray(2, arrayclass_java_lang_Object);
 
-       if (!oa)
-               return NULL;
+       if (oa == NULL)
+               goto return_NULL;
 
        classes = builtin_anewarray(stb->used, class_java_lang_Class);
 
-       if (!classes)
-               return NULL;
+       if (classes == NULL)
+               goto return_NULL;
 
        methodnames = builtin_anewarray(stb->used, class_java_lang_String);
 
-       if (!methodnames)
-               return NULL;
+       if (methodnames == NULL)
+               goto return_NULL;
 
        /* set up the 2-dimensional array */
 
-       oa->data[0] = (java_objectheader *) classes;
-       oa->data[1] = (java_objectheader *) methodnames;
+       array_objectarray_element_set(oa, 0, (java_handle_t *) classes);
+       array_objectarray_element_set(oa, 1, (java_handle_t *) methodnames);
 
        /* iterate over all stacktrace entries */
 
        for (i = 0, ste = &(stb->entries[0]); i < stb->used; i++, ste++) {
                c = ste->method->class;
 
-               classes->data[i] = (java_objectheader *) c;
-               str = javastring_new(ste->method->name);
+               LLNI_array_direct(classes, i) = (java_object_t *) c;
+
+               string = javastring_new(ste->method->name);
 
-               if (!str)
-                       return NULL;
+               if (string == NULL)
+                       goto return_NULL;
 
-               methodnames->data[i] = (java_objectheader *) str;
+               array_objectarray_element_set(methodnames, i, string);
        }
 
        /* return the 2-dimensional array */
 
+       dump_release(dumpsize);
+
+       CYCLES_STATS_END(stacktrace_getStack)
+
        return oa;
+
+return_NULL:
+       dump_release(dumpsize);
+
+       CYCLES_STATS_END(stacktrace_getStack)
+
+       return NULL;
 }
+#endif /* ENABLE_JAVASE */
 
 
 /* stacktrace_print_trace_from_buffer ******************************************
@@ -1170,7 +874,7 @@ java_objectarray *stacktrace_getStack(void)
 
 *******************************************************************************/
 
-static void stacktrace_print_trace_from_buffer(stacktracebuffer *stb)
+void stacktrace_print_trace_from_buffer(stacktracebuffer *stb)
 {
        stacktrace_entry *ste;
        methodinfo       *m;
@@ -1182,17 +886,17 @@ static void stacktrace_print_trace_from_buffer(stacktracebuffer *stb)
                m = ste->method;
 
                printf("\tat ");
-               utf_display_classname(m->class->name);
+               utf_display_printable_ascii_classname(m->class->name);
                printf(".");
-               utf_display(m->name);
-               utf_display(m->descriptor);
+               utf_display_printable_ascii(m->name);
+               utf_display_printable_ascii(m->descriptor);
 
                if (m->flags & ACC_NATIVE) {
                        puts("(Native Method)");
 
                } else {
                        printf("(");
-                       utf_display(m->class->sourcefile);
+                       utf_display_printable_ascii(m->class->sourcefile);
                        printf(":%d)\n", (u4) ste->linenumber);
                }
        }
@@ -1203,78 +907,55 @@ static void stacktrace_print_trace_from_buffer(stacktracebuffer *stb)
 }
 
 
-/* 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)
 {
-       stackframeinfo   *psfi;
-       stacktracebuffer *stb;
-
-#if 0
-       /* get methodinfo pointer from data segment */
-
-       m = *((methodinfo **) (pv + MethodPointer));
-
-       /* get current stackframe info pointer */
-
-       psfi = STACKFRAMEINFO;
+       java_lang_Throwable     *t;
+#if defined(WITH_CLASSPATH_GNU)
+       java_lang_VMThrowable   *vmt;
+#endif
+       java_handle_bytearray_t *ba;
+       stacktracebuffer        *stb;
 
-       /* fill new stackframe info structure */
+       t = (java_lang_Throwable *) xptr;
 
-       sfi->prev   = *psfi;
-       sfi->method = NULL;
-       sfi->pv     = NULL;
-       sfi->sp     = sp;
-       sfi->ra     = ra;
+       if (t == NULL)
+               return;
 
-       /* store new stackframe info pointer */
+       /* now print the stacktrace */
 
-       *psfi = sfi;
+#if defined(WITH_CLASSPATH_GNU)
+       LLNI_field_get_ref(t, vmState, vmt);
+       LLNI_field_get_ref(vmt, vmData, ba);
+#elif defined(WITH_CLASSPATH_SUN) || defined(WITH_CLASSPATH_CLDC1_1)
+       LLNI_field_get_ref(t, backtrace, ba);
+#else
+# error unknown classpath configuration
 #endif
 
-       /* create a stacktrace for the current thread */
-
-       stb = stacktrace_create(THREADOBJECT);
-
-       /* print stacktrace */
+       assert(ba);
+       stb = (stacktracebuffer *) LLNI_array_data(ba);
 
-       if (stb) {
-               stacktrace_print_trace_from_buffer(stb);
-
-       } else {
-               puts("\t<<No stacktrace available>>");
-               fflush(stdout);
-       }
+       stacktrace_print_trace_from_buffer(stb);
 }
 
 
-/* stacktrace_print_trace ******************************************************
-
-   Print the stacktrace of a given exception. More or less a wrapper
-   to stacktrace_print_trace_from_buffer.
-
-*******************************************************************************/
-
-void stacktrace_print_trace(java_objectheader *xptr)
+#if defined(ENABLE_CYCLES_STATS)
+void stacktrace_print_cycles_stats(FILE *file)
 {
-       java_lang_Throwable   *t;
-       java_lang_VMThrowable *vmt;
-       stacktracebuffer      *stb;
-
-       t = (java_lang_Throwable *) xptr;
-
-       /* now print the stacktrace */
-
-       vmt = t->vmState;
-       stb = (stacktracebuffer *) vmt->vmData;
-
-       stacktrace_print_trace_from_buffer(stb);
+       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
 
 
 /*