/* src/vm/builtin.c - functions for unsupported operations
- 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
+ Copyright (C) 1996-2005, 2006, 2007, 2008
+ CACAOVM - Verein zu Foerderung der freien virtuellen Machine CACAO
This file is part of CACAO.
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
- Contact: cacao@cacaojvm.org
-
- Authors: Reinhard Grafl
- Andreas Krall
- Mark Probst
-
- Changes: Christian Thalinger
- Edwin Steiner
-
Contains C functions for JavaVM Instructions that cannot be
translated to machine language directly. Consequently, the
generated machine code for these instructions contains function
calls instead of machine instructions, using the C calling
convention.
- $Id: builtin.c 5375 2006-09-06 16:01:23Z edwin $
-
*/
#include <assert.h>
#include <errno.h>
-#include <math.h>
#include <stdlib.h>
#include <string.h>
#include <sys/time.h>
#include "md-abi.h"
#include "fdlibm/fdlibm.h"
+#if defined(__CYGWIN__) && defined(Bias)
+# undef Bias
+#endif
-#include "mm/boehm.h"
+#include "mm/gc-common.h"
#include "mm/memory.h"
-#include "native/native.h"
-#include "native/include/java_lang_Cloneable.h"
-#include "native/include/java_lang_Object.h" /* required by VMObject */
-#include "native/include/java_lang_VMObject.h"
-#if defined(ENABLE_THREADS)
-# include "threads/native/threads.h"
-#endif
+#include "native/jni.h"
+#include "native/llni.h"
+
+#include "threads/lock-common.h"
+#include "threads/threads-common.h"
#include "toolbox/logging.h"
#include "toolbox/util.h"
+
+#include "vm/array.h"
#include "vm/builtin.h"
-#include "vm/class.h"
+#include "vm/cycles-stats.h"
#include "vm/exceptions.h"
#include "vm/global.h"
#include "vm/initialize.h"
-#include "vm/loader.h"
-#include "vm/options.h"
+#include "vm/primitive.h"
#include "vm/stringlocal.h"
+
#include "vm/jit/asmpart.h"
-#include "vm/jit/patcher.h"
-#include "vm/rt-timing.h"
-#include "vm/cycles-stats.h"
+#include "vm/jit/trace.h"
+
+#include "vmcore/class.h"
+#include "vmcore/linker.h"
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
+#include "vmcore/rt-timing.h"
+
+#if defined(ENABLE_VMLOG)
+#include <vmlog_cacao.h>
+#endif
/* include builtin tables *****************************************************/
CYCLES_STATS_DECLARE(builtin_new ,100,5)
CYCLES_STATS_DECLARE(builtin_overhead , 80,1)
+
+/*============================================================================*/
+/* BUILTIN TABLE MANAGEMENT FUNCTIONS */
+/*============================================================================*/
+
/* builtintable_init ***********************************************************
Parse the descriptors of builtin functions and create the parsed
static bool builtintable_init(void)
{
descriptor_pool *descpool;
- s4 dumpsize;
builtintable_entry *bte;
+ methodinfo *m;
+ int32_t dumpmarker;
/* mark start of dump memory area */
- dumpsize = dump_size();
+ DMARKER;
/* create a new descriptor pool */
/* first add all descriptors to the pool */
for (bte = builtintable_internal; bte->fp != NULL; bte++) {
- /* create a utf8 string from descriptor */
-
+ bte->name = utf_new_char(bte->cname);
bte->descriptor = utf_new_char(bte->cdescriptor);
if (!descriptor_pool_add(descpool, bte->descriptor, NULL)) {
/* release dump area */
- dump_release(dumpsize);
+ DRELEASE;
return false;
}
bte->descriptor = utf_new_char(bte->cdescriptor);
if (!descriptor_pool_add(descpool, bte->descriptor, NULL)) {
- dump_release(dumpsize);
+ DRELEASE;
return false;
}
}
bte->descriptor = utf_new_char(bte->cdescriptor);
if (!descriptor_pool_add(descpool, bte->descriptor, NULL)) {
- dump_release(dumpsize);
+ DRELEASE;
return false;
}
}
descriptor_pool_alloc_parsed_descriptors(descpool);
- /* now parse all descriptors */
+ /* Now parse all descriptors. NOTE: builtin-functions are treated
+ like static methods (no `this' pointer). */
for (bte = builtintable_internal; bte->fp != NULL; bte++) {
- /* parse the descriptor, builtin is always static (no `this' pointer) */
+ bte->md =
+ descriptor_pool_parse_method_descriptor(descpool,
+ bte->descriptor,
+ ACC_STATIC | ACC_METHOD_BUILTIN,
+ NULL);
+
+ /* generate a builtin stub if we need one */
- bte->md = descriptor_pool_parse_method_descriptor(descpool,
- bte->descriptor,
- ACC_STATIC, NULL);
+ if (bte->flags & BUILTINTABLE_FLAG_STUB) {
+ m = method_new_builtin(bte);
+ codegen_generate_stub_builtin(m, bte);
+ }
}
for (bte = builtintable_automatic; bte->fp != NULL; bte++) {
- bte->md = descriptor_pool_parse_method_descriptor(descpool,
- bte->descriptor,
- ACC_STATIC, NULL);
+ bte->md =
+ descriptor_pool_parse_method_descriptor(descpool,
+ bte->descriptor,
+ ACC_STATIC | ACC_METHOD_BUILTIN,
+ NULL);
+
+ /* no stubs should be needed for this table */
+
+ assert(!bte->flags & BUILTINTABLE_FLAG_STUB);
}
for (bte = builtintable_function; bte->fp != NULL; bte++) {
- bte->md = descriptor_pool_parse_method_descriptor(descpool,
- bte->descriptor,
- ACC_STATIC, NULL);
+ bte->md =
+ descriptor_pool_parse_method_descriptor(descpool,
+ bte->descriptor,
+ ACC_STATIC | ACC_METHOD_BUILTIN,
+ NULL);
+
+ /* generate a builtin stub if we need one */
+
+ if (bte->flags & BUILTINTABLE_FLAG_STUB) {
+ m = method_new_builtin(bte);
+ codegen_generate_stub_builtin(m, bte);
+ }
}
/* release dump area */
- dump_release(dumpsize);
+ DRELEASE;
return true;
}
if (middle->opcode < opcode) {
first = middle + 1;
entries -= half + 1;
- } else
+ }
+ else
entries = half;
}
*******************************************************************************/
-bool builtintable_replace_function(instruction *iptr)
+#if defined(ENABLE_JIT)
+bool builtintable_replace_function(void *iptr_)
{
constant_FMIref *mr;
builtintable_entry *bte;
+ instruction *iptr;
+
+ iptr = (instruction *) iptr_; /* twisti will kill me ;) */
/* get name and descriptor of the function */
for (bte = builtintable_function; bte->fp != NULL; bte++) {
if ((METHODREF_CLASSNAME(mr) == bte->classname) &&
- (mr->name == bte->name) &&
- (mr->descriptor == bte->descriptor)) {
+ (mr->name == bte->name) &&
+ (mr->descriptor == bte->descriptor)) {
/* set the values in the instruction */
- iptr->opc = bte->opcode;
+ iptr->opc = bte->opcode;
iptr->sx.s23.s3.bte = bte;
- if (bte->checkexception)
+
+ if (bte->flags & BUILTINTABLE_FLAG_EXCEPTION)
iptr->flags.bits |= INS_FLAG_CHECK;
else
iptr->flags.bits &= ~INS_FLAG_CHECK;
return false;
}
+#endif /* defined(ENABLE_JIT) */
-/*****************************************************************************
- TYPE CHECKS
-*****************************************************************************/
-
+/*============================================================================*/
+/* INTERNAL BUILTIN FUNCTIONS */
+/*============================================================================*/
+/* builtin_instanceof **********************************************************
-/*************** internal function: builtin_isanysubclass *********************
+ Checks if an object is an instance of some given class (or subclass
+ of that class). If class is an interface, checks if the interface
+ is implemented.
- Checks a subclass relation between two classes. Implemented interfaces
- are interpreted as super classes.
- Return value: 1 ... sub is subclass of super
- 0 ... otherwise
-
-*****************************************************************************/
-s4 builtin_isanysubclass(classinfo *sub, classinfo *super)
-{
- s4 res;
- castinfo classvalues;
-
- if (sub == super)
- return 1;
+ RETURN VALUE:
+ 1......o is an instance of class or implements the interface
+ 0......otherwise or if o == NULL
- if (super->flags & ACC_INTERFACE) {
- res = (sub->vftbl->interfacetablelength > super->index) &&
- (sub->vftbl->interfacetable[-super->index] != NULL);
-
- } else {
- ASM_GETCLASSVALUES_ATOMIC(super->vftbl, sub->vftbl, &classvalues);
-
- res = (u4) (classvalues.sub_baseval - classvalues.super_baseval) <=
- (u4) classvalues.super_diffval;
- }
-
- return res;
-}
+ NOTE: This builtin can be called from NATIVE code only.
+*******************************************************************************/
-s4 builtin_isanysubclass_vftbl(vftbl_t *sub, vftbl_t *super)
+s4 builtin_instanceof(java_handle_t *o, classinfo *class)
{
- s4 res;
- s4 base;
- castinfo classvalues;
+ classinfo *c;
- if (sub == super)
- return 1;
+ if (o == NULL)
+ return 0;
- ASM_GETCLASSVALUES_ATOMIC(super, sub, &classvalues);
+ LLNI_class_get(o, c);
- if ((base = classvalues.super_baseval) <= 0) {
- /* super is an interface */
- res = (sub->interfacetablelength > -base) &&
- (sub->interfacetable[base] != NULL);
- } else {
- res = (u4) (classvalues.sub_baseval - classvalues.super_baseval)
- <= (u4) classvalues.super_diffval;
- }
-
- return res;
+ return class_isanysubclass(c, class);
}
-/****************** function: builtin_instanceof *****************************
- Checks if an object is an instance of some given class (or subclass of
- that class). If class is an interface, checks if the interface is
- implemented.
- Return value: 1 ... obj is an instance of class or implements the interface
- 0 ... otherwise or if obj == NULL
-
-*****************************************************************************/
+/* builtin_checkcast ***********************************************************
-s4 builtin_instanceof(java_objectheader *obj, classinfo *class)
-{
- if (!obj)
- return 0;
-
- return builtin_isanysubclass(obj->vftbl->class, class);
-}
+ The same as builtin_instanceof but with the exception
+ that 1 is returned when (o == NULL).
+ NOTE: This builtin can be called from NATIVE code only.
+*******************************************************************************/
-/**************** function: builtin_checkcast *******************************
-
- The same as builtin_instanceof except that 1 is returned when
- obj == NULL
-
-****************************************************************************/
-
-s4 builtin_checkcast(java_objectheader *obj, classinfo *class)
+s4 builtin_checkcast(java_handle_t *o, classinfo *class)
{
- if (obj == NULL)
+ classinfo *c;
+
+ if (o == NULL)
return 1;
- if (builtin_isanysubclass(obj->vftbl->class, class))
+ LLNI_class_get(o, c);
+
+ if (class_isanysubclass(c, class))
return 1;
return 0;
/* builtin_descriptorscompatible ***********************************************
- Checks if two array type descriptors are assignment compatible
+ Checks if two array type descriptors are assignment compatible.
- Return value: 1 ... target = desc is possible
- 0 ... otherwise
+ RETURN VALUE:
+ 1......target = desc is possible
+ 0......otherwise
*******************************************************************************/
(target->elementvftbl->baseval == 1))
return 1;
- return builtin_isanysubclass_vftbl(desc->elementvftbl,
- target->elementvftbl);
+ return class_isanysubclass(desc->elementvftbl->class,
+ target->elementvftbl->class);
}
if (desc->dimension < target->dimension)
/* {desc has higher dimension than target} */
- return builtin_isanysubclass_vftbl(pseudo_class_Arraystub->vftbl,
- target->elementvftbl);
+ return class_isanysubclass(pseudo_class_Arraystub,
+ target->elementvftbl->class);
}
arrays of arrays (which in turn can again be arrays of arrays), the
types at the lowest level have to satisfy the corresponding sub
class relation.
-
+
+ NOTE: This is a FAST builtin and can be called from JIT code only.
+
*******************************************************************************/
-s4 builtin_arraycheckcast(java_objectheader *o, classinfo *targetclass)
+s4 builtin_fast_arraycheckcast(java_object_t *o, classinfo *targetclass)
{
arraydescriptor *desc;
- if (!o)
+ if (o == NULL)
return 1;
- if ((desc = o->vftbl->arraydesc) == NULL)
+ desc = o->vftbl->arraydesc;
+
+ if (desc == NULL)
return 0;
return builtin_descriptorscompatible(desc, targetclass->vftbl->arraydesc);
}
-s4 builtin_arrayinstanceof(java_objectheader *o, classinfo *targetclass)
+/* builtin_fast_arrayinstanceof ************************************************
+
+ NOTE: This is a FAST builtin and can be called from JIT code only.
+
+*******************************************************************************/
+
+s4 builtin_fast_arrayinstanceof(java_object_t *o, classinfo *targetclass)
{
- if (!o)
+ if (o == NULL)
return 0;
- return builtin_arraycheckcast(o, targetclass);
+ return builtin_fast_arraycheckcast(o, targetclass);
}
-/* builtin_throw_exception *****************************************************
+/* builtin_arrayinstanceof *****************************************************
- Sets the exceptionptr with the thrown exception and prints some
- debugging information. Called from asm_vm_call_method.
+ NOTE: This builtin can be called from NATIVE code only.
*******************************************************************************/
-void *builtin_throw_exception(java_objectheader *xptr)
+s4 builtin_arrayinstanceof(java_handle_t *h, classinfo *targetclass)
{
-#if !defined(NDEBUG)
- java_lang_Throwable *t;
- char *logtext;
- s4 logtextlen;
- s4 dumpsize;
-
- if (opt_verbose) {
- t = (java_lang_Throwable *) xptr;
-
- /* calculate message length */
-
- logtextlen = strlen("Builtin exception thrown: ") + strlen("0");
-
- if (t) {
- logtextlen +=
- utf_bytes(xptr->vftbl->class->name);
- if (t->detailMessage) {
- logtextlen += strlen(": ") +
- u2_utflength(t->detailMessage->value->data
- + t->detailMessage->offset,
- t->detailMessage->count);
- }
- }
- else {
- logtextlen += strlen("(nil)");
- }
+ s4 result;
- /* allocate memory */
+ LLNI_CRITICAL_START;
- dumpsize = dump_size();
+ result = builtin_fast_arrayinstanceof(LLNI_UNWRAP(h), targetclass);
- logtext = DMNEW(char, logtextlen);
+ LLNI_CRITICAL_END;
- strcpy(logtext, "Builtin exception thrown: ");
-
- if (t) {
- utf_cat_classname(logtext, xptr->vftbl->class->name);
+ return result;
+}
- if (t->detailMessage) {
- char *buf;
- buf = javastring_tochar((java_objectheader *) t->detailMessage);
- strcat(logtext, ": ");
- strcat(logtext, buf);
- MFREE(buf, char, strlen(buf) + 1);
- }
+/* builtin_throw_exception *****************************************************
- } else {
- strcat(logtext, "(nil)");
- }
+ Sets the exception pointer with the thrown exception and prints some
+ debugging information.
+
+ NOTE: This is a FAST builtin and can be called from JIT code,
+ or from asm_vm_call_method.
- log_text(logtext);
+*******************************************************************************/
- /* release memory */
+void *builtin_throw_exception(java_object_t *xptr)
+{
+#if !defined(NDEBUG)
+ /* print exception trace */
- dump_release(dumpsize);
- }
+ if (opt_TraceExceptions)
+ trace_exception_builtin(xptr);
#endif /* !defined(NDEBUG) */
/* actually set the exception */
- *exceptionptr = xptr;
+ exceptions_set_exception(LLNI_QUICKWRAP(xptr));
/* Return a NULL pointer. This is required for vm_call_method to
check for an exception. This is for convenience. */
}
+/* builtin_retrieve_exception **************************************************
+
+ Gets and clears the exception pointer of the current thread.
+
+ RETURN VALUE:
+ the exception object, or NULL if no exception was thrown.
+
+ NOTE: This is a FAST builtin and can be called from JIT code,
+ or from the signal handlers.
+
+*******************************************************************************/
+
+java_object_t *builtin_retrieve_exception(void)
+{
+ java_handle_t *h;
+ java_object_t *o;
+
+ /* actually get and clear the exception */
+
+ h = exceptions_get_and_clear_exception();
+ o = LLNI_UNWRAP(h);
+
+ return o;
+}
+
+
/* builtin_canstore ************************************************************
Checks, if an object can be stored in an array.
- Return value: 1 ... possible
- 0 ... otherwise
+ RETURN VALUE:
+ 1......possible
+ 0......otherwise (throws an ArrayStoreException)
+
+ NOTE: This is a SLOW builtin and can be called from JIT & NATIVE code.
*******************************************************************************/
-s4 builtin_canstore(java_objectarray *oa, java_objectheader *o)
+s4 builtin_canstore(java_handle_objectarray_t *oa, java_handle_t *o)
+{
+ int result;
+
+ LLNI_CRITICAL_START;
+
+ result = builtin_fast_canstore(LLNI_DIRECT(oa), LLNI_UNWRAP(o));
+
+ LLNI_CRITICAL_END;
+
+ /* if not possible, throw an exception */
+
+ if (result == 0)
+ exceptions_throw_arraystoreexception();
+
+ return result;
+}
+
+
+/* builtin_fast_canstore *******************************************************
+
+ Checks, if an object can be stored in an array.
+
+ RETURN VALUE:
+ 1......possible
+ 0......otherwise (no exception thrown!)
+
+ NOTE: This is a FAST builtin and can be called from JIT code only.
+
+*******************************************************************************/
+
+s4 builtin_fast_canstore(java_objectarray_t *oa, java_object_t *o)
{
arraydescriptor *desc;
arraydescriptor *valuedesc;
vftbl_t *componentvftbl;
vftbl_t *valuevftbl;
- s4 base;
- castinfo classvalues;
+ int32_t baseval;
+ uint32_t diffval;
+ int result;
- if (!o)
+ if (o == NULL)
return 1;
/* The following is guaranteed (by verifier checks):
* *) oa->...vftbl->arraydesc->componentvftbl != NULL
* *) o->vftbl is not an interface vftbl
*/
-
+
desc = oa->header.objheader.vftbl->arraydesc;
componentvftbl = desc->componentvftbl;
valuevftbl = o->vftbl;
+ valuedesc = valuevftbl->arraydesc;
if ((desc->dimension - 1) == 0) {
- s4 res;
-
/* {oa is a one-dimensional array} */
/* {oa is an array of references} */
if (valuevftbl == componentvftbl)
return 1;
- ASM_GETCLASSVALUES_ATOMIC(componentvftbl, valuevftbl, &classvalues);
+ LOCK_MONITOR_ENTER(linker_classrenumber_lock);
+
+ baseval = componentvftbl->baseval;
- if ((base = classvalues.super_baseval) <= 0)
+ if (baseval <= 0) {
/* an array of interface references */
- return (valuevftbl->interfacetablelength > -base &&
- valuevftbl->interfacetable[base] != NULL);
-
- res = ((unsigned) (classvalues.sub_baseval - classvalues.super_baseval)
- <= (unsigned) classvalues.super_diffval);
- return res;
- }
+ result = ((valuevftbl->interfacetablelength > -baseval) &&
+ (valuevftbl->interfacetable[baseval] != NULL));
+ }
+ else {
+ diffval = valuevftbl->baseval - componentvftbl->baseval;
+ result = diffval <= (uint32_t) componentvftbl->diffval;
+ }
- /* {oa has dimension > 1} */
- /* {componentvftbl->arraydesc != NULL} */
+ LOCK_MONITOR_EXIT(linker_classrenumber_lock);
+ }
+ else if (valuedesc == NULL) {
+ /* {oa has dimension > 1} */
+ /* {componentvftbl->arraydesc != NULL} */
- /* check if o is an array */
+ /* check if o is an array */
- if ((valuedesc = valuevftbl->arraydesc) == NULL)
return 0;
+ }
+ else {
+ /* {o is an array} */
- /* {o is an array} */
+ result = builtin_descriptorscompatible(valuedesc, componentvftbl->arraydesc);
+ }
+
+ /* return result */
- return builtin_descriptorscompatible(valuedesc, componentvftbl->arraydesc);
+ return result;
}
/* This is an optimized version where a is guaranteed to be one-dimensional */
-s4 builtin_canstore_onedim (java_objectarray *a, java_objectheader *o)
+s4 builtin_fast_canstore_onedim(java_objectarray_t *a, java_object_t *o)
{
arraydescriptor *desc;
- vftbl_t *elementvftbl;
- vftbl_t *valuevftbl;
- s4 res;
- int base;
- castinfo classvalues;
+ vftbl_t *elementvftbl;
+ vftbl_t *valuevftbl;
+ int32_t baseval;
+ uint32_t diffval;
+ int result;
- if (!o) return 1;
+ if (o == NULL)
+ return 1;
/* The following is guaranteed (by verifier checks):
*
if (valuevftbl == elementvftbl)
return 1;
- ASM_GETCLASSVALUES_ATOMIC(elementvftbl, valuevftbl, &classvalues);
+ LOCK_MONITOR_ENTER(linker_classrenumber_lock);
- if ((base = classvalues.super_baseval) <= 0)
+ baseval = elementvftbl->baseval;
+
+ if (baseval <= 0) {
/* an array of interface references */
- return (valuevftbl->interfacetablelength > -base &&
- valuevftbl->interfacetable[base] != NULL);
+ result = ((valuevftbl->interfacetablelength > -baseval) &&
+ (valuevftbl->interfacetable[baseval] != NULL));
+ }
+ else {
+ diffval = valuevftbl->baseval - elementvftbl->baseval;
+ result = diffval <= (uint32_t) elementvftbl->diffval;
+ }
- res = (unsigned) (classvalues.sub_baseval - classvalues.super_baseval)
- <= (unsigned) classvalues.super_diffval;
+ LOCK_MONITOR_EXIT(linker_classrenumber_lock);
- return res;
+ return result;
}
/* This is an optimized version where a is guaranteed to be a
* one-dimensional array of a class type */
-s4 builtin_canstore_onedim_class(java_objectarray *a, java_objectheader *o)
+s4 builtin_fast_canstore_onedim_class(java_objectarray_t *a, java_object_t *o)
{
- vftbl_t *elementvftbl;
- vftbl_t *valuevftbl;
- s4 res;
- castinfo classvalues;
+ vftbl_t *elementvftbl;
+ vftbl_t *valuevftbl;
+ uint32_t diffval;
+ int result;
- if (!o) return 1;
+ if (o == NULL)
+ return 1;
/* The following is guaranteed (by verifier checks):
*
if (valuevftbl == elementvftbl)
return 1;
- ASM_GETCLASSVALUES_ATOMIC(elementvftbl, valuevftbl, &classvalues);
+ LOCK_MONITOR_ENTER(linker_classrenumber_lock);
+
+ diffval = valuevftbl->baseval - elementvftbl->baseval;
+ result = diffval <= (uint32_t) elementvftbl->diffval;
- res = (unsigned) (classvalues.sub_baseval - classvalues.super_baseval)
- <= (unsigned) classvalues.super_diffval;
+ LOCK_MONITOR_EXIT(linker_classrenumber_lock);
- return res;
+ return result;
}
Creates a new instance of class c on the heap.
- Return value: pointer to the object or NULL if no memory is
- available
-
+ RETURN VALUE:
+ pointer to the object, or NULL if no memory is available
+
+ NOTE: This builtin can be called from NATIVE code only.
+
*******************************************************************************/
-java_objectheader *builtin_new(classinfo *c)
+java_handle_t *builtin_new(classinfo *c)
{
- java_objectheader *o;
+ java_handle_t *o;
#if defined(ENABLE_RT_TIMING)
struct timespec time_start, time_end;
#endif
/* check if we can instantiate this class */
if (c->flags & ACC_ABSTRACT) {
- *exceptionptr =
- new_exception_utfmessage(string_java_lang_InstantiationError,
- c->name);
+ exceptions_throw_instantiationerror(c);
return NULL;
}
return NULL;
}
- o = heap_allocate(c->instancesize, c->flags & ACC_CLASS_HAS_POINTERS,
- c->finalizer);
+ o = heap_alloc(c->instancesize, c->flags & ACC_CLASS_HAS_POINTERS,
+ c->finalizer, true);
if (!o)
return NULL;
- o->vftbl = c->vftbl;
+#if !defined(ENABLE_GC_CACAO) && defined(ENABLE_HANDLES)
+ /* XXX this is only a dirty hack to make Boehm work with handles */
+
+ o = LLNI_WRAP((java_object_t *) o);
+#endif
+
+ LLNI_vftbl_direct(o) = c->vftbl;
#if defined(ENABLE_THREADS)
- lock_init_object_lock(o);
+ lock_init_object_lock(LLNI_DIRECT(o));
#endif
CYCLES_STATS_GET(cycles_end);
}
-/* builtin_newarray ************************************************************
+/* builtin_java_new ************************************************************
- Creates an array with the given vftbl on the heap. This function
- takes as class argument an array class.
-
- Return value: pointer to the array or NULL if no memory is available
+ NOTE: This is a SLOW builtin and can be called from JIT code only.
*******************************************************************************/
-java_arrayheader *builtin_newarray(s4 size, classinfo *arrayclass)
+java_handle_t *builtin_java_new(java_handle_t *clazz)
{
- arraydescriptor *desc;
- s4 dataoffset;
- s4 componentsize;
- s4 actualsize;
- java_arrayheader *a;
-#if defined(ENABLE_RT_TIMING)
- struct timespec time_start, time_end;
-#endif
-
- RT_TIMING_GET_TIME(time_start);
-
- desc = arrayclass->vftbl->arraydesc;
- dataoffset = desc->dataoffset;
- componentsize = desc->componentsize;
-
- if (size < 0) {
- exceptions_throw_negativearraysizeexception();
- return NULL;
- }
-
- actualsize = dataoffset + size * componentsize;
-
- if (((u4) actualsize) < ((u4) size)) { /* overflow */
- *exceptionptr = new_exception(string_java_lang_OutOfMemoryError);
- return NULL;
- }
-
- a = heap_allocate(actualsize, (desc->arraytype == ARRAYTYPE_OBJECT), NULL);
-
- if (!a)
- return NULL;
-
- a->objheader.vftbl = arrayclass->vftbl;
-
-#if defined(ENABLE_THREADS)
- lock_init_object_lock(&a->objheader);
-#endif
-
- a->size = size;
-
- RT_TIMING_GET_TIME(time_end);
- RT_TIMING_TIME_DIFF(time_start, time_end, RT_TIMING_NEW_ARRAY);
-
- return a;
+ return builtin_new(LLNI_classinfo_unwrap(clazz));
}
-/* builtin_anewarray ***********************************************************
-
- Creates an array of references to the given class type on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_objectarray *builtin_anewarray(s4 size, classinfo *componentclass)
-{
- classinfo *arrayclass;
-
- /* is class loaded */
-
- assert(componentclass->state & CLASS_LOADED);
-
- /* is class linked */
+/* builtin_fast_new ************************************************************
- if (!(componentclass->state & CLASS_LINKED))
- if (!link_class(componentclass))
- return NULL;
-
- arrayclass = class_array_of(componentclass, true);
-
- if (!arrayclass)
- return NULL;
-
- return (java_objectarray *) builtin_newarray(size, arrayclass);
-}
-
-
-/* builtin_newarray_boolean ****************************************************
-
- Creates an array of bytes on the heap. The array is designated as
- an array of booleans (important for casts)
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_booleanarray *builtin_newarray_boolean(s4 size)
-{
- return (java_booleanarray *)
- builtin_newarray(size,
- primitivetype_table[ARRAYTYPE_BOOLEAN].arrayclass);
-}
-
-
-/* builtin_newarray_byte *******************************************************
-
- Creates an array of 8 bit Integers on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_bytearray *builtin_newarray_byte(s4 size)
-{
- return (java_bytearray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_BYTE].arrayclass);
-}
-
-
-/* builtin_newarray_char *******************************************************
-
- Creates an array of characters on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_chararray *builtin_newarray_char(s4 size)
-{
- return (java_chararray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_CHAR].arrayclass);
-}
-
-
-/* builtin_newarray_short ******************************************************
-
- Creates an array of 16 bit Integers on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_shortarray *builtin_newarray_short(s4 size)
-{
- return (java_shortarray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_SHORT].arrayclass);
-}
-
-
-/* builtin_newarray_int ********************************************************
-
- Creates an array of 32 bit Integers on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_intarray *builtin_newarray_int(s4 size)
-{
- return (java_intarray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_INT].arrayclass);
-}
-
-
-/* builtin_newarray_long *******************************************************
-
- Creates an array of 64 bit Integers on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_longarray *builtin_newarray_long(s4 size)
-{
- return (java_longarray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_LONG].arrayclass);
-}
-
-
-/* builtin_newarray_float ******************************************************
-
- Creates an array of 32 bit IEEE floats on the heap.
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-*******************************************************************************/
-
-java_floatarray *builtin_newarray_float(s4 size)
-{
- return (java_floatarray *)
- builtin_newarray(size, primitivetype_table[ARRAYTYPE_FLOAT].arrayclass);
-}
-
-
-/* builtin_newarray_double *****************************************************
+ Creates a new instance of class c on the heap.
- Creates an array of 64 bit IEEE floats on the heap.
+ RETURN VALUE:
+ pointer to the object, or NULL if no fast return
+ is possible for any reason.
- Return value: pointer to the array or NULL if no memory is
- available
+ NOTE: This is a FAST builtin and can be called from JIT code only.
*******************************************************************************/
-java_doublearray *builtin_newarray_double(s4 size)
-{
- return (java_doublearray *)
- builtin_newarray(size,
- primitivetype_table[ARRAYTYPE_DOUBLE].arrayclass);
-}
-
-
-/* builtin_multianewarray_intern ***********************************************
-
- Creates a multi-dimensional array on the heap. The dimensions are
- passed in an array of longs.
-
- Arguments:
- n............number of dimensions to create
- arrayvftbl...vftbl of the array class
- dims.........array containing the size of each dimension to create
-
- Return value: pointer to the array or NULL if no memory is
- available
-
-******************************************************************************/
-
-static java_arrayheader *builtin_multianewarray_intern(int n,
- classinfo *arrayclass,
- long *dims)
+java_object_t *builtin_fast_new(classinfo *c)
{
- s4 size;
- java_arrayheader *a;
- classinfo *componentclass;
- s4 i;
-
- /* create this dimension */
-
- size = (s4) dims[0];
- a = builtin_newarray(size, arrayclass);
-
- if (!a)
- return NULL;
-
- /* if this is the last dimension return */
-
- if (!--n)
- return a;
-
- /* get the class of the components to create */
-
- componentclass = arrayclass->vftbl->arraydesc->componentvftbl->class;
-
- /* The verifier guarantees that the dimension count is in the range. */
-
- /* create the component arrays */
-
- for (i = 0; i < size; i++) {
- java_arrayheader *ea =
-#if defined(__MIPS__) && (SIZEOF_VOID_P == 4)
- /* we save an s4 to a s8 slot, 8-byte aligned */
-
- builtin_multianewarray_intern(n, componentclass, dims + 2);
-#else
- builtin_multianewarray_intern(n, componentclass, dims + 1);
+ java_object_t *o;
+#if defined(ENABLE_RT_TIMING)
+ struct timespec time_start, time_end;
#endif
-
- if (!ea)
- return NULL;
-
- ((java_objectarray *) a)->data[i] = (java_objectheader *) ea;
- }
-
- return a;
-}
-
-
-/* builtin_multianewarray ******************************************************
-
- Wrapper for builtin_multianewarray_intern which checks all
- dimensions before we start allocating.
-
-******************************************************************************/
-
-java_arrayheader *builtin_multianewarray(int n, classinfo *arrayclass,
- long *dims)
-{
- s4 i;
- s4 size;
-
- /* check all dimensions before doing anything */
-
- for (i = 0; i < n; i++) {
-#if defined(__MIPS__) && (SIZEOF_VOID_P == 4)
- /* we save an s4 to a s8 slot, 8-byte aligned */
- size = (s4) dims[i * 2];
-#else
- size = (s4) dims[i];
+#if defined(ENABLE_CYCLES_STATS)
+ u8 cycles_start, cycles_end;
#endif
- if (size < 0) {
- exceptions_throw_negativearraysizeexception();
- return NULL;
- }
- }
-
- /* now call the real function */
-
- return builtin_multianewarray_intern(n, arrayclass, dims);
-}
+ RT_TIMING_GET_TIME(time_start);
+ CYCLES_STATS_GET(cycles_start);
+ /* is the class loaded */
-/*****************************************************************************
- METHOD LOGGING
+ assert(c->state & CLASS_LOADED);
- Various functions for printing a message at method entry or exit (for
- debugging)
-
-*****************************************************************************/
+ /* check if we can instantiate this class */
-#if !defined(NDEBUG)
-static s4 methodindent = 0;
-static u4 callcount = 0;
+ if (c->flags & ACC_ABSTRACT)
+ return NULL;
-java_objectheader *builtin_trace_exception(java_objectheader *xptr,
- methodinfo *m,
- void *pos,
- s4 indent)
-{
- char *logtext;
- s4 logtextlen;
- s4 dumpsize;
- codeinfo *code;
+ /* is the class linked */
- if (opt_verbosecall && indent)
- methodindent--;
+ if (!(c->state & CLASS_LINKED))
+ return NULL;
- /* calculate message length */
+ if (!(c->state & CLASS_INITIALIZED))
+ return NULL;
- if (xptr) {
- logtextlen =
- strlen("Exception ") + utf_bytes(xptr->vftbl->class->name);
- }
- else {
- logtextlen = strlen("Some Throwable");
- }
+ o = heap_alloc(c->instancesize, c->flags & ACC_CLASS_HAS_POINTERS,
+ c->finalizer, false);
- logtextlen += strlen(" thrown in ");
+ if (!o)
+ return NULL;
- if (m) {
- logtextlen +=
- utf_bytes(m->class->name) +
- strlen(".") +
- utf_bytes(m->name) +
- utf_bytes(m->descriptor) +
- strlen("(NOSYNC,NATIVE");
+ o->vftbl = c->vftbl;
-#if SIZEOF_VOID_P == 8
- logtextlen +=
- strlen(")(0x123456789abcdef0) at position 0x123456789abcdef0 (");
-#else
- logtextlen += strlen(")(0x12345678) at position 0x12345678 (");
+#if defined(ENABLE_THREADS)
+ lock_init_object_lock(o);
#endif
- if (m->class->sourcefile == NULL)
- logtextlen += strlen("<NO CLASSFILE INFORMATION>");
- else
- logtextlen += utf_bytes(m->class->sourcefile);
-
- logtextlen += strlen(":65536)");
-
- }
- else {
- logtextlen += strlen("call_java_method");
- }
-
- logtextlen += strlen("0");
-
- /* allocate memory */
-
- dumpsize = dump_size();
-
- logtext = DMNEW(char, logtextlen);
-
- if (xptr) {
- strcpy(logtext, "Exception ");
- utf_cat_classname(logtext, xptr->vftbl->class->name);
+ CYCLES_STATS_GET(cycles_end);
+ RT_TIMING_GET_TIME(time_end);
- } else {
- strcpy(logtext, "Some Throwable");
- }
+ CYCLES_STATS_COUNT(builtin_new,cycles_end - cycles_start);
+ RT_TIMING_TIME_DIFF(time_start, time_end, RT_TIMING_NEW_OBJECT);
- strcat(logtext, " thrown in ");
+ return o;
+}
- if (m) {
- utf_cat_classname(logtext, m->class->name);
- strcat(logtext, ".");
- utf_cat(logtext, m->name);
- utf_cat(logtext, m->descriptor);
- if (m->flags & ACC_SYNCHRONIZED)
- strcat(logtext, "(SYNC");
- else
- strcat(logtext, "(NOSYNC");
+/* builtin_newarray ************************************************************
- if (m->flags & ACC_NATIVE) {
- strcat(logtext, ",NATIVE");
+ Creates an array with the given vftbl on the heap. This function
+ takes as class argument an array class.
- code = m->code;
+ RETURN VALUE:
+ pointer to the array or NULL if no memory is available
-#if SIZEOF_VOID_P == 8
- sprintf(logtext + strlen(logtext),
- ")(0x%016lx) at position 0x%016lx",
- (ptrint) code->entrypoint, (ptrint) pos);
-#else
- sprintf(logtext + strlen(logtext),
- ")(0x%08x) at position 0x%08x",
- (ptrint) code->entrypoint, (ptrint) pos);
-#endif
+ NOTE: This builtin can be called from NATIVE code only.
- } else {
+*******************************************************************************/
- /* XXX preliminary: This should get the actual codeinfo */
- /* in which the exception happened. */
- code = m->code;
-
-#if SIZEOF_VOID_P == 8
- sprintf(logtext + strlen(logtext),
- ")(0x%016lx) at position 0x%016lx (",
- (ptrint) code->entrypoint, (ptrint) pos);
-#else
- sprintf(logtext + strlen(logtext),
- ")(0x%08x) at position 0x%08x (",
- (ptrint) code->entrypoint, (ptrint) pos);
+java_handle_t *builtin_newarray(s4 size, classinfo *arrayclass)
+{
+ arraydescriptor *desc;
+ s4 dataoffset;
+ s4 componentsize;
+ s4 actualsize;
+ java_handle_t *a;
+#if defined(ENABLE_RT_TIMING)
+ struct timespec time_start, time_end;
#endif
- if (m->class->sourcefile == NULL)
- strcat(logtext, "<NO CLASSFILE INFORMATION>");
- else
- utf_cat(logtext, m->class->sourcefile);
-
- sprintf(logtext + strlen(logtext), ":%d)", 0);
- }
-
- } else
- strcat(logtext, "call_java_method");
+ RT_TIMING_GET_TIME(time_start);
- log_text(logtext);
+ desc = arrayclass->vftbl->arraydesc;
+ dataoffset = desc->dataoffset;
+ componentsize = desc->componentsize;
- /* release memory */
+ if (size < 0) {
+ exceptions_throw_negativearraysizeexception();
+ return NULL;
+ }
- dump_release(dumpsize);
+ actualsize = dataoffset + size * componentsize;
- return xptr;
-}
-#endif /* !defined(NDEBUG) */
+ /* check for overflow */
+ if (((u4) actualsize) < ((u4) size)) {
+ exceptions_throw_outofmemoryerror();
+ return NULL;
+ }
-/* builtin_print_argument ******************************************************
+ a = heap_alloc(actualsize, (desc->arraytype == ARRAYTYPE_OBJECT), NULL, true);
- Prints arguments and return values for the call trace.
+ if (a == NULL)
+ return NULL;
-*******************************************************************************/
+#if !defined(ENABLE_GC_CACAO) && defined(ENABLE_HANDLES)
+ /* XXX this is only a dirty hack to make Boehm work with handles */
-#if !defined(NDEBUG)
-static char *builtin_print_argument(char *logtext, s4 logtextlen,
- typedesc *paramtype, s8 value)
-{
- imm_union imu;
- java_objectheader *o;
- java_lang_String *s;
- classinfo *c;
- utf *u;
- u4 len;
-
- switch (paramtype->type) {
- case TYPE_INT:
- imu.i = (s4) value;
- sprintf(logtext + strlen(logtext), "%d (0x%08x)", imu.i, imu.i);
- break;
-
- case TYPE_LNG:
- imu.l = value;
-#if SIZEOF_VOID_P == 4
- sprintf(logtext + strlen(logtext), "%lld (0x%016llx)", imu.l, imu.l);
-#else
- sprintf(logtext + strlen(logtext), "%ld (0x%016lx)", imu.l, imu.l);
+ a = LLNI_WRAP((java_object_t *) a);
#endif
- break;
- case TYPE_FLT:
- imu.i = (s4) value;
- sprintf(logtext + strlen(logtext), "%.8f (0x%08x)", imu.f, imu.i);
- break;
+ LLNI_vftbl_direct(a) = arrayclass->vftbl;
- case TYPE_DBL:
- imu.l = value;
-#if SIZEOF_VOID_P == 4
- sprintf(logtext + strlen(logtext), "%.16g (0x%016llx)", imu.d, imu.l);
-#else
- sprintf(logtext + strlen(logtext), "%.16g (0x%016lx)", imu.d, imu.l);
+#if defined(ENABLE_THREADS)
+ lock_init_object_lock(LLNI_DIRECT(a));
#endif
- break;
- case TYPE_ADR:
- sprintf(logtext + strlen(logtext), "%p", (void *) (ptrint) value);
+ LLNI_array_size(a) = size;
- /* cast to java.lang.Object */
+ RT_TIMING_GET_TIME(time_end);
+ RT_TIMING_TIME_DIFF(time_start, time_end, RT_TIMING_NEW_ARRAY);
- o = (java_objectheader *) (ptrint) value;
+ return a;
+}
- /* check return argument for java.lang.Class or java.lang.String */
- if (o != NULL) {
- if (o->vftbl->class == class_java_lang_String) {
- /* get java.lang.String object and the length of the
- string */
+/* builtin_java_newarray *******************************************************
- s = (java_lang_String *) o;
+ NOTE: This is a SLOW builtin and can be called from JIT code only.
- u = javastring_toutf(s, false);
+*******************************************************************************/
- len = strlen(" (String = \"") + utf_bytes(u) + strlen("\")");
+java_handle_t *builtin_java_newarray(s4 size, java_handle_t *arrayclazz)
+{
+ return builtin_newarray(size, LLNI_classinfo_unwrap(arrayclazz));
+}
- /* realloc memory for string length */
- DMREALLOC(logtext, char, logtextlen, logtextlen + len);
+/* builtin_anewarray ***********************************************************
- /* convert to utf8 string and strcat it to the logtext */
+ Creates an array of references to the given class type on the heap.
- strcat(logtext, " (String = \"");
- utf_cat(logtext, u);
- strcat(logtext, "\")");
- }
- else {
- if (o->vftbl->class == class_java_lang_Class) {
- /* if the object returned is a java.lang.Class
- cast it to classinfo structure and get the name
- of the class */
+ RETURN VALUE:
+ pointer to the array or NULL if no memory is
+ available
- c = (classinfo *) o;
+ NOTE: This builtin can be called from NATIVE code only.
- u = c->name;
- }
- else {
- /* if the object returned is not a java.lang.String or
- a java.lang.Class just print the name of the class */
+*******************************************************************************/
- u = o->vftbl->class->name;
- }
+java_handle_objectarray_t *builtin_anewarray(s4 size, classinfo *componentclass)
+{
+ classinfo *arrayclass;
+
+ /* is class loaded */
- len = strlen(" (Class = \"") + utf_bytes(u) + strlen("\")");
+ assert(componentclass->state & CLASS_LOADED);
- /* realloc memory for string length */
+ /* is class linked */
- DMREALLOC(logtext, char, logtextlen, logtextlen + len);
+ if (!(componentclass->state & CLASS_LINKED))
+ if (!link_class(componentclass))
+ return NULL;
- /* strcat to the logtext */
+ arrayclass = class_array_of(componentclass, true);
- strcat(logtext, " (Class = \"");
- utf_cat_classname(logtext, u);
- strcat(logtext, "\")");
- }
- }
- }
+ if (!arrayclass)
+ return NULL;
- return logtext;
+ return (java_handle_objectarray_t *) builtin_newarray(size, arrayclass);
}
-#endif /* !defined(NDEBUG) */
-
-/* builtin_trace_args **********************************************************
- Print method call with arguments for -verbose:call.
+/* builtin_newarray_type ****************************************************
-*******************************************************************************/
+ Creates an array of [type]s on the heap.
+
+ RETURN VALUE:
+ pointer to the array or NULL if no memory is available
-#if !defined(NDEBUG)
+ NOTE: This is a SLOW builtin and can be called from JIT & NATIVE code.
-#ifdef TRACE_ARGS_NUM
-void builtin_trace_args(s8 a0, s8 a1,
-#if TRACE_ARGS_NUM >= 4
- s8 a2, s8 a3,
-#endif /* TRACE_ARGS_NUM >= 4 */
-#if TRACE_ARGS_NUM >= 6
- s8 a4, s8 a5,
-#endif /* TRACE_ARGS_NUM >= 6 */
-#if TRACE_ARGS_NUM == 8
- s8 a6, s8 a7,
-#endif /* TRACE_ARGS_NUM == 8 */
- methodinfo *m)
-{
- methoddesc *md;
- char *logtext;
- s4 logtextlen;
- s4 dumpsize;
- s4 i;
- s4 pos;
-
- md = m->parseddesc;
-
- /* calculate message length */
-
- logtextlen =
- strlen("4294967295 ") +
- strlen("-2147483647-") + /* INT_MAX should be sufficient */
- methodindent +
- strlen("called: ") +
- utf_bytes(m->class->name) +
- strlen(".") +
- utf_bytes(m->name) +
- utf_bytes(m->descriptor) +
- strlen(" SYNCHRONIZED") + strlen("(") + strlen(")");
-
- /* add maximal argument length */
-
- logtextlen += strlen("0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, 0x123456789abcdef0, ...(255)");
-
- /* allocate memory */
-
- dumpsize = dump_size();
-
- logtext = DMNEW(char, logtextlen);
-
- callcount++;
-
- sprintf(logtext, "%10d ", callcount);
- sprintf(logtext + strlen(logtext), "-%d-", methodindent);
-
- pos = strlen(logtext);
-
- for (i = 0; i < methodindent; i++)
- logtext[pos++] = '\t';
-
- strcpy(logtext + pos, "called: ");
-
- utf_cat_classname(logtext, m->class->name);
- strcat(logtext, ".");
- utf_cat(logtext, m->name);
- utf_cat(logtext, m->descriptor);
-
- if (m->flags & ACC_PUBLIC) strcat(logtext, " PUBLIC");
- if (m->flags & ACC_PRIVATE) strcat(logtext, " PRIVATE");
- if (m->flags & ACC_PROTECTED) strcat(logtext, " PROTECTED");
- if (m->flags & ACC_STATIC) strcat(logtext, " STATIC");
- if (m->flags & ACC_FINAL) strcat(logtext, " FINAL");
- if (m->flags & ACC_SYNCHRONIZED) strcat(logtext, " SYNCHRONIZED");
- if (m->flags & ACC_VOLATILE) strcat(logtext, " VOLATILE");
- if (m->flags & ACC_TRANSIENT) strcat(logtext, " TRANSIENT");
- if (m->flags & ACC_NATIVE) strcat(logtext, " NATIVE");
- if (m->flags & ACC_INTERFACE) strcat(logtext, " INTERFACE");
- if (m->flags & ACC_ABSTRACT) strcat(logtext, " ABSTRACT");
-
- strcat(logtext, "(");
-
- if (md->paramcount >= 1) {
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[0], a0);
- }
+*******************************************************************************/
- if (md->paramcount >= 2) {
- strcat(logtext, ", ");
+#define BUILTIN_NEWARRAY_TYPE(type, arraytype) \
+java_handle_##type##array_t *builtin_newarray_##type(s4 size) \
+{ \
+ return (java_handle_##type##array_t *) \
+ builtin_newarray(size, primitivetype_table[arraytype].arrayclass); \
+}
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[1], a1);
- }
+BUILTIN_NEWARRAY_TYPE(boolean, ARRAYTYPE_BOOLEAN)
+BUILTIN_NEWARRAY_TYPE(byte, ARRAYTYPE_BYTE)
+BUILTIN_NEWARRAY_TYPE(char, ARRAYTYPE_CHAR)
+BUILTIN_NEWARRAY_TYPE(short, ARRAYTYPE_SHORT)
+BUILTIN_NEWARRAY_TYPE(int, ARRAYTYPE_INT)
+BUILTIN_NEWARRAY_TYPE(long, ARRAYTYPE_LONG)
+BUILTIN_NEWARRAY_TYPE(float, ARRAYTYPE_FLOAT)
+BUILTIN_NEWARRAY_TYPE(double, ARRAYTYPE_DOUBLE)
-#if TRACE_ARGS_NUM >= 4
- if (md->paramcount >= 3) {
- strcat(logtext, ", ");
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[2], a2);
- }
+/* builtin_multianewarray_intern ***********************************************
- if (md->paramcount >= 4) {
- strcat(logtext, ", ");
+ Creates a multi-dimensional array on the heap. The dimensions are
+ passed in an array of longs.
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[3], a3);
- }
-#endif
+ ARGUMENTS:
+ n.............number of dimensions to create
+ arrayclass....the array class
+ dims..........array containing the size of each dimension to create
-#if TRACE_ARGS_NUM >= 6
- if (md->paramcount >= 5) {
- strcat(logtext, ", ");
+ RETURN VALUE:
+ pointer to the array or NULL if no memory is available
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[4], a4);
- }
+******************************************************************************/
- if (md->paramcount >= 6) {
- strcat(logtext, ", ");
+static java_handle_t *builtin_multianewarray_intern(int n,
+ classinfo *arrayclass,
+ long *dims)
+{
+ s4 size;
+ java_handle_t *a;
+ classinfo *componentclass;
+ s4 i;
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[5], a5);
- }
-#endif
+ /* create this dimension */
-#if TRACE_ARGS_NUM == 8
- if (md->paramcount >= 7) {
- strcat(logtext, ", ");
+ size = (s4) dims[0];
+ a = builtin_newarray(size, arrayclass);
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[6], a6);
- }
+ if (!a)
+ return NULL;
- if (md->paramcount >= 8) {
- strcat(logtext, ", ");
+ /* if this is the last dimension return */
- logtext = builtin_print_argument(logtext, logtextlen,
- &md->paramtypes[7], a7);
- }
-#endif
+ if (!--n)
+ return a;
- if (md->paramcount > 8) {
- sprintf(logtext + strlen(logtext), ", ...(%d)",
- md->paramcount - TRACE_ARGS_NUM);
- }
+ /* get the class of the components to create */
- strcat(logtext, ")");
+ componentclass = arrayclass->vftbl->arraydesc->componentvftbl->class;
- log_text(logtext);
+ /* The verifier guarantees that the dimension count is in the range. */
- /* release memory */
+ /* create the component arrays */
- dump_release(dumpsize);
+ for (i = 0; i < size; i++) {
+ java_handle_t *ea =
+#if defined(__MIPS__) && (SIZEOF_VOID_P == 4)
+ /* we save an s4 to a s8 slot, 8-byte aligned */
- methodindent++;
-}
+ builtin_multianewarray_intern(n, componentclass, dims + 2);
+#else
+ builtin_multianewarray_intern(n, componentclass, dims + 1);
#endif
-#endif /* !defined(NDEBUG) */
-
-
-/* builtin_displaymethodstop ***************************************************
-
- Print method exit for -verbose:call.
-
-*******************************************************************************/
-#if !defined(NDEBUG)
-void builtin_displaymethodstop(methodinfo *m, s8 l, double d, float f)
-{
- methoddesc *md;
- char *logtext;
- s4 logtextlen;
- s4 dumpsize;
- s4 i;
- s4 pos;
+ if (!ea)
+ return NULL;
- md = m->parseddesc;
+ array_objectarray_element_set((java_handle_objectarray_t *) a, i, ea);
+ }
- /* calculate message length */
+ return a;
+}
- logtextlen =
- strlen("4294967295 ") +
- strlen("-2147483647-") + /* INT_MAX should be sufficient */
- methodindent +
- strlen("finished: ") +
- utf_bytes(m->class->name) +
- strlen(".") +
- utf_bytes(m->name) +
- utf_bytes(m->descriptor) +
- strlen(" SYNCHRONIZED") + strlen("(") + strlen(")");
- /* add maximal argument length */
+/* builtin_multianewarray ******************************************************
- logtextlen += strlen("->0.4872328470301428 (0x0123456789abcdef)");
+ Wrapper for builtin_multianewarray_intern which checks all
+ dimensions before we start allocating.
- /* allocate memory */
+ NOTE: This is a SLOW builtin and can be called from JIT code only.
- dumpsize = dump_size();
+******************************************************************************/
- logtext = DMNEW(char, logtextlen);
+java_handle_objectarray_t *builtin_multianewarray(int n,
+ java_handle_t *arrayclazz,
+ long *dims)
+{
+ classinfo *c;
+ s4 i;
+ s4 size;
- /* outdent the log message */
+ /* check all dimensions before doing anything */
- if (methodindent)
- methodindent--;
- else
- log_text("WARNING: unmatched methodindent--");
+ for (i = 0; i < n; i++) {
+#if defined(__MIPS__) && (SIZEOF_VOID_P == 4)
+ /* we save an s4 to a s8 slot, 8-byte aligned */
+ size = (s4) dims[i * 2];
+#else
+ size = (s4) dims[i];
+#endif
- /* generate the message */
+ if (size < 0) {
+ exceptions_throw_negativearraysizeexception();
+ return NULL;
+ }
+ }
- sprintf(logtext, " ");
- sprintf(logtext + strlen(logtext), "-%d-", methodindent);
+ c = LLNI_classinfo_unwrap(arrayclazz);
- pos = strlen(logtext);
+ /* now call the real function */
- for (i = 0; i < methodindent; i++)
- logtext[pos++] = '\t';
+ return (java_handle_objectarray_t *)
+ builtin_multianewarray_intern(n, c, dims);
+}
- strcpy(logtext + pos, "finished: ");
- utf_cat_classname(logtext, m->class->name);
- strcat(logtext, ".");
- utf_cat(logtext, m->name);
- utf_cat(logtext, m->descriptor);
- if (!IS_VOID_TYPE(md->returntype.type))
- strcat(logtext, "->");
+/* builtin_verbosecall_enter ***************************************************
- logtext = builtin_print_argument(logtext, logtextlen, &md->returntype, l);
+ Print method call with arguments for -verbose:call.
- log_text(logtext);
+ XXX: Remove mew once all archs use the new tracer!
- /* release memory */
+*******************************************************************************/
- dump_release(dumpsize);
+#if !defined(NDEBUG)
+#ifdef TRACE_ARGS_NUM
+void builtin_verbosecall_enter(s8 a0, s8 a1,
+# if TRACE_ARGS_NUM >= 4
+ s8 a2, s8 a3,
+# endif
+# if TRACE_ARGS_NUM >= 6
+ s8 a4, s8 a5,
+# endif
+# if TRACE_ARGS_NUM == 8
+ s8 a6, s8 a7,
+# endif
+ methodinfo *m)
+{
+ log_text("builtin_verbosecall_enter: Do not call me anymore!");
}
+#endif
#endif /* !defined(NDEBUG) */
-#if defined(ENABLE_CYCLES_STATS)
-void builtin_print_cycles_stats(FILE *file)
-{
- fprintf(file,"builtin cylce count statistics:\n");
+/* builtin_verbosecall_exit ****************************************************
- CYCLES_STATS_PRINT_OVERHEAD(builtin_overhead,file);
- CYCLES_STATS_PRINT(builtin_new ,file);
+ Print method exit for -verbose:call.
- fprintf(file,"\n");
-}
-#endif /* defined(ENABLE_CYCLES_STATS) */
+ XXX: Remove mew once all archs use the new tracer!
+*******************************************************************************/
-/*****************************************************************************
- MISCELLANEOUS HELPER FUNCTIONS
-*****************************************************************************/
+#if !defined(NDEBUG)
+void builtin_verbosecall_exit(s8 l, double d, float f, methodinfo *m)
+{
+ log_text("builtin_verbosecall_exit: Do not call me anymore!");
+}
+#endif /* !defined(NDEBUG) */
+/*============================================================================*/
+/* MISCELLANEOUS MATHEMATICAL HELPER FUNCTIONS */
+/*============================================================================*/
/*********** Functions for integer divisions *****************************
******************************************************************************/
-#if !SUPPORT_DIVISION
+#if !SUPPORT_DIVISION || defined(DISABLE_GC)
s4 builtin_idiv(s4 a, s4 b)
{
s4 c;
return c;
}
-#endif /* !SUPPORT_DIVISION */
+#endif /* !SUPPORT_DIVISION || defined(DISABLE_GC) */
/* functions for long arithmetics **********************************************
#endif /* !(SUPPORT_LONG && SUPPORT_LONG_MUL) */
-#if !(SUPPORT_DIVISION && SUPPORT_LONG && SUPPORT_LONG_DIV)
+#if !(SUPPORT_DIVISION && SUPPORT_LONG && SUPPORT_LONG_DIV) || defined (DISABLE_GC)
s8 builtin_ldiv(s8 a, s8 b)
{
s8 c;
#endif /* !SUPPORT_FLOAT */
-#if !SUPPORT_FLOAT || defined(ENABLE_INTRP)
+#if !SUPPORT_FLOAT || !SUPPORT_FLOAT_CMP || defined(ENABLE_INTRP)
s4 builtin_fcmpl(float a, float b)
{
- if (isnanf(a)) return -1;
- if (isnanf(b)) return -1;
+ if (isnanf(a))
+ return -1;
+
+ if (isnanf(b))
+ return -1;
+
if (!finitef(a) || !finitef(b)) {
a = finitef(a) ? 0 : copysignf(1.0, a);
b = finitef(b) ? 0 : copysignf(1.0, b);
}
- if (a > b) return 1;
- if (a == b) return 0;
+
+ if (a > b)
+ return 1;
+
+ if (a == b)
+ return 0;
+
return -1;
}
if (a == b) return 0;
return -1;
}
-#endif /* !SUPPORT_FLOAT || defined(ENABLE_INTRP) */
+#endif /* !SUPPORT_FLOAT || !SUPPORT_FLOAT_CMP || defined(ENABLE_INTRP) */
float builtin_frem(float a, float b)
#endif /* !SUPPORT_DOUBLE */
-#if !SUPPORT_DOUBLE || defined(ENABLE_INTRP)
+#if !SUPPORT_DOUBLE || !SUPPORT_DOUBLE_CMP || defined(ENABLE_INTRP)
s4 builtin_dcmpl(double a, double b)
{
- if (isnan(a)) return -1;
- if (isnan(b)) return -1;
+ if (isnan(a))
+ return -1;
+
+ if (isnan(b))
+ return -1;
+
if (!finite(a) || !finite(b)) {
a = finite(a) ? 0 : copysign(1.0, a);
b = finite(b) ? 0 : copysign(1.0, b);
}
- if (a > b) return 1;
- if (a == b) return 0;
+
+ if (a > b)
+ return 1;
+
+ if (a == b)
+ return 0;
+
return -1;
}
s4 builtin_dcmpg(double a, double b)
{
- if (isnan(a)) return 1;
- if (isnan(b)) return 1;
+ if (isnan(a))
+ return 1;
+
+ if (isnan(b))
+ return 1;
+
if (!finite(a) || !finite(b)) {
a = finite(a) ? 0 : copysign(1.0, a);
b = finite(b) ? 0 : copysign(1.0, b);
}
- if (a > b) return 1;
- if (a == b) return 0;
+
+ if (a > b)
+ return 1;
+
+ if (a == b)
+ return 0;
+
return -1;
}
-#endif /* !SUPPORT_DOUBLE || defined(ENABLE_INTRP) */
+#endif /* !SUPPORT_DOUBLE || !SUPPORT_DOUBLE_CMP || defined(ENABLE_INTRP) */
double builtin_drem(double a, double b)
#endif /* !(SUPPORT_LONG && SUPPORT_DOUBLE && SUPPORT_L2D) */
-#if !(SUPPORT_FLOAT && SUPPORT_F2I) || defined(ENABLE_INTRP)
+#if !(SUPPORT_FLOAT && SUPPORT_F2I) || defined(ENABLE_INTRP) || defined(DISABLE_GC)
s4 builtin_f2i(float a)
{
s4 i;
return 2147483647;
return (-2147483648); */
}
-#endif /* !(SUPPORT_FLOAT && SUPPORT_F2I) || defined(ENABLE_INTRP) */
+#endif /* !(SUPPORT_FLOAT && SUPPORT_F2I) || defined(ENABLE_INTRP) || defined(DISABLE_GC) */
-#if !(SUPPORT_FLOAT && SUPPORT_LONG && SUPPORT_F2L)
+#if !(SUPPORT_FLOAT && SUPPORT_LONG && SUPPORT_F2L) || defined(DISABLE_GC)
s8 builtin_f2l(float a)
{
s8 l;
#endif /* !(SUPPORT_FLOAT && SUPPORT_LONG && SUPPORT_F2L) */
-#if !(SUPPORT_DOUBLE && SUPPORT_D2I) || defined(ENABLE_INTRP)
+#if !(SUPPORT_DOUBLE && SUPPORT_D2I) || defined(ENABLE_INTRP) || defined(DISABLE_GC)
s4 builtin_d2i(double a)
{
double d;
return 2147483647;
return (-2147483647-1);
}
-#endif /* !(SUPPORT_DOUBLE && SUPPORT_D2I) || defined(ENABLE_INTRP) */
+#endif /* !(SUPPORT_DOUBLE && SUPPORT_D2I) || defined(ENABLE_INTRP) || defined(DISABLE_GC) */
-#if !(SUPPORT_DOUBLE && SUPPORT_LONG && SUPPORT_D2L)
+#if !(SUPPORT_DOUBLE && SUPPORT_LONG && SUPPORT_D2L) || defined(DISABLE_GC)
s8 builtin_d2l(double a)
{
double d;
#endif /* !(SUPPORT_FLOAT && SUPPORT_DOUBLE) */
+/*============================================================================*/
+/* AUTOMATICALLY REPLACED FUNCTIONS */
+/*============================================================================*/
+
/* builtin_arraycopy ***********************************************************
Builtin for java.lang.System.arraycopy.
- ATTENTION: This builtin function returns a boolean value to signal
- the ICMD_BUILTIN if there was an exception.
+ NOTE: This is a SLOW builtin and can be called from JIT & NATIVE code.
*******************************************************************************/
-bool builtin_arraycopy(java_arrayheader *src, s4 srcStart,
- java_arrayheader *dest, s4 destStart, s4 len)
+void builtin_arraycopy(java_handle_t *src, s4 srcStart,
+ java_handle_t *dest, s4 destStart, s4 len)
{
arraydescriptor *sdesc;
arraydescriptor *ddesc;
s4 i;
- if ((src == NULL) || (dest == NULL)) {
+ if ((src == NULL) || (dest == NULL)) {
exceptions_throw_nullpointerexception();
- return false;
+ return;
}
- sdesc = src->objheader.vftbl->arraydesc;
- ddesc = dest->objheader.vftbl->arraydesc;
+ sdesc = LLNI_vftbl_direct(src)->arraydesc;
+ ddesc = LLNI_vftbl_direct(dest)->arraydesc;
if (!sdesc || !ddesc || (sdesc->arraytype != ddesc->arraytype)) {
exceptions_throw_arraystoreexception();
- return false;
+ return;
}
/* we try to throw exception with the same message as SUN does */
if ((len < 0) || (srcStart < 0) || (destStart < 0) ||
- (srcStart + len < 0) || (srcStart + len > src->size) ||
- (destStart + len < 0) || (destStart + len > dest->size)) {
+ (srcStart + len < 0) || (srcStart + len > LLNI_array_size(src)) ||
+ (destStart + len < 0) || (destStart + len > LLNI_array_size(dest))) {
exceptions_throw_arrayindexoutofboundsexception();
- return false;
+ return;
}
if (sdesc->componentvftbl == ddesc->componentvftbl) {
s4 dataoffset = sdesc->dataoffset;
s4 componentsize = sdesc->componentsize;
- memmove(((u1 *) dest) + dataoffset + componentsize * destStart,
- ((u1 *) src) + dataoffset + componentsize * srcStart,
- (size_t) len * componentsize);
+ LLNI_CRITICAL_START;
+
+ MMOVE(((u1 *) LLNI_DIRECT(dest)) + dataoffset + componentsize * destStart,
+ ((u1 *) LLNI_DIRECT(src)) + dataoffset + componentsize * srcStart,
+ u1, (size_t) len * componentsize);
+
+ LLNI_CRITICAL_END;
}
else {
/* We copy references of different type */
- java_objectarray *oas = (java_objectarray *) src;
- java_objectarray *oad = (java_objectarray *) dest;
-
+ java_handle_objectarray_t *oas = (java_handle_objectarray_t *) src;
+ java_handle_objectarray_t *oad = (java_handle_objectarray_t *) dest;
+
if (destStart <= srcStart) {
for (i = 0; i < len; i++) {
- java_objectheader *o = oas->data[srcStart + i];
+ java_handle_t *o;
+
+ o = array_objectarray_element_get(oas, srcStart + i);
- if (!builtin_canstore(oad, o)) {
- exceptions_throw_arraystoreexception();
- return false;
- }
+ if (!builtin_canstore(oad, o))
+ return;
- oad->data[destStart + i] = o;
+ array_objectarray_element_set(oad, destStart + i, o);
}
}
else {
index have been copied before the throw. */
for (i = len - 1; i >= 0; i--) {
- java_objectheader *o = oas->data[srcStart + i];
+ java_handle_t *o;
- if (!builtin_canstore(oad, o)) {
- exceptions_throw_arraystoreexception();
- return false;
- }
+ o = array_objectarray_element_get(oas, srcStart + i);
- oad->data[destStart + i] = o;
+ if (!builtin_canstore(oad, o))
+ return;
+
+ array_objectarray_element_set(oad, destStart + i, o);
}
}
}
-
- return true;
}
-/* builtin_currenttimemillis ***************************************************
+/* builtin_nanotime ************************************************************
- Return the current time in milliseconds.
+ Return the current time in nanoseconds.
*******************************************************************************/
-s8 builtin_currenttimemillis(void)
+s8 builtin_nanotime(void)
{
struct timeval tv;
- s8 result;
+ s8 usecs;
if (gettimeofday(&tv, NULL) == -1)
vm_abort("gettimeofday failed: %s", strerror(errno));
- result = (s8) tv.tv_sec;
- result *= 1000;
- result += (tv.tv_usec / 1000);
+ usecs = (s8) tv.tv_sec * (1000 * 1000) + (s8) tv.tv_usec;
- return result;
+ return usecs * 1000;
+}
+
+
+/* builtin_currenttimemillis ***************************************************
+
+ Return the current time in milliseconds.
+
+*******************************************************************************/
+
+s8 builtin_currenttimemillis(void)
+{
+ s8 msecs;
+
+ msecs = builtin_nanotime() / 1000 / 1000;
+
+ return msecs;
}
-/* builtin_clone_array *********************************************************
+/* builtin_clone ***************************************************************
- Wrapper function for cloning arrays.
+ Function for cloning objects or arrays.
+
+ NOTE: This is a SLOW builtin and can be called from JIT & NATIVE code.
*******************************************************************************/
-java_arrayheader *builtin_clone_array(void *env, java_arrayheader *o)
+java_handle_t *builtin_clone(void *env, java_handle_t *o)
{
- java_arrayheader *ah;
- java_lang_Cloneable *c;
+ arraydescriptor *ad;
+ u4 size;
+ classinfo *c;
+ java_handle_t *co; /* cloned object header */
+
+ /* get the array descriptor */
+
+ ad = LLNI_vftbl_direct(o)->arraydesc;
+
+ /* we are cloning an array */
+
+ if (ad != NULL) {
+ size = ad->dataoffset + ad->componentsize * LLNI_array_size(o);
+
+ co = heap_alloc(size, (ad->arraytype == ARRAYTYPE_OBJECT), NULL, true);
+
+ if (co == NULL)
+ return NULL;
+
+#if !defined(ENABLE_GC_CACAO) && defined(ENABLE_HANDLES)
+ /* XXX this is only a dirty hack to make Boehm work with handles */
+
+ co = LLNI_WRAP((java_object_t *) co);
+#endif
+
+ LLNI_CRITICAL_START;
+
+ MCOPY(LLNI_DIRECT(co), LLNI_DIRECT(o), u1, size);
+
+#if defined(ENABLE_GC_CACAO)
+ heap_init_objectheader(LLNI_DIRECT(co), size);
+#endif
+
+#if defined(ENABLE_THREADS)
+ lock_init_object_lock(LLNI_DIRECT(co));
+#endif
+
+ LLNI_CRITICAL_END;
+
+ return co;
+ }
+
+ /* we are cloning a non-array */
+
+ if (!builtin_instanceof(o, class_java_lang_Cloneable)) {
+ exceptions_throw_clonenotsupportedexception();
+ return NULL;
+ }
+
+ /* get the class of the object */
+
+ LLNI_class_get(o, c);
+
+ /* create new object */
+
+ co = builtin_new(c);
+
+ if (co == NULL)
+ return NULL;
+
+ LLNI_CRITICAL_START;
+
+ MCOPY(LLNI_DIRECT(co), LLNI_DIRECT(o), u1, c->instancesize);
+
+#if defined(ENABLE_GC_CACAO)
+ heap_init_objectheader(LLNI_DIRECT(co), c->instancesize);
+#endif
+
+#if defined(ENABLE_THREADS)
+ lock_init_object_lock(LLNI_DIRECT(co));
+#endif
+
+ LLNI_CRITICAL_END;
+
+ return co;
+}
- c = (java_lang_Cloneable *) o;
- ah = (java_arrayheader *) Java_java_lang_VMObject_clone(0, 0, c);
+#if defined(ENABLE_CYCLES_STATS)
+void builtin_print_cycles_stats(FILE *file)
+{
+ fprintf(file,"builtin cylce count statistics:\n");
+
+ CYCLES_STATS_PRINT_OVERHEAD(builtin_overhead,file);
+ CYCLES_STATS_PRINT(builtin_new ,file);
- return ah;
+ fprintf(file,"\n");
}
+#endif /* defined(ENABLE_CYCLES_STATS) */
+
+
+#if defined(ENABLE_VMLOG)
+#define NDEBUG
+#include <vmlog_cacao.c>
+#endif
/*