* reflection.c (inflate_mono_method): Reuse method instantiation
[mono.git] / mono / metadata / boehm-gc.c
index 04a8af070184f5cf3fdcc4780d8177df68fd77b8..854290a0914ef36960f1cde186096681d61e5e5c 100644 (file)
@@ -9,9 +9,26 @@
 #include <mono/metadata/mono-gc.h>
 #include <mono/metadata/gc-internal.h>
 #include <mono/metadata/profiler-private.h>
+#include <mono/utils/mono-logger.h>
 
 #if HAVE_BOEHM_GC
 
+static void
+mono_gc_warning (char *msg, GC_word arg)
+{
+       mono_trace (G_LOG_LEVEL_WARNING, MONO_TRACE_GC, msg, (unsigned long)arg);
+}
+
+void
+mono_gc_base_init (void)
+{
+       GC_no_dls = TRUE;
+       GC_oom_fn = mono_gc_out_of_memory;
+       GC_set_warn_proc (mono_gc_warning);
+       GC_finalize_on_demand = 1;
+       GC_finalizer_notifier = mono_gc_finalize_notify;
+}
+
 void
 mono_gc_collect (int generation)
 {
@@ -24,6 +41,23 @@ mono_gc_max_generation (void)
        return 0;
 }
 
+int
+mono_gc_get_generation  (MonoObject *object)
+{
+       return 0;
+}
+
+int
+mono_gc_collection_count (int generation)
+{
+       return GC_gc_no;
+}
+
+void
+mono_gc_add_memory_pressure (gint64 value)
+{
+}
+
 gint64
 mono_gc_get_used_size (void)
 {
@@ -132,6 +166,7 @@ void
 mono_gc_weak_link_remove (void **link_addr)
 {
        GC_unregister_disappearing_link (link_addr);
+       *link_addr = NULL;
 }
 
 MonoObject*
@@ -144,7 +179,7 @@ mono_gc_weak_link_get (void **link_addr)
 }
 
 void*
-mono_gc_make_descr_from_bitmap (unsigned int *bitmap, int numbits)
+mono_gc_make_descr_from_bitmap (gsize *bitmap, int numbits)
 {
        return NULL;
 }
@@ -160,5 +195,53 @@ mono_gc_free_fixed (void* addr)
 {
 }
 
+int
+mono_gc_invoke_finalizers (void)
+{
+       /* There is a bug in GC_invoke_finalizer () in versions <= 6.2alpha4:
+        * the 'mem_freed' variable is not initialized when there are no
+        * objects to finalize, which leads to strange behavior later on.
+        * The check is necessary to work around that bug.
+        */
+       if (GC_should_invoke_finalizers ())
+               return GC_invoke_finalizers ();
+       return 0;
+}
+
+gboolean
+mono_gc_pending_finalizers (void)
+{
+       return GC_should_invoke_finalizers ();
+}
+
+void
+mono_gc_wbarrier_set_field (MonoObject *obj, gpointer field_ptr, MonoObject* value)
+{
+       *(void**)field_ptr = value;
+}
+
+void
+mono_gc_wbarrier_set_arrayref (MonoArray *arr, gpointer slot_ptr, MonoObject* value)
+{
+       *(void**)slot_ptr = value;
+}
+
+void
+mono_gc_wbarrier_arrayref_copy (MonoArray *arr, gpointer slot_ptr, int count)
+{
+       /* no need to do anything */
+}
+
+void
+mono_gc_wbarrier_generic_store (gpointer ptr, MonoObject* value)
+{
+       *(void**)ptr = value;
+}
+
+void
+mono_gc_wbarrier_value_copy (gpointer dest, gpointer src, int count, MonoClass *klass)
+{
+}
+
 #endif /* no Boehm GC */