* Updated header: Added 2006. Changed address of FSF. Changed email
[cacao.git] / src / native / vm / VMThrowable.c
index f2a3a4b79fbb21ce78155f8a15ad71cfe1bf62df..e15ee36aca7771164b296e5fead27043798ffede 100644 (file)
@@ -1,9 +1,9 @@
-/* native/vm/VMThrowable.c - java/lang/VMThrowable
+/* src/native/vm/VMThrowable.c - java/lang/VMThrowable
 
-   Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
-   R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser,
-   M. Probst, S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck,
-   P. Tomsich, J. Wenninger
+   Copyright (C) 1996-2005, 2006 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.
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+   02110-1301, USA.
 
-   Contact: cacao@complang.tuwien.ac.at
+   Contact: cacao@cacaojvm.org
 
    Authors: Joseph Wenninger
 
-   $Id: VMThrowable.c 1621 2004-11-30 13:06:55Z twisti $
+   Changes: Christian Thalinger
+
+   $Id: VMThrowable.c 4357 2006-01-22 23:33:38Z twisti $
 
 */
 
 
+#include <assert.h>
+
+#include "config.h"
+#include "vm/types.h"
+
 #include "native/jni.h"
 #include "native/native.h"
 #include "native/include/java_lang_Class.h"
+#include "native/include/java_lang_StackTraceElement.h"
 #include "native/include/java_lang_Throwable.h"
 #include "native/include/java_lang_VMClass.h"
 #include "native/include/java_lang_VMThrowable.h"
 #include "vm/builtin.h"
+#include "vm/class.h"
+#include "vm/exceptions.h"
 #include "vm/loader.h"
-#include "vm/tables.h"
-#include "vm/jit/asmpart.h"
+#include "vm/stringlocal.h"
+#include "vm/jit/stacktrace.h"
 
 
 /*
  */
 JNIEXPORT java_lang_VMThrowable* JNICALL Java_java_lang_VMThrowable_fillInStackTrace(JNIEnv *env, jclass clazz, java_lang_Throwable *par1)
 {
-       classinfo *class_java_lang_VMThrowable = NULL;
        java_lang_VMThrowable *vmthrow;
 
-       if (!class_java_lang_VMThrowable)
-               class_java_lang_VMThrowable = class_new(utf_new_char("java/lang/VMThrowable"));
-
-       if (class_java_lang_VMThrowable == NULL)
-               panic("Needed class java.lang.VMThrowable missing");
+       vmthrow = (java_lang_VMThrowable *)
+               native_new_and_init(class_java_lang_VMThrowable);
 
-       vmthrow = (java_lang_VMThrowable *) native_new_and_init(class_java_lang_VMThrowable);
-
-       if (vmthrow == NULL)
-               panic("Needed instance of class  java.lang.VMThrowable could not be created");
+       if (!vmthrow) {
+               log_text("Needed instance of class  java.lang.VMThrowable could not be created");
+               assert(0);
+       }
 
-#if defined(__I386__)
-       (void) asm_get_stackTrace(&(vmthrow->vmData));
-#else
-       vmthrow->vmData=0;
+#if defined(__ALPHA__) || defined(__ARM__) || defined(__I386__) || defined(__MIPS__) || defined(__POWERPC__) || defined(__X86_64__)
+       if (!cacao_stacktrace_NormalTrace((void **) &(vmthrow->vmData)))
+               return NULL;
 #endif
 
        return vmthrow;
 }
 
 
-
-java_objectarray* generateStackTraceArray(JNIEnv *env,stacktraceelement *source,long pos,long size)
+/*
+ * Class:     java/lang/VMThrowable
+ * Method:    getStackTrace
+ * Signature: (Ljava/lang/Throwable;)[Ljava/lang/StackTraceElement;
+ */
+JNIEXPORT java_objectarray* JNICALL Java_java_lang_VMThrowable_getStackTrace(JNIEnv *env, java_lang_VMThrowable *this, java_lang_Throwable *t)
 {
-       long resultPos;
-       methodinfo *m;
-       classinfo *c;
-       java_objectarray *oa;
+#if defined(__ALPHA__) || defined(__ARM__) || defined(__I386__) || defined(__MIPS__) || defined(__POWERPC__) || defined(__X86_64__)
+       stackTraceBuffer            *buf;
+       stacktraceelement           *elem;
+       stacktraceelement           *tmpelem;
+       s4                           size;
+       s4                           i;
+       classinfo                   *c;
+       bool                         inexceptionclass;
+       bool                         leftexceptionclass;
+
+       methodinfo                  *m;
+       java_objectarray            *oa;
+       s4                           oalength;
+       java_lang_StackTraceElement *ste;
+       java_lang_String            *filename;
+       s4                           linenumber;
+       java_lang_String            *declaringclass;
+
+       buf = (stackTraceBuffer *) this->vmData;
+       c = t->header.vftbl->class;
+
+       if (!buf) {
+               log_text("Invalid java.lang.VMThrowable.vmData field in java.lang.VMThrowable.getStackTrace native code");
+               assert(0);
+       }
+       
+       size = buf->full;
 
-       c = class_new(utf_new_char("java/lang/StackTraceElement"));
+       if (size < 2) {
+               log_text("Invalid java.lang.VMThrowable.vmData field in java.lang.VMThrowable.getStackTrace native code (length<2)");
+               assert(0);
+       }
+
+       /* skip first 2 elements in stacktrace buffer:                            */
+       /*   0: VMThrowable.fillInStackTrace                                      */
+       /*   1: Throwable.fillInStackTrace                                        */
+
+       elem = &(buf->start[2]);
+       size -= 2;
+
+       if (size && elem->method != 0) {
+               /* not a builtin native wrapper*/
+
+               if ((elem->method->class->name == utf_java_lang_Throwable) &&
+                       (elem->method->name == utf_init)) {
+                       /* We assume that we are within the initializer of the exception  */
+                       /* object, the exception object itself should not appear in the   */
+                       /* stack trace, so we skip till we reach the first function,      */
+                       /* which is not an init function.                                 */
+
+                       inexceptionclass = false;
+                       leftexceptionclass = false;
+
+                       while (size > 0) {
+                               /* check if we are in the exception class */
+
+                               if (elem->method->class == c)
+                                       inexceptionclass = true;
+
+                               /* check if we left the exception class */
+
+                               if (inexceptionclass && (elem->method->class != c))
+                                       leftexceptionclass = true;
+
+                               /* found exception start point if we left the initalizers or  */
+                               /* we left the exception class                                */
+
+                               if ((elem->method->name != utf_init) || leftexceptionclass)
+                                       break;
+
+                               elem++;
+                               size--;
+                       }
+               }
+       }
 
-       if (!c->loaded)
-               class_load(c);
 
-       if (!c->linked)
-               class_link(c);
+       /* now fill the stacktrace into java objects */
 
-       m = class_findmethod(c,
-                                                utf_new_char("<init>"),
+       m = class_findmethod(class_java_lang_StackTraceElement,
+                                                utf_init,
                                                 utf_new_char("(Ljava/lang/String;ILjava/lang/String;Ljava/lang/String;Z)V"));
 
        if (!m)
-               panic("java.lang.StackTraceElement misses needed constructor"); 
+               return NULL;
 
-       oa = builtin_anewarray(size, c);
+       /* count entries with a method name */
 
-       if (!oa)
-               return 0;
+       for (oalength = 0, i = size, tmpelem = elem; i > 0; i--, tmpelem++)
+               if (tmpelem->method)
+                       oalength++;
 
-/*     printf("Should return an array with %ld element(s)\n",size);*/
-       pos--;
-       
-       
-       for(resultPos=0;pos>=0;resultPos++,pos--) {
-               java_objectheader *element;
+       /* create the stacktrace element array */
+
+       oa = builtin_anewarray(oalength, class_java_lang_StackTraceElement);
 
-               if (source[pos].method==0) {
-                       resultPos--;
+       if (!oa)
+               return NULL;
+
+       for (i = 0; size > 0; size--, elem++, i++) {
+               if (elem->method == NULL) {
+                       i--;
                        continue;
                }
 
-               element=builtin_new(c);
-               if (!element) {
-                       panic("Memory for stack trace element could not be allocated");
+               /* allocate a new stacktrace element */
+
+               ste = (java_lang_StackTraceElement *)
+                       builtin_new(class_java_lang_StackTraceElement);
+
+               if (!ste)
+                       return NULL;
+
+               /* get filename */
+
+               if (!(elem->method->flags & ACC_NATIVE)) {
+                       if (elem->method->class->sourcefile)
+                               filename = javastring_new(elem->method->class->sourcefile);
+                       else
+                               filename = NULL;
+
+               } else {
+                       filename = NULL;
                }
-#ifdef __GNUC__
-#warning call constructor once jni is fixed to allow more than three parameters
-#endif
-#if 0
-               (*env)->CallVoidMethod(env,element,m,
-                       javastring_new(source[pos].method->class->sourcefile),
-                       source[size].linenumber,
-                       javastring_new(source[pos].method->class->name),
-                       javastring_new(source[pos].method->name),
-                       source[pos].method->flags & ACC_NATIVE);
-#else
-               if (!(source[pos].method->flags & ACC_NATIVE))setfield_critical(c,element,"fileName",          
-               "Ljava/lang/String;",  jobject, 
-               (jobject) javastring_new(source[pos].method->class->sourcefile));
-/*             setfield_critical(c,element,"className",          "Ljava/lang/String;",  jobject,  */
-/*             (jobject) javastring_new(source[pos].method->class->name)); */
-               setfield_critical(c,element,"declaringClass",      "Ljava/lang/String;",  jobject, 
-               (jobject) Java_java_lang_VMClass_getName(env, NULL, (java_lang_Class *) source[pos].method->class));
-               setfield_critical(c,element,"methodName",          "Ljava/lang/String;",  jobject, 
-               (jobject) javastring_new(source[pos].method->name));
-               setfield_critical(c,element,"lineNumber",          "I",  jint, 
-               (jint) ((source[pos].method->flags & ACC_NATIVE) ? -1:(source[pos].linenumber)));
-               setfield_critical(c,element,"isNative",          "Z",  jboolean, 
-               (jboolean) ((source[pos].method->flags & ACC_NATIVE) ? 1:0));
-
-
-#endif                 
-
-               oa->data[resultPos]=element;
-       }
 
-       return oa;
+               /* get line number */
 
-}
+               if (elem->method->flags & ACC_NATIVE)
+                       linenumber = -1;
+               else
+                       linenumber = (elem->linenumber == 0) ? -1 : elem->linenumber;
 
+               /* get declaring class name */
 
-/*
- * Class:     java/lang/VMThrowable
- * Method:    getStackTrace
- * Signature: (Ljava/lang/Throwable;)[Ljava/lang/StackTraceElement;
- */
-JNIEXPORT java_objectarray* JNICALL Java_java_lang_VMThrowable_getStackTrace(JNIEnv *env, java_lang_VMThrowable *this, java_lang_Throwable *par1)
-{
-       long  pos;
-       long  maxpos;
-       long  sizediff;
-       utf*  classname=par1->header.vftbl->class->name;
-       utf*  init=utf_new_char("<init>");
-       utf*  throwable=utf_new_char("java/lang/Throwable");
-       stacktraceelement *el=(stacktraceelement*)this->vmData;
-
-       /*      log_text("Java_java_lang_VMThrowable_getStackTrace");
-       utf_display(par1->header.vftbl->class->name);
-       printf("\n----------------------------------------------\n");*/
-
-       sizediff=0;
-       if (el == 0) {
-               return generateStackTraceArray(env, el, 0,0);
-       }       
-
-       for (pos = 0; !((el[pos].method == 0) && (el[pos].linenumber ==-1)); pos++) {
-               if (el[pos].method==0) sizediff++;
-       }
+               declaringclass = Java_java_lang_VMClass_getName(env, NULL, (java_lang_Class *) elem->method->class);
 
-       if (pos == 0) {
-               panic("Stacktrace cannot have zero length");
-       }
 
-       pos--;
-       pos--;
-       maxpos = pos;
-       if (el[pos].method!=0) { /* if == 0 -> some builtin native */
-               if (el[pos].method->class->name == throwable && el[pos].method->name == init) {
-                       for (; pos >= 0 && el[pos].method->name == init && el[pos].method->class->name != classname; pos--) {
-/*                             log_text("ignoring:");
-                               utf_display(el[pos].method->name);
-                               log_text("");
-                               utf_display(el[pos].method->class->name);
-                               log_text("");*/
-
-                       };
-                       pos--;
-                       if (pos < 0) {
-                               log_text("Invalid stack trace for Throwable.getStackTrace()");
+               /* fill the stacktrace element */
 
-                       }
-               }
+               ste->fileName       = filename;
+               ste->lineNumber     = linenumber;
+               ste->declaringClass = declaringclass;
+               ste->methodName     = javastring_new(elem->method->name);
+               ste->isNative       = (elem->method->flags & ACC_NATIVE) ? 1 : 0;
+
+               oa->data[i] = (java_objectheader *) ste;
        }
-       
-       /* build the result array*/
-       pos++; /*arraysize*/
 
-       return generateStackTraceArray(env,el,pos,pos-sizediff);        
+       return oa;
+#else
+       return NULL;
+#endif
 }