DEBUG: Add logging of all allocation counts.

Author: joncham

mono/metadata/appdomain.c

@@ -3364,8 +3364,13 @@ unload_thread_main (void *arg)
 	 * now be null we won't do any unnecessary copies and after
 	 * the collection there won't be any more remsets.
 	 */
+	g_print("UnityAllocations");
 	for (i = 0; i < memory_manager->class_vtable_array->len; ++i)
-		zero_static_data ((MonoVTable *)g_ptr_array_index (memory_manager->class_vtable_array, i));
+	{
+		MonoVTable* vtable = (MonoVTable*)g_ptr_array_index(memory_manager->class_vtable_array, i);
+		g_print(" %zu %s\n", vtable->alloc_count, vtable->klass->name);
+		zero_static_data((MonoVTable*)g_ptr_array_index(memory_manager->class_vtable_array, i));
+	}
 #if !HAVE_BOEHM_GC
 	mono_gc_collect (0);
 #endif

mono/metadata/boehm-gc.c

@@ -995,6 +995,7 @@ mono_gc_alloc_obj (MonoVTable *vtable, size_t size)
 		obj->vtable = vtable;
 	}
 
+	vtable->alloc_count++;
 	if (G_UNLIKELY (mono_profiler_allocations_enabled ()))
 		MONO_PROFILER_RAISE (gc_allocation, (obj));
 
@@ -1038,6 +1039,7 @@ mono_gc_alloc_vector (MonoVTable *vtable, size_t size, uintptr_t max_length)
 
 	obj->max_length = max_length;
 
+	vtable->alloc_count++;
 	if (G_UNLIKELY (mono_profiler_allocations_enabled ()))
 		MONO_PROFILER_RAISE (gc_allocation, (&obj->obj));
 
@@ -1075,6 +1077,7 @@ mono_gc_alloc_array (MonoVTable *vtable, size_t size, uintptr_t max_length, uint
 	if (bounds_size)
 		obj->bounds = (MonoArrayBounds *) ((char *) obj + size - bounds_size);
 
+	vtable->alloc_count++;
 	if (G_UNLIKELY (mono_profiler_allocations_enabled ()))
 		MONO_PROFILER_RAISE (gc_allocation, (&obj->obj));
 
@@ -1093,6 +1096,7 @@ mono_gc_alloc_string (MonoVTable *vtable, size_t size, gint32 len)
 	obj->length = len;
 	obj->chars [len] = 0;
 
+	vtable->alloc_count++;
 	if (G_UNLIKELY (mono_profiler_allocations_enabled ()))
 		MONO_PROFILER_RAISE (gc_allocation, (&obj->object));
 

mono/metadata/class-internals.h

@@ -385,6 +385,7 @@ struct MonoVTable {
 	MonoRuntimeGenericContext *runtime_generic_context;
 	/* interp virtual method table */
 	gpointer *interp_vtable;
+	size_t alloc_count;
 	/* do not add any fields after vtable, the structure is dynamically extended */
 	/* vtable contains function pointers to methods or their trampolines, at the
 	 end there may be a slot containing the pointer to the static fields */