2007-07-09 Mark Probst <mark.probst@gmail.com>

[mono.git] / mono / mini / jit-icalls.c

diff --git a/mono/mini/jit-icalls.c b/mono/mini/jit-icalls.c
index b2c807241da328ac91179c2e9e452ee734640bf1..d4dc21b1563773e964a00e3c64070951c91f6cd2 100644 (file)
--- a/mono/mini/jit-icalls.c
+++ b/mono/mini/jit-icalls.c
@@ -451,6 +451,18 @@ mono_fconv_r4 (double a)
        return (float)a;
 }
 
+double
+mono_conv_to_r8 (int a)
+{
+       return (double)a;
+}
+
+double
+mono_conv_to_r4 (int a)
+{
+       return (double)(float)a;
+}
+
 gint8
 mono_fconv_i1 (double a)
 {
@@ -541,53 +553,58 @@ mono_fcmp_lt_un (double a, double b)
        return isunordered (a, b) || a < b;
 }
 
-#endif
-
-/**
- * ves_array_element_address:
- * @this: a pointer to the array object
- *
- * Returns: the address of an array element.
- */
-gpointer 
-ves_array_element_address (MonoArray *this, ...)
+gboolean
+mono_fceq (double a, double b)
 {
-       MonoClass *class;
-       va_list ap;
-       int i, ind, esize, realidx;
-       gpointer ea;
-
-       MONO_ARCH_SAVE_REGS;
-
-       g_assert (this != NULL);
+       return a == b;
+}
 
-       va_start(ap, this);
+gboolean
+mono_fcgt (double a, double b)
+{
+       return a > b;
+}
 
-       class = this->obj.vtable->klass;
+gboolean
+mono_fcgt_un (double a, double b)
+{
+       return a > b;
+}
 
-       g_assert (this->bounds != NULL);
+gboolean
+mono_fclt (double a, double b)
+{
+       return a < b;
+}
 
-       esize = mono_array_element_size (class);
-       ind = va_arg(ap, int);
-       ind -= (int)this->bounds [0].lower_bound;
-       if ((guint32)ind >= (guint32)this->bounds [0].length)
-               mono_raise_exception (mono_get_exception_index_out_of_range ());
-       for (i = 1; i < class->rank; i++) {
-               realidx = va_arg(ap, int) - (int)this->bounds [i].lower_bound;
-               if ((guint32)realidx >= (guint32)this->bounds [i].length)
-                       mono_raise_exception (mono_get_exception_index_out_of_range ());
-               ind *= this->bounds [i].length;
-               ind += realidx;
-       }
-       esize *= ind;
+gboolean
+mono_fclt_un (double a, double b)
+{
+       return a < b;
+}
 
-       ea = (gpointer*)(gpointer)((char*)this->vector + esize);
+double
+mono_fload_r4 (float *ptr)
+{
+       return *ptr;
+}
 
-       va_end(ap);
+void
+mono_fstore_r4 (double val, float *ptr)
+{
+       *ptr = (float)val;
+}
 
-       return ea;
+/* returns the integer bitpattern that is passed in the regs or stack */
+guint32
+mono_fload_r4_arg (double val)
+{
+       float v = (float)val;
+       return *(guint32*)&v;
 }
 
+#endif
+
 MonoArray *
 mono_array_new_va (MonoMethod *cm, ...)
 {
@@ -769,6 +786,8 @@ mono_helper_compile_generic_method (MonoObject *obj, MonoMethod *method, MonoGen
        MonoMethod *vmethod, *inflated;
        gpointer addr;
 
+       mono_jit_stats.generic_virtual_invocations++;
+
        if (obj == NULL)
                mono_raise_exception (mono_get_exception_null_reference ());
        vmethod = mono_object_get_virtual_method (obj, method);
@@ -780,8 +799,8 @@ mono_helper_compile_generic_method (MonoObject *obj, MonoMethod *method, MonoGen
           the same context.
        */
        g_assert (!vmethod->klass->generic_container);
-       g_assert (!vmethod->klass->generic_class || !vmethod->klass->generic_class->inst->is_open);
-       g_assert (!context->gmethod || !context->gmethod->inst->is_open);
+       g_assert (!vmethod->klass->generic_class || !vmethod->klass->generic_class->context.class_inst->is_open);
+       g_assert (!context->method_inst || !context->method_inst->is_open);
        inflated = mono_class_inflate_generic_method (vmethod, context);
        inflated = mono_get_inflated_method (inflated);
        addr = mono_compile_method (inflated);