2009-12-02 Rodrigo Kumpera <rkumpera@novell.com>

[mono.git] / mono / metadata / object.h

diff --git a/mono/metadata/object.h b/mono/metadata/object.h
index 2c1657d30a0e51645bd60dceee8cc47c50204e1c..43e4003675ef4c0f628d4fe48f740ed673788f5a 100644 (file)
--- a/mono/metadata/object.h
+++ b/mono/metadata/object.h
@@ -28,9 +28,21 @@ typedef struct {
        MonoThreadsSync *synchronisation;
 } MonoObject;
 
+#ifdef MONO_BIG_ARRAYS
+typedef guint64 mono_array_size_t;
+typedef gint64 mono_array_lower_bound_t;
+#define MONO_ARRAY_MAX_INDEX G_MAXINT64
+#define MONO_ARRAY_MAX_SIZE  G_MAXUINT64
+#else
+typedef guint32 mono_array_size_t;
+typedef gint32 mono_array_lower_bound_t;
+#define MONO_ARRAY_MAX_INDEX ((gint32) 0x7fffffff)
+#define MONO_ARRAY_MAX_SIZE  ((guint32) 0xffffffff)
+#endif
+
 typedef struct {
-       guint32 length;
-       guint32 lower_bound;
+       mono_array_size_t length;
+       mono_array_lower_bound_t lower_bound;
 } MonoArrayBounds;
 
 typedef struct {
@@ -38,7 +50,7 @@ typedef struct {
        /* bounds is NULL for szarrays */
        MonoArrayBounds *bounds;
        /* total number of elements of the array */
-       guint32 max_length; 
+       mono_array_size_t max_length; 
        /* we use double to ensure proper alignment on platforms that need it */
        double vector [MONO_ZERO_LEN_ARRAY];
 } MonoArray;
@@ -56,6 +68,16 @@ typedef void     (*MonoMainThreadFunc)    (gpointer user_data);
 #define mono_object_class(obj) (((MonoObject*)(obj))->vtable->klass)
 #define mono_object_domain(obj) (((MonoObject*)(obj))->vtable->domain)
 
+#define MONO_OBJECT_SETREF(obj,fieldname,value) do {   \
+               mono_gc_wbarrier_set_field ((MonoObject*)(obj), &((obj)->fieldname), (MonoObject*)value);       \
+               /*(obj)->fieldname = (value);*/ \
+       } while (0)
+
+/* This should be used if 's' can reside on the heap */
+#define MONO_STRUCT_SETREF(s,field,value) do { \
+        mono_gc_wbarrier_generic_store (&((s)->field), (MonoObject*)(value)); \
+    } while (0)
+
 #define mono_array_length(array) ((array)->max_length)
 #define mono_array_addr(array,type,index) ((type*)(gpointer) mono_array_addr_with_size (array, sizeof (type), index))
 #define mono_array_addr_with_size(array,size,index) ( ((char*)(array)->vector) + (size) * (index) )
@@ -65,6 +87,18 @@ typedef void     (*MonoMainThreadFunc)    (gpointer user_data);
                type *__p = (type *) mono_array_addr ((array), type, (index));  \
                *__p = (value); \
        } while (0)
+#define mono_array_setref(array,index,value)   \
+       do {    \
+               gpointer *__p = (gpointer *) mono_array_addr ((array), gpointer, (index));      \
+               mono_gc_wbarrier_set_arrayref ((array), __p, (MonoObject*)(value));     \
+               /* *__p = (value);*/    \
+       } while (0)
+#define mono_array_memcpy_refs(dest,destidx,src,srcidx,count)  \
+       do {    \
+               gpointer *__p = (gpointer *) mono_array_addr ((dest), gpointer, (destidx));     \
+               gpointer *__s = mono_array_addr ((src), gpointer, (srcidx));    \
+               mono_gc_wbarrier_arrayref_copy (__p, __s, (count));     \
+       } while (0)
 
 #define mono_string_chars(s) ((gunichar2*)(s)->chars)
 #define mono_string_length(s) ((s)->length)
@@ -86,14 +120,14 @@ MonoObject *
 mono_object_new_from_token  (MonoDomain *domain, MonoImage *image, guint32 token);
 
 MonoArray*
-mono_array_new             (MonoDomain *domain, MonoClass *eclass, guint32 n);
+mono_array_new             (MonoDomain *domain, MonoClass *eclass, mono_array_size_t n);
 
 MonoArray*
 mono_array_new_full        (MonoDomain *domain, MonoClass *array_class,
-                            guint32 *lengths, guint32 *lower_bounds);
+                            mono_array_size_t *lengths, mono_array_size_t *lower_bounds);
 
 MonoArray *
-mono_array_new_specific            (MonoVTable *vtable, guint32 n);
+mono_array_new_specific            (MonoVTable *vtable, mono_array_size_t n);
 
 MonoArray*
 mono_array_clone           (MonoArray *array);
@@ -137,9 +171,18 @@ mono_string_equal           (MonoString *s1, MonoString *s2);
 guint
 mono_string_hash            (MonoString *s);
 
+int
+mono_object_hash            (MonoObject* obj);
+
 MonoObject *
 mono_value_box             (MonoDomain *domain, MonoClass *klass, gpointer val);
 
+void
+mono_value_copy             (gpointer dest, gpointer src, MonoClass *klass);
+
+void
+mono_value_copy_array       (MonoArray *dest, int dest_idx, gpointer src, int count);
+
 MonoDomain*
 mono_object_get_domain      (MonoObject *obj);
 
@@ -200,6 +243,9 @@ MonoObject*
 mono_runtime_invoke_array   (MonoMethod *method, void *obj, MonoArray *params,
                             MonoObject **exc);
 
+gpointer
+mono_method_get_unmanaged_thunk (MonoMethod *method);
+
 MonoArray*
 mono_runtime_get_main_args  (void);
 
@@ -281,6 +327,15 @@ guint32      mono_gchandle_new_weakref (MonoObject *obj, gboolean track_resurrec
 MonoObject*  mono_gchandle_get_target  (guint32 gchandle);
 void         mono_gchandle_free        (guint32 gchandle);
 
+/* GC write barriers support */
+void mono_gc_wbarrier_set_field     (MonoObject *obj, gpointer field_ptr, MonoObject* value);
+void mono_gc_wbarrier_set_arrayref  (MonoArray *arr, gpointer slot_ptr, MonoObject* value);
+void mono_gc_wbarrier_arrayref_copy (gpointer dest_ptr, gpointer src_ptr, int count);
+void mono_gc_wbarrier_generic_store (gpointer ptr, MonoObject* value);
+void mono_gc_wbarrier_generic_nostore (gpointer ptr);
+void mono_gc_wbarrier_value_copy    (gpointer dest, gpointer src, int count, MonoClass *klass);
+void mono_gc_wbarrier_object_copy   (MonoObject* obj, MonoObject *src);
+
 G_END_DECLS
 
 #endif