#include <mono/metadata/class.h>
+G_BEGIN_DECLS
+
typedef guchar MonoBoolean;
typedef struct _MonoReflectionMethod MonoReflectionMethod;
typedef struct _MonoDynamicAssembly MonoDynamicAssembly;
typedef struct _MonoDynamicImage MonoDynamicImage;
typedef struct _MonoReflectionMethodBody MonoReflectionMethodBody;
+typedef struct _MonoAppContext MonoAppContext;
typedef struct {
MonoVTable *vtable;
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 {
/* 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;
#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*) mono_array_addr_with_size (array, sizeof (type), index))
+#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) )
#define mono_array_get(array,type,index) ( *(type*)mono_array_addr ((array), type, (index)) )
#define mono_array_set(array,type,index,value) \
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)); \
+ mono_gc_wbarrier_arrayref_copy ((dest), __p, (count)); \
+ memmove (__p, mono_array_addr ((src), gpointer, (srcidx)), (count) * sizeof (gpointer)); \
+ } while (0)
#define mono_string_chars(s) ((gunichar2*)(s)->chars)
#define mono_string_length(s) ((s)->length)
MonoObject *
mono_object_new_alloc_specific (MonoVTable *vtable);
-void*
-mono_class_get_allocation_ftn (MonoVTable *vtable, gboolean *pass_size_in_words);
-
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);
MonoString *
mono_string_from_utf16 (gunichar2 *data);
+gboolean
+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);
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);
MonoRemoteClass*
mono_remote_class (MonoDomain *domain, MonoString *class_name, MonoClass *proxy_class);
-void
-mono_upgrade_remote_class (MonoDomain *domain, MonoRemoteClass *remote_class, MonoClass *klass);
-
/* accessors for fields and properties */
void
mono_field_set_value (MonoObject *obj, MonoClassField *field, void *value);
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 (MonoArray *arr, gpointer slot_ptr, int count);
+void mono_gc_wbarrier_generic_store (gpointer ptr, MonoObject* value);
+void mono_gc_wbarrier_value_copy (gpointer dest, gpointer src, int count, MonoClass *klass);
+void mono_gc_wbarrier_object (MonoObject* obj);
+
+G_END_DECLS
+
#endif
projects / mono.git / blobdiff