Static class initializer functions.

diff --git a/src/vm/initialize.c b/src/vm/initialize.c
new file mode 100644 (file)
index 0000000..1a12b0b
--- /dev/null
+++ b/src/vm/initialize.c
@@ -0,0 +1,272 @@
+/* src/vm/initialize.c - static class initializer functions
+
+   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
+
+   This file is part of CACAO.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2, or (at
+   your option) any later version.
+
+   This program is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   General Public License for more details.
+
+   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: Reinhard Grafl
+
+   Changes: Mark Probst
+            Andreas Krall
+            Christian Thalinger
+
+   $Id: initialize.c 2197 2005-04-03 21:39:07Z twisti $
+
+*/
+
+
+#include <string.h>
+
+#include "config.h"
+#include "vm/builtin.h"
+#include "vm/class.h"
+#include "vm/exceptions.h"
+#include "vm/global.h"
+#include "vm/options.h"
+#include "vm/statistics.h"
+#include "vm/stringlocal.h"
+#include "vm/jit/asmpart.h"
+
+
+/* private functions **********************************************************/
+
+static bool initialize_class_intern(classinfo *c);
+
+
+/* initialize_class ************************************************************
+
+   In Java, every class can have a static initialization
+   function. This function has to be called BEFORE calling other
+   methods or accessing static variables.
+
+*******************************************************************************/
+
+bool initialize_class(classinfo *c)
+{
+       bool r;
+
+       if (!makeinitializations)
+               return true;
+
+#if defined(USE_THREADS)
+       /* enter a monitor on the class */
+
+       builtin_monitorenter((java_objectheader *) c);
+#endif
+
+       /* maybe the class is already initalized or the current thread, which can
+          pass the monitor, is currently initalizing this class */
+
+       /* JOWENN: In future we need an additinal flag: initializationfailed,
+               since further access to the class should cause a NoClassDefFound,
+               if the static initializer failed once
+        */
+
+       if (c->initialized || c->initializing) {
+#if defined(USE_THREADS)
+               builtin_monitorexit((java_objectheader *) c);
+#endif
+
+               return true;
+       }
+
+       /* this initalizing run begins NOW */
+       c->initializing = true;
+
+       /* call the internal function */
+       r = initialize_class_intern(c);
+
+       /* if return value is not NULL everything was ok and the class is
+          initialized */
+       if (r)
+               c->initialized = true;
+
+       /* this initalizing run is done */
+       c->initializing = false;
+
+#if defined(USE_THREADS)
+       /* leave the monitor */
+
+       builtin_monitorexit((java_objectheader *) c);
+#endif
+
+       return r;
+}
+
+
+/* initialize_class_intern *****************************************************
+
+   This function MUST NOT be called directly, because of thread
+   <clinit> race conditions.
+
+*******************************************************************************/
+
+static bool initialize_class_intern(classinfo *c)
+{
+       methodinfo *m;
+       s4 i;
+#if defined(USE_THREADS) && !defined(NATIVE_THREADS)
+       int b;
+#endif
+
+       /* maybe the class is not already linked */
+
+       if (!c->linked)
+               if (!link_class(c))
+                       return false;
+
+#if defined(STATISTICS)
+       if (opt_stat)
+               count_class_inits++;
+#endif
+
+       /* initialize super class */
+
+       if (c->super.cls) {
+               if (!c->super.cls->initialized) {
+                       if (initverbose) {
+                               char logtext[MAXLOGTEXT];
+                               strcpy(logtext, "Initialize super class ");
+                               utf_strcat_classname(logtext, c->super.cls->name);
+                               strcat(logtext, " from ");
+                               utf_strcat_classname(logtext, c->name);
+                               log_text(logtext);
+                       }
+
+                       if (!initialize_class(c->super.cls))
+                               return false;
+               }
+       }
+
+       /* initialize interface classes */
+
+       for (i = 0; i < c->interfacescount; i++) {
+               if (!c->interfaces[i].cls->initialized) {
+                       if (initverbose) {
+                               char logtext[MAXLOGTEXT];
+                               strcpy(logtext, "Initialize interface class ");
+                               utf_strcat_classname(logtext, c->interfaces[i].cls->name);
+                               strcat(logtext, " from ");
+                               utf_strcat_classname(logtext, c->name);
+                               log_text(logtext);
+                       }
+                       
+                       if (!initialize_class(c->interfaces[i].cls))
+                               return false;
+               }
+       }
+
+       m = class_findmethod(c, utf_clinit, utf_void__void);
+
+       if (!m) {
+               if (initverbose) {
+                       char logtext[MAXLOGTEXT];
+                       strcpy(logtext, "Class ");
+                       utf_strcat_classname(logtext, c->name);
+                       strcat(logtext, " has no static class initializer");
+                       log_text(logtext);
+               }
+
+               return true;
+       }
+
+       /* Sun's and IBM's JVM don't care about the static flag */
+/*     if (!(m->flags & ACC_STATIC)) { */
+/*             panic("Class initializer is not static!"); */
+
+       if (initverbose)
+               log_message_class("Starting static class initializer for class: ", c);
+
+#if defined(USE_THREADS) && !defined(NATIVE_THREADS)
+       b = blockInts;
+       blockInts = 0;
+#endif
+
+       /* now call the initializer */
+
+       asm_calljavafunction(m, NULL, NULL, NULL, NULL);
+
+#if defined(USE_THREADS) && !defined(NATIVE_THREADS)
+       assert(blockInts == 0);
+       blockInts = b;
+#endif
+
+       /* we have an exception or error */
+
+       if (*exceptionptr) {
+               /* class is NOT initialized */
+
+               c->initialized = false;
+
+               /* is this an exception, than wrap it */
+
+               if (builtin_instanceof(*exceptionptr, class_java_lang_Exception)) {
+                       java_objectheader *xptr;
+                       java_objectheader *cause;
+
+                       /* get the cause */
+
+                       cause = *exceptionptr;
+
+                       /* clear exception, because we are calling jit code again */
+
+                       *exceptionptr = NULL;
+
+                       /* wrap the exception */
+
+                       xptr =
+                               new_exception_throwable(string_java_lang_ExceptionInInitializerError,
+                                                                               (java_lang_Throwable *) cause);
+
+                       /* XXX should we exit here? */
+
+                       if (*exceptionptr)
+                               throw_exception();
+
+                       /* set new exception */
+
+                       *exceptionptr = xptr;
+               }
+
+               return false;
+       }
+
+       if (initverbose)
+               log_message_class("Finished static class initializer for class: ", c);
+
+       return true;
+}
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ */

diff --git a/src/vm/initialize.h b/src/vm/initialize.h
new file mode 100644 (file)
index 0000000..dba1aa9
--- /dev/null
+++ b/src/vm/initialize.h
@@ -0,0 +1,63 @@
+/* src/vm/initialize.h - static class initializer functions
+
+   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
+
+   This file is part of CACAO.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2, or (at
+   your option) any later version.
+
+   This program is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   General Public License for more details.
+
+   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: Reinhard Grafl
+
+   Changes: Mark Probst
+            Andreas Krall
+            Christian Thalinger
+
+   $Id: initialize.h 2197 2005-04-03 21:39:07Z twisti $
+
+*/
+
+
+#ifndef _INITIALIZE_H
+#define _INITIALIZE_H
+
+#include "vm/class.h"
+#include "vm/global.h"
+
+
+/* function prototypes ********************************************************/
+
+bool initialize_class(classinfo *c);
+
+#endif /* _INITIALIZE_H */
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ */