/* src/cacaoh/headers.c - functions for header generation
- 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.
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
- Contact: cacao@complang.tuwien.ac.at
-
- Authors: Reinhard Grafl
-
- Changes: Mark Probst
- Philipp Tomsich
- Christian Thalinger
-
- $Id: headers.c 2464 2005-05-12 23:55:10Z twisti $
+ $Id: headers.c 7228 2007-01-19 01:13:48Z edwin $
*/
+#include "config.h"
+
#include <assert.h>
+#include <ctype.h>
+#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
-#include <ctype.h>
-#include "config.h"
+#include "vm/types.h"
-#if defined(USE_THREADS) && defined(NATIVE_THREADS)
+#if defined(ENABLE_THREADS)
# if defined(__DARWIN__)
# include <signal.h>
# endif
# include <ucontext.h>
#endif
-#include "mm/boehm.h"
+#include "mm/gc-common.h"
#include "mm/memory.h"
#include "native/include/java_lang_String.h"
#include "native/include/java_lang_Throwable.h"
#include "vm/class.h"
#include "vm/global.h"
#include "vm/method.h"
-#include "vm/tables.h"
#include "vm/loader.h"
#include "vm/options.h"
#include "vm/stringlocal.h"
#include "vm/jit/asmpart.h"
-/******* replace some external functions *********/
-
-functionptr native_findfunction(utf *cname, utf *mname, utf *desc, bool isstatic)
-{ return NULL; }
+/* Invocation API variables ***************************************************/
+
+_Jv_JavaVM *_Jv_jvm; /* denotes a Java VM */
+char *_Jv_bootclasspath;
+
+char *cacao_prefix;
+char *classpath_libdir;
+
+char *_Jv_classpath;
+char *_Jv_java_library_path;
+
+#if defined(ENABLE_INTRP)
+/* dummy interpreter stack to keep the compiler happy */
+
+u1 *intrp_main_stack;
+#endif
+
+
+/* for raising exceptions from native methods *********************************/
+
+#if !defined(ENABLE_THREADS)
+java_objectheader *_no_threads_exceptionptr = NULL;
+#endif
+
+
+/* replace some non-vmcore functions ******************************************/
+
+functionptr native_findfunction(utf *cname, utf *mname, utf *desc,
+ bool isstatic)
+{
+ /* return something different than NULL, otherwise we get an exception */
+
+ return (functionptr) 1;
+}
java_objectheader *native_new_and_init(classinfo *c) { return NULL; }
java_objectheader *native_new_and_init_string(classinfo *c, java_lang_String *s) { return NULL; }
java_objectheader *native_new_and_init_throwable(classinfo *c, java_lang_Throwable *t) { return NULL; }
-java_objectheader *asm_calljavafunction(methodinfo *m, void *arg1, void *arg2,
- void *arg3, void *arg4) { return NULL; }
+java_objectheader *vm_call_method(methodinfo *m, java_objectheader *o, ...)
+{ return NULL; }
-void asm_call_jit_compiler(void) {}
+void vm_abort(const char *text, ...)
+{
+ va_list ap;
-/* code patching functions */
-void patcher_builtin_new(u1 *sp) {}
-void patcher_builtin_newarray(u1 *sp) {}
-void patcher_builtin_arraycheckcast(u1 *sp) {}
-void patcher_builtin_arrayinstanceof(u1 *sp) {}
+ /* print the log message */
-s4 asm_builtin_idiv(s4 a, s4 b) { return 0; }
-s4 asm_builtin_irem(s4 a, s4 b) { return 0; }
-s8 asm_builtin_ldiv(s8 a, s8 b) { return 0; }
-s8 asm_builtin_lrem(s8 a, s8 b) { return 0; }
+ va_start(ap, text);
+ vfprintf(stderr, text, ap);
+ va_end(ap);
-s4 asm_builtin_f2i(float a) { return 0; }
-s8 asm_builtin_f2l(float a) { return 0; }
-s4 asm_builtin_d2i(double a) { return 0; }
-s8 asm_builtin_d2l(double a) { return 0; }
+ /* now abort the VM */
-void use_class_as_object(void) {}
-void asm_builtin_monitorenter(java_objectheader *o) {}
-void *asm_builtin_monitorexit(java_objectheader *o) { return NULL; }
+ abort();
+}
+
+/* code patching functions */
+void patcher_builtin_arraycheckcast(u1 *sp) {}
-s4 asm_builtin_arraycheckcast(java_objectheader *obj, vftbl_t *target)
+
+long compare_and_swap(volatile long *p, long oldval, long newval)
{
- return 0;
+ if (*p == oldval) {
+ *p = newval;
+ return oldval;
+ }
+ else
+ return *p;
+
+ return oldval;
}
-#if defined(__MIPS__)
-long compare_and_swap(long *p, long oldval, long newval)
+long asm_compare_and_swap(volatile long *p, long oldval, long newval)
{
if (*p == oldval) {
- *p = newval;
- return oldval;
- } else
- return *p;
+ *p = newval;
+ return oldval;
+ }
+ else
+ return *p;
+
+ return oldval;
}
-#endif
+void asm_memory_barrier(void)
+{
+}
-void asm_builtin_aastore(java_objectarray *a, s4 index, java_objectheader *o) {}
u1 *createcompilerstub(methodinfo *m) { return NULL; }
-u1 *createnativestub(functionptr f, methodinfo *m) { return NULL; }
-u1 *oldcreatenativestub(functionptr f, methodinfo *m) { return NULL; }
+#if defined(ENABLE_INTRP)
+u1 *intrp_createcompilerstub(methodinfo *m) { return NULL; }
+#endif
+
+codeinfo *codegen_createnativestub(functionptr f, methodinfo *m) { return NULL; }
void removecompilerstub(u1 *stub) {}
void removenativestub(u1 *stub) {}
void *asm_switchstackandcall(void *stack, void *func, void **stacktopsave, void * p) { return NULL; }
void asm_handle_builtin_exception(classinfo *c) {}
-void asm_getclassvalues_atomic(vftbl_t *super, vftbl_t *sub, castinfo *out) {}
-#if defined(__DARWIN__)
-int cacao_catch_Handler(void) {}
+#if defined(ENABLE_JIT)
+void asm_abstractmethoderror(void) {}
+void asm_getclassvalues_atomic(vftbl_t *super, vftbl_t *sub, castinfo *out) {}
#endif
-#if defined(USE_THREADS) && defined(NATIVE_THREADS)
-threadcritnode asm_criticalsections;
-void thread_restartcriticalsection(ucontext_t *uc) {}
+#if defined(ENABLE_INTRP)
+void intrp_asm_abstractmethoderror(void) {}
+void intrp_asm_getclassvalues_atomic(vftbl_t *super, vftbl_t *sub, castinfo *out) {}
#endif
+u8 asm_get_cycle_count(void)
+{
+ return 0;
+}
+
-void setVMClassField(classinfo *c) {}
void *Java_java_lang_VMObject_clone(void *env, void *clazz, void * this)
{
return NULL;
}
-tristate_t
-typeinfo_is_assignable_to_class(typeinfo *value,classref_or_classinfo dest)
+typecheck_result typeinfo_is_assignable_to_class(typeinfo *value,classref_or_classinfo dest)
+{
+ return typecheck_TRUE;
+}
+
+void typeinfo_init_classinfo(typeinfo *info,classinfo *c)
+{
+}
+
+bool typeinfo_init_class(typeinfo *info,classref_or_classinfo c)
{
return true;
}
+void typeinfo_print(FILE *file,typeinfo *info,int indent) {}
+void typeinfo_print_short(FILE *file,typeinfo *info) {}
+
+void exceptions_print_exception(java_objectheader *xptr) {}
+void stacktrace_dump_trace(threadobject *thread) {}
+void stacktrace_print_trace(java_objectheader *xptr) {}
+java_objectarray *stacktrace_getClassContext() { return NULL; }
+void code_free_code_of_method(methodinfo *m) {}
+
+void jit_invalidate_code(methodinfo *m) {}
+
/* exception functions ********************************************************/
/* these should not be called */
+void throw_main_exception_exit(void) { assert(0); }
void throw_exception(void) { assert(0); }
void throw_exception_exit(void) { assert(0); }
-java_objectheader *new_verifyerror(methodinfo *m, const char *message) { assert(0); }
-java_objectheader *new_exception_throwable(const char *classname, java_lang_Throwable *throwable) { assert(0); }
+void exceptions_throw_verifyerror(methodinfo *m, const char *message)
+{
+ assert(0);
+}
-void throw_cacao_exception_exit(const char *exception, const char *message, ...)
+java_objectheader *new_exception_throwable(const char *classname, java_lang_Throwable *throwable)
{
- va_list ap;
+ assert(0);
- fprintf(stderr, "%s: ", exception);
+ /* keep compiler happy */
- va_start(ap, message);
- vfprintf(stderr, message, ap);
- va_end(ap);
-
- exit(1);
+ return NULL;
}
{
fprintf(stderr, "%s\n", classname);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
}
{
fprintf(stderr, "%s: %s\n", classname, message);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
}
java_objectheader *new_exception_utfmessage(const char *classname, utf *message)
{
fprintf(stderr, "%s: ", classname);
- utf_display(message);
+ utf_display_printable_ascii(message);
+ fputc('\n', stderr);
+
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+java_objectheader *new_exception_javastring(const char *classname,
+ java_lang_String *message)
+{
+ fprintf(stderr, "%s: ", classname);
+ /* TODO print message */
fputc('\n', stderr);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+void exceptions_throw_abstractmethoderror(void)
+{
+ fprintf(stderr, "java.lang.AbstractMethodError\n");
+
+ exit(1);
}
{
va_list ap;
- utf_display(c->name);
+ utf_display_printable_ascii(c->name);
fprintf(stderr, ": ");
va_start(ap, message);
fputc('\n', stderr);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
}
-java_objectheader *new_internalerror(const char *message, ...)
+void exceptions_throw_classformaterror(classinfo *c, const char *message, ...)
+{
+ va_list ap;
+
+ va_start(ap, message);
+ (void) new_classformaterror(c, message, ap);
+ va_end(ap);
+}
+
+
+java_objectheader *new_classnotfoundexception(utf *name)
+{
+ fprintf(stderr, "java.lang.ClassNotFoundException: ");
+ utf_fprint_printable_ascii(stderr, name);
+ fputc('\n', stderr);
+
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+java_objectheader *new_noclassdeffounderror(utf *name)
+{
+ fprintf(stderr, "java.lang.NoClassDefFoundError: ");
+ utf_fprint_printable_ascii(stderr, name);
+ fputc('\n', stderr);
+
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+java_objectheader *exceptions_new_linkageerror(const char *message,
+ classinfo *c)
+{
+ fprintf(stderr, "java.lang.LinkageError: %s",message);
+ if (c) {
+ utf_fprint_printable_ascii_classname(stderr, c->name);
+ }
+ fputc('\n', stderr);
+
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+java_objectheader *exceptions_new_nosuchmethoderror(classinfo *c,
+ utf *name, utf *desc)
+{
+ fprintf(stderr, "java.lang.NoSuchMethodError: ");
+ utf_fprint_printable_ascii(stderr, c->name);
+ fprintf(stderr, ".");
+ utf_fprint_printable_ascii(stderr, name);
+ utf_fprint_printable_ascii(stderr, desc);
+ fputc('\n', stderr);
+
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+void exceptions_throw_nosuchmethoderror(classinfo *c, utf *name, utf *desc)
+{
+ (void) exceptions_new_nosuchmethoderror(c, name, desc);
+}
+
+
+void exceptions_throw_internalerror(const char *message, ...)
{
va_list ap;
}
+void exceptions_throw_outofmemoryerror(void)
+{
+ fprintf(stderr, "%s", string_java_lang_OutOfMemoryError);
+ exit(1);
+}
+
+
java_objectheader *new_unsupportedclassversionerror(classinfo *c, const char *message, ...)
{
va_list ap;
fprintf(stderr, "%s: ", string_java_lang_UnsupportedClassVersionError);
- utf_display(c->name);
+ utf_display_printable_ascii(c->name);
fprintf(stderr, ": ");
va_start(ap, message);
va_end(ap);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+void exceptions_throw_virtualmachineerror(void)
+{
+ fprintf(stderr, "%s", string_java_lang_VirtualMachineError);
+ exit(1);
+}
+
+
+void exceptions_throw_arrayindexoutofboundsexception(void)
+{
+ fprintf(stderr, "%s", string_java_lang_ArrayIndexOutOfBoundsException);
+ exit(1);
+}
+
+
+java_objectheader *exceptions_new_arraystoreexception(void)
+{
+ fprintf(stderr, "%s", string_java_lang_ArrayStoreException);
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+void exceptions_throw_arraystoreexception(void)
+{
+ (void) exceptions_new_arraystoreexception();
+}
+
+
+java_objectheader *exceptions_throw_illegalmonitorstateexception(void)
+{
+ fprintf(stderr, "%s", string_java_lang_IllegalMonitorStateException);
+ exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
}
{
fprintf(stderr, "%s", string_java_lang_NegativeArraySizeException);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
}
-java_objectheader *new_nullpointerexception(void)
+void exceptions_throw_negativearraysizeexception(void)
+{
+ (void) new_negativearraysizeexception();
+}
+
+
+java_objectheader *exceptions_new_nullpointerexception(void)
{
fprintf(stderr, "%s", string_java_lang_NullPointerException);
exit(1);
+
+ /* keep compiler happy */
+
+ return NULL;
+}
+
+
+void exceptions_throw_nullpointerexception(void)
+{
+ (void) exceptions_new_nullpointerexception();
+}
+
+
+void classnotfoundexception_to_noclassdeffounderror(void)
+{
}
+/* machine dependent stuff ****************************************************/
+
+#if defined(ENABLE_THREADS)
+critical_section_node_t asm_criticalsections;
+void thread_restartcriticalsection(ucontext_t *uc) {}
+#endif
+
+void md_param_alloc(methoddesc *md) {}
+
+
+#if defined(ENABLE_INTRP)
+void print_dynamic_super_statistics(void) {}
+#endif
+
/************************ global variables **********************/
-chain *nativemethod_chain; /* chain with native methods */
-chain *nativeclass_chain; /* chain with processed classes */
+#define ACC_NATIVELY_OVERLOADED 0x10000000
+
chain *ident_chain; /* chain with method and field names in current class */
FILE *file = NULL;
static u4 outputsize;
char *utf_ptr = u->text;
int i;
- for (i = 0; i < utf_strlen(u); i++)
+ for (i = 0; i < utf_get_number_of_u2s(u); i++)
printIDpart(utf_nextu2(&utf_ptr));
}
u4 newsize,i;
if (!dopadding) return;
- newsize = ALIGN(outputsize, len);
+ newsize = MEMORY_ALIGN(outputsize, len);
for (i = outputsize; i < newsize; i++) fprintf(file, " u1 pad%d\n", (int) i);
outputsize = newsize;
case 'F': fprintf (file, "java_floatarray*"); break;
case 'D': fprintf (file, "java_doublearray*"); break;
- case '[': fprintf (file, "java_objectarray*");
- while ((c = utf_nextu2(&utf_ptr)) == '[') ;
- if (c=='L')
+ case '[': fprintf(file, "java_objectarray*");
+ while ((c = utf_nextu2(&utf_ptr)) == '[');
+ if (c == 'L')
while (utf_nextu2(&utf_ptr) != ';');
break;
- case 'L': fprintf (file, "java_objectarray*");
- while ( utf_nextu2(&utf_ptr) != ';');
+ case 'L': fprintf(file, "java_objectarray*");
+ while (utf_nextu2(&utf_ptr) != ';');
break;
- default: panic ("invalid type descriptor");
+ default:
+ log_text("invalid type descriptor");
+ assert(0);
}
break;
fprintf (file, "*");
break;
- default: panic ("Unknown type in field descriptor");
+ default:
+ log_text("Unknown type in field descriptor");
+ assert(0);
}
return utf_ptr;
fprintf(file, " ");
printtype(f->descriptor->text);
fprintf(file, " ");
- utf_fprint(file, f->name);
+ utf_fprint_printable_ascii(file, f->name);
/* rename multiple fieldnames */
if ((ident_count = searchidentchain_utf(f->name)))
/* create remarks */
fprintf(file, "\n/*\n * Class: ");
- utf_fprint(file, m->class->name);
+ utf_fprint_printable_ascii(file, m->class->name);
fprintf(file, "\n * Method: ");
- utf_fprint(file, m->name);
+ utf_fprint_printable_ascii(file, m->name);
fprintf(file, "\n * Signature: ");
- utf_fprint(file, m->descriptor);
+ utf_fprint_printable_ascii(file, m->descriptor);
fprintf(file, "\n */\n");
/* create prototype */
fprintf(file, "_");
printID(m->name);
- if (m->nativelyoverloaded) printOverloadPart(m->descriptor);
+
+ /* ATTENTION: We use a dummy flag here. */
+
+ if (m->flags & ACC_NATIVELY_OVERLOADED)
+ printOverloadPart(m->descriptor);
+
fprintf(file, "(JNIEnv *env");
utf_ptr = m->descriptor->text + 1;
{
s4 i;
- for (i = 0; i < utf_strlen(u); i++) {
+ for (i = 0; i < utf_get_number_of_u2s(u); i++) {
if ((u->text[i] == '/') || (u->text[i] == '$')) {
buffer[i] = '_'; /* convert '$' and '/' to '_' */
buffer[i] = u->text[i];
}
}
- buffer[utf_strlen(u)] = '\0';
+ buffer[utf_get_number_of_u2s(u)] = '\0';
}
char uclassname[1024];
u2 i;
methodinfo *m;
- u2 i2;
+ u2 j;
methodinfo *m2;
- u2 nativelyoverloaded;
-
- /* store class in chain */
- chain_addlast(nativeclass_chain, c);
-
+ bool nativelyoverloaded;
+
+ /* prevent compiler warnings */
+
+ nativelyoverloaded = false;
+
/* open headerfile for class */
gen_header_filename(classname, c->name);
}
file = fopen(header_filename, "w");
- if (!file)
- panic("Can not open file to store header information");
+ if (!file) {
+ log_text("Can not open file to store header information");
+ assert(0);
+ }
- fprintf(file, "/* This file is machine generated, don't edit it !*/\n\n");
+ fprintf(file, "/* This file is machine generated, don't edit it! */\n\n");
/* convert to uppercase */
for (i = 0; classname[i]; i++) {
/* create structure for direct access to objects */
fprintf(file, "/* Structure information for class: ");
- utf_fprint(file, c->name);
+ utf_fprint_printable_ascii(file, c->name);
fprintf(file, " */\n\n");
fprintf(file, "typedef struct ");
printID(c->name);
/* create method-prototypes */
/* find overloaded methods */
- for (i = 0; i < c->methodscount; i++) {
+ for (i = 0; i < c->methodscount; i++) {
m = &(c->methods[i]);
- if (!(m->flags & ACC_NATIVE)) continue;
- if (!m->nativelyoverloaded) {
- nativelyoverloaded=false;
- for (i2=i+1;i2<c->methodscount; i2++) {
- m2 = &(c->methods[i2]);
- if (!(m2->flags & ACC_NATIVE)) continue;
- if (m->name==m2->name) {
- m2->nativelyoverloaded=true;
- nativelyoverloaded=true;
+ if (!(m->flags & ACC_NATIVE))
+ continue;
+
+ /* We use a dummy flag here. */
+
+ if (!(m->flags & ACC_NATIVELY_OVERLOADED)) {
+ nativelyoverloaded = false;
+
+ for (j = i + 1; j < c->methodscount; j++) {
+ m2 = &(c->methods[j]);
+
+ if (!(m2->flags & ACC_NATIVE))
+ continue;
+
+ if (m->name == m2->name) {
+ m2->flags |= ACC_NATIVELY_OVERLOADED;
+ nativelyoverloaded = true;
}
}
- m->nativelyoverloaded=nativelyoverloaded;
}
+ if (nativelyoverloaded == true)
+ m->flags |= ACC_NATIVELY_OVERLOADED;
}
for (i = 0; i < c->methodscount; i++) {
-
m = &(c->methods[i]);
- if (m->flags & ACC_NATIVE) {
- chain_addlast(nativemethod_chain, m);
+ if (m->flags & ACC_NATIVE)
printmethod(m);
- }
}
chain_free(ident_chain);
}
}
+/* jvmti releated functions ************************************************/
+
+#if defined(ENABLE_JVMTI)
+void jvmti_ThreadStartEnd(int ev) {;}
+void jvmti_ClassLoadPrepare(bool prepared, classinfo *c) {;}
+void jvmti_MonitorContendedEntering(bool entered, jobject obj) {;}
+#endif
+
+
/*
* These are local overrides for various environment variables in Emacs.
* c-basic-offset: 4
* tab-width: 4
* End:
+ * vim:noexpandtab:sw=4:ts=4:
*/