calls instead of machine instructions, using the C calling
convention.
- $Id: builtin.c 696 2003-12-06 20:10:05Z edwin $
+ $Id: builtin.c 716 2003-12-07 21:59:12Z twisti $
*/
#include <assert.h>
#include <string.h>
+#include <math.h>
#include "main.h"
#include "global.h"
#include "builtin.h"
#include "threads/locks.h"
#include "toolbox/loging.h"
#include "toolbox/memory.h"
+#include "nat/java_lang_Cloneable.h"
+#include "nat/java_lang_VMObject.h"
-#include "native-math.h"
#undef DEBUG /*define DEBUG 1*/
return builtin_isanysubclass_vftbl(pseudo_class_Arraystub_vftbl,target->elementvftbl);
}
+
/******************** function: builtin_checkarraycast ***********************
Checks if an object is really a subtype of the requested array type.
*****************************************************************************/
-s4 builtin_checkarraycast(java_objectheader *o,vftbl *target)
+s4 builtin_checkarraycast(java_objectheader *o, vftbl *target)
{
arraydescriptor *desc;
if (!o) return 1;
if ((desc = o->vftbl->arraydesc) == NULL) return 0;
- return builtin_descriptorscompatible(desc,target->arraydesc);
+ return builtin_descriptorscompatible(desc, target->arraydesc);
}
-s4 builtin_arrayinstanceof(java_objectheader *obj,vftbl *target)
+
+s4 builtin_arrayinstanceof(java_objectheader *obj, vftbl *target)
{
if (!obj) return 1;
- return builtin_checkarraycast (obj, target);
+ return builtin_checkarraycast(obj, target);
}
+
/************************** exception functions *******************************
******************************************************************************/
return builtin_descriptorscompatible(valuedesc,componentvftbl->arraydesc);
}
+
/* This is an optimized version where a is guaranteed to be one-dimensional */
s4 builtin_canstore_onedim (java_objectarray *a, java_objectheader *o)
{
<= (unsigned)(elementvftbl->diffval);
}
+
/* This is an optimized version where a is guaranteed to be a
* one-dimensional array of a class type */
/* XXX this could be inlined by the code generator */
-s4 builtin_canstore_onedim_class (java_objectarray *a, java_objectheader *o)
+s4 builtin_canstore_onedim_class(java_objectarray *a, java_objectheader *o)
{
vftbl *elementvftbl;
vftbl *valuevftbl;
*****************************************************************************/
-java_arrayheader *builtin_newarray(s4 size,vftbl *arrayvftbl)
+java_arrayheader *builtin_newarray(s4 size, vftbl *arrayvftbl)
{
java_arrayheader *a;
arraydescriptor *desc = arrayvftbl->arraydesc;
#else
actualsize = dataoffset + size * componentsize;
#endif
- a = (java_arrayheader *)
- heap_allocate(actualsize,
- (desc->arraytype == ARRAYTYPE_OBJECT),
- NULL);
+ a = (java_arrayheader *) heap_allocate(actualsize,
+ (desc->arraytype == ARRAYTYPE_OBJECT),
+ NULL);
if (!a) return NULL;
memset(a,0,actualsize);
#ifdef SIZE_FROM_CLASSINFO
a->alignedsize = actualsize;
#endif
+
return a;
}
+
/********************** Function: builtin_anewarray *************************
Creates an array of references to the given class type on the heap.
*****************************************************************************/
-java_objectarray *
-builtin_anewarray(s4 size,classinfo *component)
+java_objectarray *builtin_anewarray(s4 size, classinfo *component)
{
- return (java_objectarray*) builtin_newarray(size,class_array_of(component)->vftbl);
+ return (java_objectarray*) builtin_newarray(size, class_array_of(component)->vftbl);
}
+
/******************** Function: builtin_newarray_int ***********************
Creates an array of 32 bit Integers on the heap.
*****************************************************************************/
-java_intarray *builtin_newarray_int (s4 size)
+java_intarray *builtin_newarray_int(s4 size)
{
- return (java_intarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_INT].arrayvftbl);
+ return (java_intarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_INT].arrayvftbl);
}
+
/******************** Function: builtin_newarray_long ***********************
Creates an array of 64 bit Integers on the heap.
*****************************************************************************/
-java_longarray *builtin_newarray_long (s4 size)
+java_longarray *builtin_newarray_long(s4 size)
{
- return (java_longarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_LONG].arrayvftbl);
+ return (java_longarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_LONG].arrayvftbl);
}
+
/******************** function: builtin_newarray_float ***********************
Creates an array of 32 bit IEEE floats on the heap.
*****************************************************************************/
-java_floatarray *builtin_newarray_float (s4 size)
+java_floatarray *builtin_newarray_float(s4 size)
{
- return (java_floatarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_FLOAT].arrayvftbl);
+ return (java_floatarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_FLOAT].arrayvftbl);
}
+
/******************** function: builtin_newarray_double ***********************
Creates an array of 64 bit IEEE floats on the heap.
*****************************************************************************/
-java_doublearray *builtin_newarray_double (s4 size)
+java_doublearray *builtin_newarray_double(s4 size)
{
- return (java_doublearray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_DOUBLE].arrayvftbl);
+ return (java_doublearray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_DOUBLE].arrayvftbl);
}
+
/******************** function: builtin_newarray_byte ***********************
Creates an array of 8 bit Integers on the heap.
*****************************************************************************/
-java_bytearray *builtin_newarray_byte (s4 size)
+java_bytearray *builtin_newarray_byte(s4 size)
{
- return (java_bytearray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_BYTE].arrayvftbl);
+ return (java_bytearray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_BYTE].arrayvftbl);
}
+
/******************** function: builtin_newarray_char ************************
Creates an array of characters on the heap.
*****************************************************************************/
-java_chararray *builtin_newarray_char (s4 size)
+java_chararray *builtin_newarray_char(s4 size)
{
- return (java_chararray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_CHAR].arrayvftbl);
+ return (java_chararray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_CHAR].arrayvftbl);
}
+
/******************** function: builtin_newarray_short ***********************
Creates an array of 16 bit Integers on the heap.
*****************************************************************************/
-java_shortarray *builtin_newarray_short (s4 size)
+java_shortarray *builtin_newarray_short(s4 size)
{
- return (java_shortarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_SHORT].arrayvftbl);
+ return (java_shortarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_SHORT].arrayvftbl);
}
+
/******************** function: builtin_newarray_boolean ************************
Creates an array of bytes on the heap. The array is designated as an array
*****************************************************************************/
-java_booleanarray *builtin_newarray_boolean (s4 size)
+java_booleanarray *builtin_newarray_boolean(s4 size)
{
- return (java_booleanarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_BOOLEAN].arrayvftbl);
+ return (java_booleanarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_BOOLEAN].arrayvftbl);
}
+
/**************** function: builtin_nmultianewarray ***************************
Creates a multi-dimensional array on the heap. The dimensions are passed in
******************************************************************************/
-java_arrayheader *builtin_nmultianewarray (int n,
- vftbl *arrayvftbl, long *dims)
+ /* Helper functions */
+
+java_arrayheader *builtin_nmultianewarray (int n, vftbl *arrayvftbl, long *dims)
{
int size, i;
java_arrayheader *a;
return a;
}
+
/*****************************************************************************
METHOD LOGGING
methodinfo *method, int *pos,
int noindent)
{
-
if (!noindent)
methodindent--;
if (verbose || runverbose) {
#endif
methodinfo *method)
{
-
int i;
char logtext[MAXLOGTEXT];
for (i = 0; i < methodindent; i++)
/*
* Lock the mutex of an object.
*/
-#ifdef USE_THREADS
-void
-internal_lock_mutex_for_object (java_objectheader *object)
+void internal_lock_mutex_for_object(java_objectheader *object)
{
+#ifdef USE_THREADS
mutexHashEntry *entry;
int hashValue;
entry->object = object;
internal_lock_mutex(&entry->mutex);
-}
#endif
+}
/*
* Unlocks the mutex of an object.
*/
-#ifdef USE_THREADS
-void
-internal_unlock_mutex_for_object (java_objectheader *object)
+void internal_unlock_mutex_for_object (java_objectheader *object)
{
+#ifdef USE_THREADS
int hashValue;
mutexHashEntry *entry;
firstFreeOverflowEntry = unlinked;
}
}
-}
#endif
+}
void builtin_monitorenter(java_objectheader *o)
float builtin_fadd(float a, float b)
{
- if (isnanf(a)) return FLT_NAN;
- if (isnanf(b)) return FLT_NAN;
+ if (isnanf(a)) return intBitsToFloat(FLT_NAN);
+ if (isnanf(b)) return intBitsToFloat(FLT_NAN);
if (finitef(a)) {
if (finitef(b))
return a + b;
if (copysignf(1.0, a) == copysignf(1.0, b))
return a;
else
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
}
}
}
float builtin_fmul(float a, float b)
{
- if (isnanf(a)) return FLT_NAN;
- if (isnanf(b)) return FLT_NAN;
+ if (isnanf(a)) return intBitsToFloat(FLT_NAN);
+ if (isnanf(b)) return intBitsToFloat(FLT_NAN);
if (finitef(a)) {
- if (finitef(b)) return a*b;
+ if (finitef(b)) return a * b;
else {
- if (a == 0) return FLT_NAN;
+ if (a == 0) return intBitsToFloat(FLT_NAN);
else return copysignf(b, copysignf(1.0, b)*a);
}
}
else {
if (finitef(b)) {
- if (b == 0) return FLT_NAN;
+ if (b == 0) return intBitsToFloat(FLT_NAN);
else return copysignf(a, copysignf(1.0, a)*b);
}
else {
return a / b;
else {
if (a > 0)
- return FLT_POSINF;
+ return intBitsToFloat(FLT_POSINF);
else if (a < 0)
- return FLT_NEGINF;
+ return intBitsToFloat(FLT_NEGINF);
}
}
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
}
double builtin_dadd(double a, double b)
{
- if (isnan(a)) return DBL_NAN;
- if (isnan(b)) return DBL_NAN;
+ if (isnan(a)) return longBitsToDouble(DBL_NAN);
+ if (isnan(b)) return longBitsToDouble(DBL_NAN);
if (finite(a)) {
- if (finite(b)) return a+b;
+ if (finite(b)) return a + b;
else return b;
}
else {
if (finite(b)) return a;
else {
if (copysign(1.0, a)==copysign(1.0, b)) return a;
- else return DBL_NAN;
+ else return longBitsToDouble(DBL_NAN);
}
}
}
double builtin_dmul(double a, double b)
{
- if (isnan(a)) return DBL_NAN;
- if (isnan(b)) return DBL_NAN;
+ if (isnan(a)) return longBitsToDouble(DBL_NAN);
+ if (isnan(b)) return longBitsToDouble(DBL_NAN);
if (finite(a)) {
if (finite(b)) return a * b;
else {
- if (a == 0) return DBL_NAN;
+ if (a == 0) return longBitsToDouble(DBL_NAN);
else return copysign(b, copysign(1.0, b) * a);
}
}
else {
if (finite(b)) {
- if (b == 0) return DBL_NAN;
+ if (b == 0) return longBitsToDouble(DBL_NAN);
else return copysign(a, copysign(1.0, a) * b);
}
else {
double builtin_ddiv(double a, double b)
{
- if (finite(a) && finite(b)) {
- if (b != 0)
+ if (finite(a)) {
+ if (finite(b)) {
return a / b;
- else {
+
+ } else {
+ if (isnan(b))
+ return longBitsToDouble(DBL_NAN);
+ else
+ return copysign(0.0, b);
+ }
+
+ } else {
+ if (finite(b)) {
if (a > 0)
- return DBL_POSINF;
+ return longBitsToDouble(DBL_POSINF);
else if (a < 0)
- return DBL_NEGINF;
- }
+ return longBitsToDouble(DBL_NEGINF);
+
+ } else
+ return longBitsToDouble(DBL_NAN);
}
- return DBL_NAN;
+
+/* if (finite(a) && finite(b)) { */
+/* if (b != 0) */
+/* return a / b; */
+/* else { */
+/* if (a > 0) */
+/* return longBitsToDouble(DBL_POSINF); */
+/* else if (a < 0) */
+/* return longBitsToDouble(DBL_NEGINF); */
+/* } */
+/* } */
+
+ /* keep compiler happy */
+ return 0;
}
#if U8_AVAILABLE
return i;
#else
- s8 v; v.high = 0; v.low=i; return v;
+ s8 v;
+ v.high = 0;
+ v.low = i;
+ return v;
#endif
}
if (finitef(a)) return (double) a;
else {
if (isnanf(a))
- return DBL_NAN;
+ return longBitsToDouble(DBL_NAN);
else
- return copysign(DBL_POSINF, (double) copysignf(1.0, a) );
+ return copysign(longBitsToDouble(DBL_POSINF), (double) copysignf(1.0, a) );
}
}
return (float) a;
else {
if (isnan(a))
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
else
- return copysignf(FLT_POSINF, (float) copysign(1.0, a));
+ return copysignf(intBitsToFloat(FLT_POSINF), (float) copysign(1.0, a));
}
}
-java_arrayheader *builtin_clone_array(void *env,java_arrayheader *o) {
- return Java_java_lang_VMObject_clone ( 0 , 0, o);
+/* used to convert FLT_xxx defines into float values */
+
+inline float intBitsToFloat(s4 i)
+{
+ imm_union imb;
+
+ imb.i = i;
+ return imb.f;
+}
+
+
+/* used to convert DBL_xxx defines into double values */
+
+inline float longBitsToDouble(s8 l)
+{
+ imm_union imb;
+
+ imb.l = l;
+ return imb.d;
+}
+
+
+java_arrayheader *builtin_clone_array(void *env, java_arrayheader *o)
+{
+ return Java_java_lang_VMObject_clone(0, 0, o);
}
-/****************************** builtin.h **************************************
+/* builtin.h - prototypes of builtin functions
- Copyright (c) 1997 A. Krall, R. Grafl, M. Gschwind, M. Probst
+ 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
- See file COPYRIGHT for information on usage and disclaimer of warranties
+ This file is part of CACAO.
- Contains the prototypes for the functions of file builtin.c which has
- a more detailed description.
+ 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.
- Authors: Reinhard Grafl EMAIL: cacao@complang.tuwien.ac.at
+ 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.
- Last Change: 1996/11/14
+ 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
+
+ $Id: builtin.h 716 2003-12-07 21:59:12Z twisti $
+
+*/
+
+
+#ifndef _BUILTIN_H
+#define _BUILTIN_H
+
+
+/* define infinity for floating point numbers */
+
+#define FLT_NAN 0x7fc00000
+#define FLT_POSINF 0x7f800000
+#define FLT_NEGINF 0xff800000
+
+/* define infinity for double floating point numbers */
+
+#define DBL_NAN 0x7ff8000000000000LL
+#define DBL_POSINF 0x7ff0000000000000LL
+#define DBL_NEGINF 0xfff0000000000000LL
-/***************************** Prototypes *************************************/
typedef struct builtin_descriptor {
functionptr bptr;
extern builtin_descriptor builtin_desc[];
extern java_objectheader* exceptionptr;
+
+/* function prototypes */
+
s4 builtin_instanceof(java_objectheader *obj, classinfo *class);
s4 builtin_isanysubclass (classinfo *sub, classinfo *super);
s4 builtin_isanysubclass_vftbl (vftbl *sub, vftbl *super);
s4 asm_builtin_checkcast(java_objectheader *obj, classinfo *class);
s4 builtin_arrayinstanceof(java_objectheader *obj, vftbl *target);
-#ifdef __I386__
+#if defined(__I386__)
s4 asm_builtin_arrayinstanceof(java_objectheader *obj, classinfo *class); /* XXX ? */
#endif
s4 builtin_checkarraycast(java_objectheader *obj, vftbl *target);
s4 asm_builtin_checkarraycast(java_objectheader *obj, vftbl *target);
-java_objectheader *builtin_throw_exception (java_objectheader *exception);
-java_objectheader *builtin_trace_exception (java_objectheader *exceptionptr,
- methodinfo *method, int *pos, int noindent);
+java_objectheader *builtin_throw_exception(java_objectheader *exception);
+java_objectheader *builtin_trace_exception(java_objectheader *exceptionptr,
+ methodinfo *method,
+ int *pos, int noindent);
-java_objectheader *builtin_new (classinfo *c);
+java_objectheader *builtin_new(classinfo *c);
-java_arrayheader *builtin_newarray (s4 size, vftbl *arrayvftbl);
-java_objectarray *builtin_anewarray (s4 size, classinfo *component);
-#ifdef __I386__
-void asm_builtin_newarray (s4 size, vftbl *arrayvftbl);
+java_arrayheader *builtin_newarray(s4 size, vftbl *arrayvftbl);
+java_objectarray *builtin_anewarray(s4 size, classinfo *component);
+#if defined(__I386__)
+void asm_builtin_newarray(s4 size, vftbl *arrayvftbl);
#endif
-java_booleanarray *builtin_newarray_boolean (s4 size);
-java_chararray *builtin_newarray_char (s4 size);
-java_floatarray *builtin_newarray_float (s4 size);
-java_doublearray *builtin_newarray_double (s4 size);
-java_bytearray *builtin_newarray_byte (s4 size);
-java_shortarray *builtin_newarray_short (s4 size);
-java_intarray *builtin_newarray_int (s4 size);
-java_longarray *builtin_newarray_long (s4 size);
-java_arrayheader *builtin_nmultianewarray (int n,
- vftbl *arrayvftbl, long *dims);
-
-s4 builtin_canstore (java_objectarray *a, java_objectheader *o);
-void asm_builtin_aastore (java_objectarray *a, s4 index, java_objectheader *o);
+java_booleanarray *builtin_newarray_boolean(s4 size);
+java_chararray *builtin_newarray_char(s4 size);
+java_floatarray *builtin_newarray_float(s4 size);
+java_doublearray *builtin_newarray_double(s4 size);
+java_bytearray *builtin_newarray_byte(s4 size);
+java_shortarray *builtin_newarray_short(s4 size);
+java_intarray *builtin_newarray_int(s4 size);
+java_longarray *builtin_newarray_long(s4 size);
+java_arrayheader *builtin_nmultianewarray(int n,
+ vftbl *arrayvftbl, long *dims);
+
+s4 builtin_canstore(java_objectarray *a, java_objectheader *o);
+void asm_builtin_aastore(java_objectarray *a, s4 index, java_objectheader *o);
#ifdef TRACE_ARGS_NUM
#if TRACE_ARGS_NUM == 6
/* void builtin_displaymethodstop(methodinfo *method); */
void builtin_displaymethodexception(methodinfo *method);
-void builtin_monitorenter (java_objectheader *o);
-void asm_builtin_monitorenter (java_objectheader *o);
-void builtin_monitorexit (java_objectheader *o);
-void asm_builtin_monitorexit (java_objectheader *o);
-
-s4 builtin_idiv (s4 a, s4 b);
-s4 asm_builtin_idiv (s4 a, s4 b);
-s4 builtin_irem (s4 a, s4 b);
-s4 asm_builtin_irem (s4 a, s4 b);
-
-s8 builtin_ladd (s8 a, s8 b);
-s8 builtin_lsub (s8 a, s8 b);
-s8 builtin_lmul (s8 a, s8 b);
-s8 builtin_ldiv (s8 a, s8 b);
-s8 asm_builtin_ldiv (s8 a, s8 b);
-s8 builtin_lrem (s8 a, s8 b);
-s8 asm_builtin_lrem (s8 a, s8 b);
-s8 builtin_lshl (s8 a, s4 b);
-s8 builtin_lshr (s8 a, s4 b);
-s8 builtin_lushr (s8 a, s4 b);
-s8 builtin_land (s8 a, s8 b);
-s8 builtin_lor (s8 a, s8 b);
-s8 builtin_lxor (s8 a, s8 b);
-s8 builtin_lneg (s8 a);
-s4 builtin_lcmp (s8 a, s8 b);
-
-float builtin_fadd (float a, float b);
-float builtin_fsub (float a, float b);
-float builtin_fmul (float a, float b);
-float builtin_fdiv (float a, float b);
-float builtin_frem (float a, float b);
-float builtin_fneg (float a);
-s4 builtin_fcmpl (float a, float b);
-s4 builtin_fcmpg (float a, float b);
-
-double builtin_dadd (double a, double b);
-double builtin_dsub (double a, double b);
-double builtin_dmul (double a, double b);
-double builtin_ddiv (double a, double b);
-double builtin_drem (double a, double b);
-double builtin_dneg (double a);
-s4 builtin_dcmpl (double a, double b);
-s4 builtin_dcmpg (double a, double b);
-
-s8 builtin_i2l (s4 i);
-float builtin_i2f (s4 i);
-double builtin_i2d (s4 i);
-s4 builtin_l2i (s8 l);
-float builtin_l2f (s8 l);
-double builtin_l2d (s8 l);
-
-s4 builtin_f2i (float a);
-s4 asm_builtin_f2i (float a);
-s8 builtin_f2l (float a);
-s8 asm_builtin_f2l (float a);
-
-double builtin_f2d (float a);
-
-s4 builtin_d2i (double a);
-s4 asm_builtin_d2i (double a);
-s8 builtin_d2l (double a);
-s8 asm_builtin_d2l (double a);
-
-float builtin_d2f (double a);
-
-java_arrayheader *builtin_clone_array(void *env,java_arrayheader *o);
+void builtin_monitorenter(java_objectheader *o);
+void asm_builtin_monitorenter(java_objectheader *o);
+void builtin_monitorexit(java_objectheader *o);
+void asm_builtin_monitorexit(java_objectheader *o);
+
+s4 builtin_idiv(s4 a, s4 b);
+s4 asm_builtin_idiv(s4 a, s4 b);
+s4 builtin_irem(s4 a, s4 b);
+s4 asm_builtin_irem(s4 a, s4 b);
+
+s8 builtin_ladd(s8 a, s8 b);
+s8 builtin_lsub(s8 a, s8 b);
+s8 builtin_lmul(s8 a, s8 b);
+s8 builtin_ldiv(s8 a, s8 b);
+s8 asm_builtin_ldiv(s8 a, s8 b);
+s8 builtin_lrem(s8 a, s8 b);
+s8 asm_builtin_lrem(s8 a, s8 b);
+s8 builtin_lshl(s8 a, s4 b);
+s8 builtin_lshr(s8 a, s4 b);
+s8 builtin_lushr(s8 a, s4 b);
+s8 builtin_land(s8 a, s8 b);
+s8 builtin_lor(s8 a, s8 b);
+s8 builtin_lxor(s8 a, s8 b);
+s8 builtin_lneg(s8 a);
+s4 builtin_lcmp(s8 a, s8 b);
+
+float builtin_fadd(float a, float b);
+float builtin_fsub(float a, float b);
+float builtin_fmul(float a, float b);
+float builtin_fdiv(float a, float b);
+float builtin_frem(float a, float b);
+float builtin_fneg(float a);
+s4 builtin_fcmpl(float a, float b);
+s4 builtin_fcmpg(float a, float b);
+
+double builtin_dadd(double a, double b);
+double builtin_dsub(double a, double b);
+double builtin_dmul(double a, double b);
+double builtin_ddiv(double a, double b);
+double builtin_drem(double a, double b);
+double builtin_dneg(double a);
+s4 builtin_dcmpl(double a, double b);
+s4 builtin_dcmpg(double a, double b);
+
+s8 builtin_i2l(s4 i);
+float builtin_i2f(s4 i);
+double builtin_i2d(s4 i);
+s4 builtin_l2i(s8 l);
+float builtin_l2f(s8 l);
+double builtin_l2d(s8 l);
+
+s4 builtin_f2i(float a);
+s4 asm_builtin_f2i(float a);
+s8 builtin_f2l(float a);
+s8 asm_builtin_f2l(float a);
+
+double builtin_f2d(float a);
+
+s4 builtin_d2i(double a);
+s4 asm_builtin_d2i(double a);
+s8 builtin_d2l(double a);
+s8 asm_builtin_d2l(double a);
+
+float builtin_d2f(double a);
+
+
+/* conversion helper functions */
+
+inline float intBitsToFloat(s4 i);
+inline float longBitsToDouble(s8 l);
+
+java_arrayheader *builtin_clone_array(void *env, java_arrayheader *o);
+
+#endif /* _BUILTIN_H */
/*
calls instead of machine instructions, using the C calling
convention.
- $Id: builtin.c 696 2003-12-06 20:10:05Z edwin $
+ $Id: builtin.c 716 2003-12-07 21:59:12Z twisti $
*/
#include <assert.h>
#include <string.h>
+#include <math.h>
#include "main.h"
#include "global.h"
#include "builtin.h"
#include "threads/locks.h"
#include "toolbox/loging.h"
#include "toolbox/memory.h"
+#include "nat/java_lang_Cloneable.h"
+#include "nat/java_lang_VMObject.h"
-#include "native-math.h"
#undef DEBUG /*define DEBUG 1*/
return builtin_isanysubclass_vftbl(pseudo_class_Arraystub_vftbl,target->elementvftbl);
}
+
/******************** function: builtin_checkarraycast ***********************
Checks if an object is really a subtype of the requested array type.
*****************************************************************************/
-s4 builtin_checkarraycast(java_objectheader *o,vftbl *target)
+s4 builtin_checkarraycast(java_objectheader *o, vftbl *target)
{
arraydescriptor *desc;
if (!o) return 1;
if ((desc = o->vftbl->arraydesc) == NULL) return 0;
- return builtin_descriptorscompatible(desc,target->arraydesc);
+ return builtin_descriptorscompatible(desc, target->arraydesc);
}
-s4 builtin_arrayinstanceof(java_objectheader *obj,vftbl *target)
+
+s4 builtin_arrayinstanceof(java_objectheader *obj, vftbl *target)
{
if (!obj) return 1;
- return builtin_checkarraycast (obj, target);
+ return builtin_checkarraycast(obj, target);
}
+
/************************** exception functions *******************************
******************************************************************************/
return builtin_descriptorscompatible(valuedesc,componentvftbl->arraydesc);
}
+
/* This is an optimized version where a is guaranteed to be one-dimensional */
s4 builtin_canstore_onedim (java_objectarray *a, java_objectheader *o)
{
<= (unsigned)(elementvftbl->diffval);
}
+
/* This is an optimized version where a is guaranteed to be a
* one-dimensional array of a class type */
/* XXX this could be inlined by the code generator */
-s4 builtin_canstore_onedim_class (java_objectarray *a, java_objectheader *o)
+s4 builtin_canstore_onedim_class(java_objectarray *a, java_objectheader *o)
{
vftbl *elementvftbl;
vftbl *valuevftbl;
*****************************************************************************/
-java_arrayheader *builtin_newarray(s4 size,vftbl *arrayvftbl)
+java_arrayheader *builtin_newarray(s4 size, vftbl *arrayvftbl)
{
java_arrayheader *a;
arraydescriptor *desc = arrayvftbl->arraydesc;
#else
actualsize = dataoffset + size * componentsize;
#endif
- a = (java_arrayheader *)
- heap_allocate(actualsize,
- (desc->arraytype == ARRAYTYPE_OBJECT),
- NULL);
+ a = (java_arrayheader *) heap_allocate(actualsize,
+ (desc->arraytype == ARRAYTYPE_OBJECT),
+ NULL);
if (!a) return NULL;
memset(a,0,actualsize);
#ifdef SIZE_FROM_CLASSINFO
a->alignedsize = actualsize;
#endif
+
return a;
}
+
/********************** Function: builtin_anewarray *************************
Creates an array of references to the given class type on the heap.
*****************************************************************************/
-java_objectarray *
-builtin_anewarray(s4 size,classinfo *component)
+java_objectarray *builtin_anewarray(s4 size, classinfo *component)
{
- return (java_objectarray*) builtin_newarray(size,class_array_of(component)->vftbl);
+ return (java_objectarray*) builtin_newarray(size, class_array_of(component)->vftbl);
}
+
/******************** Function: builtin_newarray_int ***********************
Creates an array of 32 bit Integers on the heap.
*****************************************************************************/
-java_intarray *builtin_newarray_int (s4 size)
+java_intarray *builtin_newarray_int(s4 size)
{
- return (java_intarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_INT].arrayvftbl);
+ return (java_intarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_INT].arrayvftbl);
}
+
/******************** Function: builtin_newarray_long ***********************
Creates an array of 64 bit Integers on the heap.
*****************************************************************************/
-java_longarray *builtin_newarray_long (s4 size)
+java_longarray *builtin_newarray_long(s4 size)
{
- return (java_longarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_LONG].arrayvftbl);
+ return (java_longarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_LONG].arrayvftbl);
}
+
/******************** function: builtin_newarray_float ***********************
Creates an array of 32 bit IEEE floats on the heap.
*****************************************************************************/
-java_floatarray *builtin_newarray_float (s4 size)
+java_floatarray *builtin_newarray_float(s4 size)
{
- return (java_floatarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_FLOAT].arrayvftbl);
+ return (java_floatarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_FLOAT].arrayvftbl);
}
+
/******************** function: builtin_newarray_double ***********************
Creates an array of 64 bit IEEE floats on the heap.
*****************************************************************************/
-java_doublearray *builtin_newarray_double (s4 size)
+java_doublearray *builtin_newarray_double(s4 size)
{
- return (java_doublearray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_DOUBLE].arrayvftbl);
+ return (java_doublearray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_DOUBLE].arrayvftbl);
}
+
/******************** function: builtin_newarray_byte ***********************
Creates an array of 8 bit Integers on the heap.
*****************************************************************************/
-java_bytearray *builtin_newarray_byte (s4 size)
+java_bytearray *builtin_newarray_byte(s4 size)
{
- return (java_bytearray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_BYTE].arrayvftbl);
+ return (java_bytearray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_BYTE].arrayvftbl);
}
+
/******************** function: builtin_newarray_char ************************
Creates an array of characters on the heap.
*****************************************************************************/
-java_chararray *builtin_newarray_char (s4 size)
+java_chararray *builtin_newarray_char(s4 size)
{
- return (java_chararray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_CHAR].arrayvftbl);
+ return (java_chararray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_CHAR].arrayvftbl);
}
+
/******************** function: builtin_newarray_short ***********************
Creates an array of 16 bit Integers on the heap.
*****************************************************************************/
-java_shortarray *builtin_newarray_short (s4 size)
+java_shortarray *builtin_newarray_short(s4 size)
{
- return (java_shortarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_SHORT].arrayvftbl);
+ return (java_shortarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_SHORT].arrayvftbl);
}
+
/******************** function: builtin_newarray_boolean ************************
Creates an array of bytes on the heap. The array is designated as an array
*****************************************************************************/
-java_booleanarray *builtin_newarray_boolean (s4 size)
+java_booleanarray *builtin_newarray_boolean(s4 size)
{
- return (java_booleanarray*) builtin_newarray(size,primitivetype_table[ARRAYTYPE_BOOLEAN].arrayvftbl);
+ return (java_booleanarray*) builtin_newarray(size, primitivetype_table[ARRAYTYPE_BOOLEAN].arrayvftbl);
}
+
/**************** function: builtin_nmultianewarray ***************************
Creates a multi-dimensional array on the heap. The dimensions are passed in
******************************************************************************/
-java_arrayheader *builtin_nmultianewarray (int n,
- vftbl *arrayvftbl, long *dims)
+ /* Helper functions */
+
+java_arrayheader *builtin_nmultianewarray (int n, vftbl *arrayvftbl, long *dims)
{
int size, i;
java_arrayheader *a;
return a;
}
+
/*****************************************************************************
METHOD LOGGING
methodinfo *method, int *pos,
int noindent)
{
-
if (!noindent)
methodindent--;
if (verbose || runverbose) {
#endif
methodinfo *method)
{
-
int i;
char logtext[MAXLOGTEXT];
for (i = 0; i < methodindent; i++)
/*
* Lock the mutex of an object.
*/
-#ifdef USE_THREADS
-void
-internal_lock_mutex_for_object (java_objectheader *object)
+void internal_lock_mutex_for_object(java_objectheader *object)
{
+#ifdef USE_THREADS
mutexHashEntry *entry;
int hashValue;
entry->object = object;
internal_lock_mutex(&entry->mutex);
-}
#endif
+}
/*
* Unlocks the mutex of an object.
*/
-#ifdef USE_THREADS
-void
-internal_unlock_mutex_for_object (java_objectheader *object)
+void internal_unlock_mutex_for_object (java_objectheader *object)
{
+#ifdef USE_THREADS
int hashValue;
mutexHashEntry *entry;
firstFreeOverflowEntry = unlinked;
}
}
-}
#endif
+}
void builtin_monitorenter(java_objectheader *o)
float builtin_fadd(float a, float b)
{
- if (isnanf(a)) return FLT_NAN;
- if (isnanf(b)) return FLT_NAN;
+ if (isnanf(a)) return intBitsToFloat(FLT_NAN);
+ if (isnanf(b)) return intBitsToFloat(FLT_NAN);
if (finitef(a)) {
if (finitef(b))
return a + b;
if (copysignf(1.0, a) == copysignf(1.0, b))
return a;
else
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
}
}
}
float builtin_fmul(float a, float b)
{
- if (isnanf(a)) return FLT_NAN;
- if (isnanf(b)) return FLT_NAN;
+ if (isnanf(a)) return intBitsToFloat(FLT_NAN);
+ if (isnanf(b)) return intBitsToFloat(FLT_NAN);
if (finitef(a)) {
- if (finitef(b)) return a*b;
+ if (finitef(b)) return a * b;
else {
- if (a == 0) return FLT_NAN;
+ if (a == 0) return intBitsToFloat(FLT_NAN);
else return copysignf(b, copysignf(1.0, b)*a);
}
}
else {
if (finitef(b)) {
- if (b == 0) return FLT_NAN;
+ if (b == 0) return intBitsToFloat(FLT_NAN);
else return copysignf(a, copysignf(1.0, a)*b);
}
else {
return a / b;
else {
if (a > 0)
- return FLT_POSINF;
+ return intBitsToFloat(FLT_POSINF);
else if (a < 0)
- return FLT_NEGINF;
+ return intBitsToFloat(FLT_NEGINF);
}
}
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
}
double builtin_dadd(double a, double b)
{
- if (isnan(a)) return DBL_NAN;
- if (isnan(b)) return DBL_NAN;
+ if (isnan(a)) return longBitsToDouble(DBL_NAN);
+ if (isnan(b)) return longBitsToDouble(DBL_NAN);
if (finite(a)) {
- if (finite(b)) return a+b;
+ if (finite(b)) return a + b;
else return b;
}
else {
if (finite(b)) return a;
else {
if (copysign(1.0, a)==copysign(1.0, b)) return a;
- else return DBL_NAN;
+ else return longBitsToDouble(DBL_NAN);
}
}
}
double builtin_dmul(double a, double b)
{
- if (isnan(a)) return DBL_NAN;
- if (isnan(b)) return DBL_NAN;
+ if (isnan(a)) return longBitsToDouble(DBL_NAN);
+ if (isnan(b)) return longBitsToDouble(DBL_NAN);
if (finite(a)) {
if (finite(b)) return a * b;
else {
- if (a == 0) return DBL_NAN;
+ if (a == 0) return longBitsToDouble(DBL_NAN);
else return copysign(b, copysign(1.0, b) * a);
}
}
else {
if (finite(b)) {
- if (b == 0) return DBL_NAN;
+ if (b == 0) return longBitsToDouble(DBL_NAN);
else return copysign(a, copysign(1.0, a) * b);
}
else {
double builtin_ddiv(double a, double b)
{
- if (finite(a) && finite(b)) {
- if (b != 0)
+ if (finite(a)) {
+ if (finite(b)) {
return a / b;
- else {
+
+ } else {
+ if (isnan(b))
+ return longBitsToDouble(DBL_NAN);
+ else
+ return copysign(0.0, b);
+ }
+
+ } else {
+ if (finite(b)) {
if (a > 0)
- return DBL_POSINF;
+ return longBitsToDouble(DBL_POSINF);
else if (a < 0)
- return DBL_NEGINF;
- }
+ return longBitsToDouble(DBL_NEGINF);
+
+ } else
+ return longBitsToDouble(DBL_NAN);
}
- return DBL_NAN;
+
+/* if (finite(a) && finite(b)) { */
+/* if (b != 0) */
+/* return a / b; */
+/* else { */
+/* if (a > 0) */
+/* return longBitsToDouble(DBL_POSINF); */
+/* else if (a < 0) */
+/* return longBitsToDouble(DBL_NEGINF); */
+/* } */
+/* } */
+
+ /* keep compiler happy */
+ return 0;
}
#if U8_AVAILABLE
return i;
#else
- s8 v; v.high = 0; v.low=i; return v;
+ s8 v;
+ v.high = 0;
+ v.low = i;
+ return v;
#endif
}
if (finitef(a)) return (double) a;
else {
if (isnanf(a))
- return DBL_NAN;
+ return longBitsToDouble(DBL_NAN);
else
- return copysign(DBL_POSINF, (double) copysignf(1.0, a) );
+ return copysign(longBitsToDouble(DBL_POSINF), (double) copysignf(1.0, a) );
}
}
return (float) a;
else {
if (isnan(a))
- return FLT_NAN;
+ return intBitsToFloat(FLT_NAN);
else
- return copysignf(FLT_POSINF, (float) copysign(1.0, a));
+ return copysignf(intBitsToFloat(FLT_POSINF), (float) copysign(1.0, a));
}
}
-java_arrayheader *builtin_clone_array(void *env,java_arrayheader *o) {
- return Java_java_lang_VMObject_clone ( 0 , 0, o);
+/* used to convert FLT_xxx defines into float values */
+
+inline float intBitsToFloat(s4 i)
+{
+ imm_union imb;
+
+ imb.i = i;
+ return imb.f;
+}
+
+
+/* used to convert DBL_xxx defines into double values */
+
+inline float longBitsToDouble(s8 l)
+{
+ imm_union imb;
+
+ imb.l = l;
+ return imb.d;
+}
+
+
+java_arrayheader *builtin_clone_array(void *env, java_arrayheader *o)
+{
+ return Java_java_lang_VMObject_clone(0, 0, o);
}
-/****************************** builtin.h **************************************
+/* builtin.h - prototypes of builtin functions
- Copyright (c) 1997 A. Krall, R. Grafl, M. Gschwind, M. Probst
+ 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
- See file COPYRIGHT for information on usage and disclaimer of warranties
+ This file is part of CACAO.
- Contains the prototypes for the functions of file builtin.c which has
- a more detailed description.
+ 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.
- Authors: Reinhard Grafl EMAIL: cacao@complang.tuwien.ac.at
+ 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.
- Last Change: 1996/11/14
+ 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
+
+ $Id: builtin.h 716 2003-12-07 21:59:12Z twisti $
+
+*/
+
+
+#ifndef _BUILTIN_H
+#define _BUILTIN_H
+
+
+/* define infinity for floating point numbers */
+
+#define FLT_NAN 0x7fc00000
+#define FLT_POSINF 0x7f800000
+#define FLT_NEGINF 0xff800000
+
+/* define infinity for double floating point numbers */
+
+#define DBL_NAN 0x7ff8000000000000LL
+#define DBL_POSINF 0x7ff0000000000000LL
+#define DBL_NEGINF 0xfff0000000000000LL
-/***************************** Prototypes *************************************/
typedef struct builtin_descriptor {
functionptr bptr;
extern builtin_descriptor builtin_desc[];
extern java_objectheader* exceptionptr;
+
+/* function prototypes */
+
s4 builtin_instanceof(java_objectheader *obj, classinfo *class);
s4 builtin_isanysubclass (classinfo *sub, classinfo *super);
s4 builtin_isanysubclass_vftbl (vftbl *sub, vftbl *super);
s4 asm_builtin_checkcast(java_objectheader *obj, classinfo *class);
s4 builtin_arrayinstanceof(java_objectheader *obj, vftbl *target);
-#ifdef __I386__
+#if defined(__I386__)
s4 asm_builtin_arrayinstanceof(java_objectheader *obj, classinfo *class); /* XXX ? */
#endif
s4 builtin_checkarraycast(java_objectheader *obj, vftbl *target);
s4 asm_builtin_checkarraycast(java_objectheader *obj, vftbl *target);
-java_objectheader *builtin_throw_exception (java_objectheader *exception);
-java_objectheader *builtin_trace_exception (java_objectheader *exceptionptr,
- methodinfo *method, int *pos, int noindent);
+java_objectheader *builtin_throw_exception(java_objectheader *exception);
+java_objectheader *builtin_trace_exception(java_objectheader *exceptionptr,
+ methodinfo *method,
+ int *pos, int noindent);
-java_objectheader *builtin_new (classinfo *c);
+java_objectheader *builtin_new(classinfo *c);
-java_arrayheader *builtin_newarray (s4 size, vftbl *arrayvftbl);
-java_objectarray *builtin_anewarray (s4 size, classinfo *component);
-#ifdef __I386__
-void asm_builtin_newarray (s4 size, vftbl *arrayvftbl);
+java_arrayheader *builtin_newarray(s4 size, vftbl *arrayvftbl);
+java_objectarray *builtin_anewarray(s4 size, classinfo *component);
+#if defined(__I386__)
+void asm_builtin_newarray(s4 size, vftbl *arrayvftbl);
#endif
-java_booleanarray *builtin_newarray_boolean (s4 size);
-java_chararray *builtin_newarray_char (s4 size);
-java_floatarray *builtin_newarray_float (s4 size);
-java_doublearray *builtin_newarray_double (s4 size);
-java_bytearray *builtin_newarray_byte (s4 size);
-java_shortarray *builtin_newarray_short (s4 size);
-java_intarray *builtin_newarray_int (s4 size);
-java_longarray *builtin_newarray_long (s4 size);
-java_arrayheader *builtin_nmultianewarray (int n,
- vftbl *arrayvftbl, long *dims);
-
-s4 builtin_canstore (java_objectarray *a, java_objectheader *o);
-void asm_builtin_aastore (java_objectarray *a, s4 index, java_objectheader *o);
+java_booleanarray *builtin_newarray_boolean(s4 size);
+java_chararray *builtin_newarray_char(s4 size);
+java_floatarray *builtin_newarray_float(s4 size);
+java_doublearray *builtin_newarray_double(s4 size);
+java_bytearray *builtin_newarray_byte(s4 size);
+java_shortarray *builtin_newarray_short(s4 size);
+java_intarray *builtin_newarray_int(s4 size);
+java_longarray *builtin_newarray_long(s4 size);
+java_arrayheader *builtin_nmultianewarray(int n,
+ vftbl *arrayvftbl, long *dims);
+
+s4 builtin_canstore(java_objectarray *a, java_objectheader *o);
+void asm_builtin_aastore(java_objectarray *a, s4 index, java_objectheader *o);
#ifdef TRACE_ARGS_NUM
#if TRACE_ARGS_NUM == 6
/* void builtin_displaymethodstop(methodinfo *method); */
void builtin_displaymethodexception(methodinfo *method);
-void builtin_monitorenter (java_objectheader *o);
-void asm_builtin_monitorenter (java_objectheader *o);
-void builtin_monitorexit (java_objectheader *o);
-void asm_builtin_monitorexit (java_objectheader *o);
-
-s4 builtin_idiv (s4 a, s4 b);
-s4 asm_builtin_idiv (s4 a, s4 b);
-s4 builtin_irem (s4 a, s4 b);
-s4 asm_builtin_irem (s4 a, s4 b);
-
-s8 builtin_ladd (s8 a, s8 b);
-s8 builtin_lsub (s8 a, s8 b);
-s8 builtin_lmul (s8 a, s8 b);
-s8 builtin_ldiv (s8 a, s8 b);
-s8 asm_builtin_ldiv (s8 a, s8 b);
-s8 builtin_lrem (s8 a, s8 b);
-s8 asm_builtin_lrem (s8 a, s8 b);
-s8 builtin_lshl (s8 a, s4 b);
-s8 builtin_lshr (s8 a, s4 b);
-s8 builtin_lushr (s8 a, s4 b);
-s8 builtin_land (s8 a, s8 b);
-s8 builtin_lor (s8 a, s8 b);
-s8 builtin_lxor (s8 a, s8 b);
-s8 builtin_lneg (s8 a);
-s4 builtin_lcmp (s8 a, s8 b);
-
-float builtin_fadd (float a, float b);
-float builtin_fsub (float a, float b);
-float builtin_fmul (float a, float b);
-float builtin_fdiv (float a, float b);
-float builtin_frem (float a, float b);
-float builtin_fneg (float a);
-s4 builtin_fcmpl (float a, float b);
-s4 builtin_fcmpg (float a, float b);
-
-double builtin_dadd (double a, double b);
-double builtin_dsub (double a, double b);
-double builtin_dmul (double a, double b);
-double builtin_ddiv (double a, double b);
-double builtin_drem (double a, double b);
-double builtin_dneg (double a);
-s4 builtin_dcmpl (double a, double b);
-s4 builtin_dcmpg (double a, double b);
-
-s8 builtin_i2l (s4 i);
-float builtin_i2f (s4 i);
-double builtin_i2d (s4 i);
-s4 builtin_l2i (s8 l);
-float builtin_l2f (s8 l);
-double builtin_l2d (s8 l);
-
-s4 builtin_f2i (float a);
-s4 asm_builtin_f2i (float a);
-s8 builtin_f2l (float a);
-s8 asm_builtin_f2l (float a);
-
-double builtin_f2d (float a);
-
-s4 builtin_d2i (double a);
-s4 asm_builtin_d2i (double a);
-s8 builtin_d2l (double a);
-s8 asm_builtin_d2l (double a);
-
-float builtin_d2f (double a);
-
-java_arrayheader *builtin_clone_array(void *env,java_arrayheader *o);
+void builtin_monitorenter(java_objectheader *o);
+void asm_builtin_monitorenter(java_objectheader *o);
+void builtin_monitorexit(java_objectheader *o);
+void asm_builtin_monitorexit(java_objectheader *o);
+
+s4 builtin_idiv(s4 a, s4 b);
+s4 asm_builtin_idiv(s4 a, s4 b);
+s4 builtin_irem(s4 a, s4 b);
+s4 asm_builtin_irem(s4 a, s4 b);
+
+s8 builtin_ladd(s8 a, s8 b);
+s8 builtin_lsub(s8 a, s8 b);
+s8 builtin_lmul(s8 a, s8 b);
+s8 builtin_ldiv(s8 a, s8 b);
+s8 asm_builtin_ldiv(s8 a, s8 b);
+s8 builtin_lrem(s8 a, s8 b);
+s8 asm_builtin_lrem(s8 a, s8 b);
+s8 builtin_lshl(s8 a, s4 b);
+s8 builtin_lshr(s8 a, s4 b);
+s8 builtin_lushr(s8 a, s4 b);
+s8 builtin_land(s8 a, s8 b);
+s8 builtin_lor(s8 a, s8 b);
+s8 builtin_lxor(s8 a, s8 b);
+s8 builtin_lneg(s8 a);
+s4 builtin_lcmp(s8 a, s8 b);
+
+float builtin_fadd(float a, float b);
+float builtin_fsub(float a, float b);
+float builtin_fmul(float a, float b);
+float builtin_fdiv(float a, float b);
+float builtin_frem(float a, float b);
+float builtin_fneg(float a);
+s4 builtin_fcmpl(float a, float b);
+s4 builtin_fcmpg(float a, float b);
+
+double builtin_dadd(double a, double b);
+double builtin_dsub(double a, double b);
+double builtin_dmul(double a, double b);
+double builtin_ddiv(double a, double b);
+double builtin_drem(double a, double b);
+double builtin_dneg(double a);
+s4 builtin_dcmpl(double a, double b);
+s4 builtin_dcmpg(double a, double b);
+
+s8 builtin_i2l(s4 i);
+float builtin_i2f(s4 i);
+double builtin_i2d(s4 i);
+s4 builtin_l2i(s8 l);
+float builtin_l2f(s8 l);
+double builtin_l2d(s8 l);
+
+s4 builtin_f2i(float a);
+s4 asm_builtin_f2i(float a);
+s8 builtin_f2l(float a);
+s8 asm_builtin_f2l(float a);
+
+double builtin_f2d(float a);
+
+s4 builtin_d2i(double a);
+s4 asm_builtin_d2i(double a);
+s8 builtin_d2l(double a);
+s8 asm_builtin_d2l(double a);
+
+float builtin_d2f(double a);
+
+
+/* conversion helper functions */
+
+inline float intBitsToFloat(s4 i);
+inline float longBitsToDouble(s8 l);
+
+java_arrayheader *builtin_clone_array(void *env, java_arrayheader *o);
+
+#endif /* _BUILTIN_H */
/*