/*
* boehm-gc.c: GC implementation using either the installed or included Boehm GC.
*
+ * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
+ * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
*/
#include "config.h"
#include <mono/metadata/method-builder.h>
#include <mono/metadata/opcodes.h>
#include <mono/utils/mono-logger.h>
+#include <mono/utils/mono-time.h>
+#include <mono/utils/dtrace.h>
#if HAVE_BOEHM_GC
}
#endif
- GC_init ();
GC_no_dls = TRUE;
+ GC_init ();
GC_oom_fn = mono_gc_out_of_memory;
GC_set_warn_proc (mono_gc_warning);
GC_finalize_on_demand = 1;
#ifdef HAVE_GC_GCJ_MALLOC
GC_init_gcj_malloc (5, NULL);
#endif
-
+ mono_gc_enable_events ();
gc_initialized = TRUE;
}
void
mono_gc_collect (int generation)
{
+ MONO_PROBE_GC_BEGIN (generation);
+
+ mono_perfcounters->gc_induced++;
GC_gcollect ();
+
+ MONO_PROBE_GC_END (generation);
+#if defined(ENABLE_DTRACE) && defined(__sun__)
+ /* This works around a dtrace -G problem on Solaris.
+ Limit its actual use to when the probe is enabled. */
+ if (MONO_PROBE_GC_END_ENABLED ())
+ sleep(0);
+#endif
}
int
#ifdef USE_INCLUDED_LIBGC
+static gint64 gc_start_time;
+
static void
on_gc_notification (GCEventType event)
{
+ if (event == MONO_GC_EVENT_START) {
+ mono_perfcounters->gc_collections0++;
+ mono_stats.major_gc_count ++;
+ gc_start_time = mono_100ns_ticks ();
+ } else if (event == MONO_GC_EVENT_END) {
+ guint64 heap_size = GC_get_heap_size ();
+ guint64 used_size = heap_size - GC_get_free_bytes ();
+ mono_perfcounters->gc_total_bytes = used_size;
+ mono_perfcounters->gc_committed_bytes = heap_size;
+ mono_perfcounters->gc_reserved_bytes = heap_size;
+ mono_perfcounters->gc_gen0size = heap_size;
+ mono_stats.major_gc_time_usecs += (mono_100ns_ticks () - gc_start_time) / 10;
+ }
mono_profiler_gc_event ((MonoGCEvent) event, 0);
}
static void
on_gc_heap_resize (size_t new_size)
{
+ guint64 heap_size = GC_get_heap_size ();
+ mono_perfcounters->gc_committed_bytes = heap_size;
+ mono_perfcounters->gc_reserved_bytes = heap_size;
+ mono_perfcounters->gc_gen0size = heap_size;
mono_profiler_gc_heap_resize (new_size);
}
#ifndef PLATFORM_WIN32
/* FIXME: libgc doesn't define this work win32 for some reason */
/* FIXME: No size info */
- GC_remove_roots (addr, addr + sizeof (gpointer));
+ GC_remove_roots (addr, addr + sizeof (gpointer) + 1);
#endif
}
return res;
}
+guint32
+mono_gc_get_managed_allocator_types (void)
+{
+ return ATYPE_NUM;
+}
+
#else
MonoMethod*
return NULL;
}
+guint32
+mono_gc_get_managed_allocator_types (void)
+{
+ return 0;
+}
+
#endif
#endif /* no Boehm GC */