/*
- * sgen-gc.c: Simple generational GC.
+ * sgen-internal.c
*
- * Author:
- * Paolo Molaro (lupus@ximian.com)
- *
- * Copyright 2005-2010 Novell, Inc (http://www.novell.com)
- *
- * Thread start/stop adapted from Boehm's GC:
- * Copyright (c) 1994 by Xerox Corporation. All rights reserved.
- * Copyright (c) 1996 by Silicon Graphics. All rights reserved.
- * Copyright (c) 1998 by Fergus Henderson. All rights reserved.
- * Copyright (c) 2000-2004 by Hewlett-Packard Company. All rights reserved.
- *
- * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
- * OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
- *
- * Permission is hereby granted to use or copy this program
- * for any purpose, provided the above notices are retained on all copies.
- * Permission to modify the code and to distribute modified code is granted,
- * provided the above notices are retained, and a notice that the code was
- * modified is included with the above copyright notice.
- *
- *
- * Copyright 2001-2003 Ximian, Inc
- * Copyright 2003-2010 Novell, Inc.
- *
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
* "Software"), to deal in the Software without restriction, including
* WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
+#include "config.h"
+
#ifdef HAVE_SGEN_GC
#include "utils/mono-counters.h"
#include "metadata/sgen-gc.h"
-
-/* Pinned objects are allocated in the LOS space if bigger than half a page
- * or from freelists otherwise. We assume that pinned objects are relatively few
- * and they have a slow dying speed (like interned strings, thread objects).
- * As such they will be collected only at major collections.
- * free lists are not global: when we need memory we allocate a PinnedChunk.
- * Each pinned chunk is made of several pages, the first of wich is used
- * internally for bookeeping (here think of a page as 4KB). The bookeeping
- * includes the freelists vectors and info about the object size of each page
- * in the pinned chunk. So, when needed, a free page is found in a pinned chunk,
- * a size is assigned to it, the page is divided in the proper chunks and each
- * chunk is added to the freelist. To not waste space, the remaining space in the
- * first page is used as objects of size 16 or 32 (need to measure which are more
- * common).
- * We use this same structure to allocate memory used internally by the GC, so
- * we never use malloc/free if we need to alloc during collection: the world is stopped
- * and malloc/free will deadlock.
- * When we want to iterate over pinned objects, we just scan a page at a time
- * linearly according to the size of objects in the page: the next pointer used to link
- * the items in the freelist uses the same word as the vtable. Since we keep freelists
- * for each pinned chunk, if the word points outside the pinned chunk it means
- * it is an object.
- * We could avoid this expensive scanning in creative ways. We could have a policy
- * of putting in the pinned space only objects we know about that have no struct fields
- * with references and we can easily use a even expensive write barrier for them,
- * since pointer writes on such objects should be rare.
- * The best compromise is to just alloc interned strings and System.MonoType in them.
- * It would be nice to allocate MonoThread in it, too: must check that we properly
- * use write barriers so we don't have to do any expensive scanning of the whole pinned
- * chunk list during minor collections. We can avoid it now because we alloc in it only
- * reference-free objects.
- */
-struct _SgenPinnedChunk {
- SgenBlock block;
- int num_pages;
- int *page_sizes; /* a 0 means the page is still unused */
- void **free_list;
- SgenPinnedChunk *free_list_nexts [SGEN_INTERNAL_FREELIST_NUM_SLOTS];
- void *start_data;
- void *data [1]; /* page sizes and free lists are stored here */
-};
-
-#define PINNED_FIRST_SLOT_SIZE (sizeof (gpointer) * 4)
-#define MAX_FREELIST_SIZE 8192
-
-/* This is a fixed value used for pinned chunks, not the system pagesize */
-#define FREELIST_PAGESIZE (16*1024)
+#include "utils/lock-free-alloc.h"
+#include "metadata/sgen-memory-governor.h"
/* keep each size a multiple of ALLOC_ALIGN */
-/* on 64 bit systems 8 is likely completely unused. */
-static const int freelist_sizes [] = {
+static const int allocator_sizes [] = {
8, 16, 24, 32, 40, 48, 64, 80,
- 96, 128, 160, 192, 224, 256, 320, 384,
- 448, 512, 584, 680, 816, 1024, 1360, 2048,
- 2336, 2728, 3272, 4096, 5456, 8192 };
-
-/*
- * Slot indexes for the fixed INTERNAL_MEM_XXX types. -1 if that type
- * is dynamic.
- */
-static int fixed_type_freelist_slots [INTERNAL_MEM_MAX];
-
-static SgenInternalAllocator unmanaged_allocator;
-
-#define LARGE_INTERNAL_MEM_HEADER_MAGIC 0x7d289f3a
-
-typedef struct _LargeInternalMemHeader LargeInternalMemHeader;
-struct _LargeInternalMemHeader {
- guint32 magic;
- size_t size;
- double data[0];
-};
-
-#ifdef SGEN_PARALLEL_MARK
-static LOCK_DECLARE (internal_allocator_mutex);
-#define LOCK_INTERNAL_ALLOCATOR pthread_mutex_lock (&internal_allocator_mutex)
-#define UNLOCK_INTERNAL_ALLOCATOR pthread_mutex_unlock (&internal_allocator_mutex)
-#else
-#define LOCK_INTERNAL_ALLOCATOR
-#define UNLOCK_INTERNAL_ALLOCATOR
-#endif
+ 96, 128, 160, 192, 224, 248, 320, 384,
+ 448, 528, 584, 680, 816, 1088, 1360, 2040,
+ 2336, 2728, 3272, 4088, 5456, 8184 };
-static long long pinned_chunk_bytes_alloced = 0;
-static long long large_internal_bytes_alloced = 0;
+#define NUM_ALLOCATORS (sizeof (allocator_sizes) / sizeof (int))
-#ifdef HEAVY_STATISTICS
-static long long stat_internal_alloc = 0;
-#endif
+static MonoLockFreeAllocSizeClass size_classes [NUM_ALLOCATORS];
+static MonoLockFreeAllocator allocators [NUM_ALLOCATORS];
/*
- * Debug reporting.
- */
-static void
-report_pinned_chunk (SgenPinnedChunk *chunk, int seq) {
- void **p;
- int i, free_pages, num_free, free_mem;
- free_pages = 0;
- for (i = 0; i < chunk->num_pages; ++i) {
- if (!chunk->page_sizes [i])
- free_pages++;
- }
- printf ("Pinned chunk %d at %p, size: %d, pages: %d, free: %d\n", seq, chunk, chunk->num_pages * FREELIST_PAGESIZE, chunk->num_pages, free_pages);
- free_mem = FREELIST_PAGESIZE * free_pages;
- for (i = 0; i < SGEN_INTERNAL_FREELIST_NUM_SLOTS; ++i) {
- if (!chunk->free_list [i])
- continue;
- num_free = 0;
- p = chunk->free_list [i];
- while (p) {
- num_free++;
- p = *p;
- }
- printf ("\tfree list of size %d, %d items\n", freelist_sizes [i], num_free);
- free_mem += freelist_sizes [i] * num_free;
- }
- printf ("\tfree memory in chunk: %d\n", free_mem);
-}
-
-/*
- * Debug reporting.
- */
-void
-mono_sgen_report_internal_mem_usage_full (SgenInternalAllocator *alc)
-{
- SgenPinnedChunk *chunk;
- int i = 0;
- for (chunk = alc->chunk_list; chunk; chunk = chunk->block.next)
- report_pinned_chunk (chunk, i++);
-}
-
-void
-mono_sgen_report_internal_mem_usage (void)
-{
- mono_sgen_report_internal_mem_usage_full (&unmanaged_allocator);
-}
-
-/*
- * Find the slot number in the freelist for memory chunks that
- * can contain @size objects.
+ * Find the allocator index for memory chunks that can contain @size
+ * objects.
*/
static int
-slot_for_size (size_t size)
+index_for_size (size_t size)
{
int slot;
/* do a binary search or lookup table later. */
- for (slot = 0; slot < SGEN_INTERNAL_FREELIST_NUM_SLOTS; ++slot) {
- if (freelist_sizes [slot] >= size)
+ for (slot = 0; slot < NUM_ALLOCATORS; ++slot) {
+ if (allocator_sizes [slot] >= size)
return slot;
}
g_assert_not_reached ();
return -1;
}
+/*
+ * Allocator indexes for the fixed INTERNAL_MEM_XXX types. -1 if that
+ * type is dynamic.
+ */
+static int fixed_type_allocator_indexes [INTERNAL_MEM_MAX];
+
void
-mono_sgen_register_fixed_internal_mem_type (int type, size_t size)
+sgen_register_fixed_internal_mem_type (int type, size_t size)
{
int slot;
g_assert (type >= 0 && type < INTERNAL_MEM_MAX);
- g_assert (fixed_type_freelist_slots [type] == -1);
- slot = slot_for_size (size);
+ slot = index_for_size (size);
g_assert (slot >= 0);
- fixed_type_freelist_slots [type] = slot;
-}
-
-/*
- * Build a free list for @size memory chunks from the memory area between
- * start_page and end_page.
- */
-static void
-build_freelist (SgenInternalAllocator *alc, SgenPinnedChunk *chunk, int slot, int size, char *start_page, char *end_page)
-{
- void **p, **end;
- int count = 0;
- /*g_print ("building freelist for slot %d, size %d in %p\n", slot, size, chunk);*/
- p = (void**)start_page;
- end = (void**)(end_page - size);
- g_assert (!chunk->free_list [slot]);
- chunk->free_list [slot] = p;
- while ((char*)p + size <= (char*)end) {
- count++;
- *p = (void*)((char*)p + size);
- p = *p;
- }
- *p = NULL;
- /*g_print ("%d items created, max: %d\n", count, (end_page - start_page) / size);*/
-
- g_assert (!chunk->free_list_nexts [slot]);
- chunk->free_list_nexts [slot] = alc->free_lists [slot];
- alc->free_lists [slot] = chunk;
-}
-
-/* LOCKING: if !managed, requires the internal allocator lock to be held */
-static SgenPinnedChunk*
-alloc_pinned_chunk (SgenInternalAllocator *alc, gboolean managed)
-{
- SgenPinnedChunk *chunk;
- int offset;
- int size = SGEN_PINNED_CHUNK_SIZE;
-
- if (managed)
- LOCK_INTERNAL_ALLOCATOR;
-
- chunk = mono_sgen_alloc_os_memory_aligned (size, size, TRUE);
- chunk->block.role = managed ? MEMORY_ROLE_PINNED : MEMORY_ROLE_INTERNAL;
-
- if (managed)
- mono_sgen_update_heap_boundaries ((mword)chunk, ((mword)chunk + size));
-
- pinned_chunk_bytes_alloced += size;
-
- /* setup the bookeeping fields */
- chunk->num_pages = size / FREELIST_PAGESIZE;
- offset = G_STRUCT_OFFSET (SgenPinnedChunk, data);
- chunk->page_sizes = (void*)((char*)chunk + offset);
- offset += sizeof (int) * chunk->num_pages;
- offset = SGEN_ALIGN_UP (offset);
- chunk->free_list = (void*)((char*)chunk + offset);
- offset += sizeof (void*) * SGEN_INTERNAL_FREELIST_NUM_SLOTS;
- offset = SGEN_ALIGN_UP (offset);
- chunk->start_data = (void*)((char*)chunk + offset);
-
- /* allocate the first page to the freelist */
- chunk->page_sizes [0] = PINNED_FIRST_SLOT_SIZE;
- build_freelist (alc, chunk, slot_for_size (PINNED_FIRST_SLOT_SIZE), PINNED_FIRST_SLOT_SIZE,
- chunk->start_data, ((char*)chunk + FREELIST_PAGESIZE));
- mono_sgen_debug_printf (4, "Allocated pinned chunk %p, size: %d\n", chunk, size);
-
- chunk->block.next = alc->chunk_list;
- alc->chunk_list = chunk;
-
- if (managed)
- UNLOCK_INTERNAL_ALLOCATOR;
-
- return chunk;
-}
-
-/* Must be called with an empty freelist for the given slot. */
-static gboolean
-populate_chunk_page (SgenInternalAllocator *alc, SgenPinnedChunk *chunk, int slot)
-{
- int size = freelist_sizes [slot];
- int i;
- g_assert (!chunk->free_list [slot]);
- g_assert (!chunk->free_list_nexts [slot]);
- for (i = 0; i < chunk->num_pages; ++i) {
- if (chunk->page_sizes [i])
- continue;
- chunk->page_sizes [i] = size;
- build_freelist (alc, chunk, slot, size, (char*)chunk + FREELIST_PAGESIZE * i, (char*)chunk + FREELIST_PAGESIZE * (i + 1));
- return TRUE;
+ if (fixed_type_allocator_indexes [type] == -1)
+ fixed_type_allocator_indexes [type] = slot;
+ else
+ g_assert (fixed_type_allocator_indexes [type] == slot);
+}
+
+static const char*
+description_for_type (int type)
+{
+ switch (type) {
+ case INTERNAL_MEM_PIN_QUEUE: return "pin-queue";
+ case INTERNAL_MEM_FRAGMENT: return "fragment";
+ case INTERNAL_MEM_SECTION: return "section";
+ case INTERNAL_MEM_SCAN_STARTS: return "scan-starts";
+ case INTERNAL_MEM_FIN_TABLE: return "fin-table";
+ case INTERNAL_MEM_FINALIZE_ENTRY: return "finalize-entry";
+ case INTERNAL_MEM_FINALIZE_READY_ENTRY: return "finalize-ready-entry";
+ case INTERNAL_MEM_DISLINK_TABLE: return "dislink-table";
+ case INTERNAL_MEM_DISLINK: return "dislink";
+ case INTERNAL_MEM_ROOTS_TABLE: return "roots-table";
+ case INTERNAL_MEM_ROOT_RECORD: return "root-record";
+ case INTERNAL_MEM_STATISTICS: return "statistics";
+ case INTERNAL_MEM_STAT_PINNED_CLASS: return "pinned-class";
+ case INTERNAL_MEM_STAT_REMSET_CLASS: return "remset-class";
+ case INTERNAL_MEM_REMSET: return "remset";
+ case INTERNAL_MEM_GRAY_QUEUE: return "gray-queue";
+ case INTERNAL_MEM_STORE_REMSET: return "store-remset";
+ case INTERNAL_MEM_MS_TABLES: return "marksweep-tables";
+ case INTERNAL_MEM_MS_BLOCK_INFO: return "marksweep-block-info";
+ case INTERNAL_MEM_EPHEMERON_LINK: return "ephemeron-link";
+ case INTERNAL_MEM_WORKER_DATA: return "worker-data";
+ case INTERNAL_MEM_BRIDGE_DATA: return "bridge-data";
+ case INTERNAL_MEM_BRIDGE_HASH_TABLE: return "bridge-hash-table";
+ case INTERNAL_MEM_BRIDGE_HASH_TABLE_ENTRY: return "bridge-hash-table-entry";
+ case INTERNAL_MEM_BRIDGE_ALIVE_HASH_TABLE: return "bridge-alive-hash-table";
+ case INTERNAL_MEM_BRIDGE_ALIVE_HASH_TABLE_ENTRY: return "bridge-alive-hash-table-entry";
+ case INTERNAL_MEM_JOB_QUEUE_ENTRY: return "job-queue-entry";
+ case INTERNAL_MEM_TOGGLEREF_DATA: return "toggleref-data";
+ default:
+ g_assert_not_reached ();
}
- return FALSE;
}
-/* LOCKING: assumes the internal allocator lock is held */
-static void*
-alloc_from_slot (SgenInternalAllocator *alc, int slot, int type)
+void*
+sgen_alloc_internal_dynamic (size_t size, int type, gboolean assert_on_failure)
{
- SgenPinnedChunk *pchunk;
- size_t size = freelist_sizes [slot];
-
- alc->small_internal_mem_bytes [type] += size;
-
- restart:
- pchunk = alc->free_lists [slot];
- if (pchunk) {
- void **p = pchunk->free_list [slot];
- void *next;
-
- g_assert (p);
-
- next = *p;
- pchunk->free_list [slot] = next;
-
- if (!next) {
- alc->free_lists [slot] = pchunk->free_list_nexts [slot];
- pchunk->free_list_nexts [slot] = NULL;
- }
+ int index;
+ void *p;
- memset (p, 0, size);
+ if (size > allocator_sizes [NUM_ALLOCATORS - 1]) {
+ p = sgen_alloc_os_memory (size, SGEN_ALLOC_INTERNAL | SGEN_ALLOC_ACTIVATE, NULL);
+ if (!p)
+ sgen_assert_memory_alloc (NULL, description_for_type (type));
return p;
}
- for (pchunk = alc->chunk_list; pchunk; pchunk = pchunk->block.next) {
- if (populate_chunk_page (alc, pchunk, slot))
- goto restart;
- }
+ index = index_for_size (size);
- pchunk = alloc_pinned_chunk (alc, type == INTERNAL_MEM_MANAGED);
- /* FIXME: handle OOM */
- if (pchunk->free_list [slot])
- goto restart;
- if (!populate_chunk_page (alc, pchunk, slot))
- g_assert_not_reached ();
- goto restart;
+ p = mono_lock_free_alloc (&allocators [index]);
+ if (!p)
+ sgen_assert_memory_alloc (NULL, description_for_type (type));
+ memset (p, 0, size);
+ return p;
}
-/* used for the GC-internal data structures */
-void*
-mono_sgen_alloc_internal_full (SgenInternalAllocator *alc, size_t size, int type)
+void
+sgen_free_internal_dynamic (void *addr, size_t size, int type)
{
- int slot;
- void *res = NULL;
-
- g_assert (fixed_type_freelist_slots [type] == -1);
-
- LOCK_INTERNAL_ALLOCATOR;
-
- HEAVY_STAT (++stat_internal_alloc);
-
- if (size > freelist_sizes [SGEN_INTERNAL_FREELIST_NUM_SLOTS - 1]) {
- LargeInternalMemHeader *mh;
-
- UNLOCK_INTERNAL_ALLOCATOR;
+ if (!addr)
+ return;
- size += sizeof (LargeInternalMemHeader);
- mh = mono_sgen_alloc_os_memory (size, TRUE);
- mh->magic = LARGE_INTERNAL_MEM_HEADER_MAGIC;
- mh->size = size;
- /* FIXME: do a CAS here */
- large_internal_bytes_alloced += size;
- return mh->data;
+ if (size > allocator_sizes [NUM_ALLOCATORS - 1]) {
+ sgen_free_os_memory (addr, size, SGEN_ALLOC_INTERNAL);
+ return;
}
- slot = slot_for_size (size);
- g_assert (size <= freelist_sizes [slot]);
- res = alloc_from_slot (alc, slot, type);
-
- UNLOCK_INTERNAL_ALLOCATOR;
-
- return res;
-}
-
-void*
-mono_sgen_alloc_internal (int type)
-{
- void *res;
- int slot = fixed_type_freelist_slots [type];
- g_assert (slot >= 0);
-
- LOCK_INTERNAL_ALLOCATOR;
- res = alloc_from_slot (&unmanaged_allocator, slot, type);
- UNLOCK_INTERNAL_ALLOCATOR;
-
- return res;
+ mono_lock_free_free (addr);
}
void*
-mono_sgen_alloc_internal_dynamic (size_t size, int type)
-{
- return mono_sgen_alloc_internal_full (&unmanaged_allocator, size, type);
-}
-
-static void
-free_from_slot (SgenInternalAllocator *alc, void *addr, int slot, int type)
+sgen_alloc_internal (int type)
{
- SgenPinnedChunk *pchunk = (SgenPinnedChunk*)SGEN_PINNED_CHUNK_FOR_PTR (addr);
- void **p = addr;
- void *next;
-
- LOCK_INTERNAL_ALLOCATOR;
-
- g_assert (addr >= (void*)pchunk && (char*)addr < (char*)pchunk + pchunk->num_pages * FREELIST_PAGESIZE);
- if (type == INTERNAL_MEM_MANAGED)
- g_assert (pchunk->block.role == MEMORY_ROLE_PINNED);
- else
- g_assert (pchunk->block.role == MEMORY_ROLE_INTERNAL);
-
- next = pchunk->free_list [slot];
- *p = next;
- pchunk->free_list [slot] = p;
-
- if (!next) {
- g_assert (!pchunk->free_list_nexts [slot]);
- pchunk->free_list_nexts [slot] = alc->free_lists [slot];
- alc->free_lists [slot] = pchunk;
- }
-
- alc->small_internal_mem_bytes [type] -= freelist_sizes [slot];
-
- UNLOCK_INTERNAL_ALLOCATOR;
+ int index = fixed_type_allocator_indexes [type];
+ void *p;
+ g_assert (index >= 0 && index < NUM_ALLOCATORS);
+ p = mono_lock_free_alloc (&allocators [index]);
+ memset (p, 0, allocator_sizes [index]);
+ return p;
}
void
-mono_sgen_free_internal_full (SgenInternalAllocator *alc, void *addr, size_t size, int type)
+sgen_free_internal (void *addr, int type)
{
- LargeInternalMemHeader *mh;
-
- g_assert (fixed_type_freelist_slots [type] == -1);
+ int index;
if (!addr)
return;
- if (size <= freelist_sizes [SGEN_INTERNAL_FREELIST_NUM_SLOTS - 1]) {
- int slot = slot_for_size (size);
- free_from_slot (alc, addr, slot, type);
- return;
- }
-
- mh = (LargeInternalMemHeader*)((char*)addr - G_STRUCT_OFFSET (LargeInternalMemHeader, data));
- g_assert (mh->magic == LARGE_INTERNAL_MEM_HEADER_MAGIC);
- g_assert (mh->size == size + sizeof (LargeInternalMemHeader));
- /* FIXME: do a CAS */
- large_internal_bytes_alloced -= mh->size;
- mono_sgen_free_os_memory (mh, mh->size);
-}
-
-void
-mono_sgen_free_internal (void *addr, int type)
-{
- int slot = fixed_type_freelist_slots [type];
- g_assert (slot >= 0);
-
- free_from_slot (&unmanaged_allocator, addr, slot, type);
-}
+ index = fixed_type_allocator_indexes [type];
+ g_assert (index >= 0 && index < NUM_ALLOCATORS);
-void
-mono_sgen_free_internal_dynamic (void *addr, size_t size, int type)
-{
- mono_sgen_free_internal_full (&unmanaged_allocator, addr, size, type);
+ mono_lock_free_free (addr);
}
void
-mono_sgen_dump_internal_mem_usage (FILE *heap_dump_file)
+sgen_dump_internal_mem_usage (FILE *heap_dump_file)
{
- static char const *internal_mem_names [] = { "managed", "pin-queue", "fragment", "section", "scan-starts",
- "fin-table", "finalize-entry", "dislink-table",
- "dislink", "roots-table", "root-record", "statistics",
- "remset", "gray-queue", "store-remset", "marksweep-tables",
- "marksweep-block-info", "ephemeron-link" };
-
+ /*
int i;
fprintf (heap_dump_file, "<other-mem-usage type=\"large-internal\" size=\"%lld\"/>\n", large_internal_bytes_alloced);
fprintf (heap_dump_file, "<other-mem-usage type=\"pinned-chunks\" size=\"%lld\"/>\n", pinned_chunk_bytes_alloced);
for (i = 0; i < INTERNAL_MEM_MAX; ++i) {
fprintf (heap_dump_file, "<other-mem-usage type=\"%s\" size=\"%ld\"/>\n",
- internal_mem_names [i], unmanaged_allocator.small_internal_mem_bytes [i]);
+ description_for_type (i), unmanaged_allocator.small_internal_mem_bytes [i]);
}
+ */
}
void
-mono_sgen_init_internal_allocator (void)
+sgen_report_internal_mem_usage (void)
{
- int i;
-
- g_assert (SGEN_INTERNAL_FREELIST_NUM_SLOTS == sizeof (freelist_sizes) / sizeof (freelist_sizes [0]));
-
- for (i = 0; i < INTERNAL_MEM_MAX; ++i)
- fixed_type_freelist_slots [i] = -1;
-
-#ifdef HEAVY_STATISTICS
- mono_counters_register ("Internal allocs", MONO_COUNTER_GC | MONO_COUNTER_LONG, &stat_internal_alloc);
-#endif
+ /* FIXME: implement */
+ printf ("not implemented yet\n");
}
void
-mono_sgen_internal_scan_objects (SgenInternalAllocator *alc, IterateObjectCallbackFunc callback, void *callback_data)
+sgen_init_internal_allocator (void)
{
- SgenPinnedChunk *chunk;
- int i, obj_size;
- char *p, *endp;
- void **ptr;
- void *end_chunk;
- for (chunk = alc->chunk_list; chunk; chunk = chunk->block.next) {
- end_chunk = (char*)chunk + chunk->num_pages * FREELIST_PAGESIZE;
- mono_sgen_debug_printf (6, "Scanning pinned chunk %p (range: %p-%p)\n", chunk, chunk->start_data, end_chunk);
- for (i = 0; i < chunk->num_pages; ++i) {
- obj_size = chunk->page_sizes [i];
- if (!obj_size)
- continue;
- p = i? (char*)chunk + i * FREELIST_PAGESIZE: chunk->start_data;
- endp = i? p + FREELIST_PAGESIZE: (char*)chunk + FREELIST_PAGESIZE;
- mono_sgen_debug_printf (6, "Page %d (size: %d, range: %p-%p)\n", i, obj_size, p, endp);
- while (p + obj_size <= endp) {
- ptr = (void**)p;
- /* if the first word (the vtable) is outside the chunk we have an object */
- if (*ptr && (*ptr < (void*)chunk || *ptr >= end_chunk))
- callback ((char*)ptr, obj_size, callback_data);
- p += obj_size;
- }
- }
- }
-}
+ int i;
-/*
- * the array of pointers from @start to @end contains conservative
- * pointers to objects inside @chunk: mark each referenced object
- * with the PIN bit.
- */
-static void
-mark_pinned_from_addresses (SgenPinnedChunk *chunk, void **start, void **end, IterateObjectCallbackFunc callback, void *callback_data)
-{
- for (; start < end; start++) {
- char *addr = *start;
- int offset = (char*)addr - (char*)chunk;
- int page = offset / FREELIST_PAGESIZE;
- int obj_offset = page == 0? offset - ((char*)chunk->start_data - (char*)chunk): offset % FREELIST_PAGESIZE;
- int slot_size = chunk->page_sizes [page];
- void **ptr;
- /* the page is not allocated */
- if (!slot_size)
- continue;
- /* would be faster if we restrict the sizes to power of two,
- * but that's a waste of memory: need to measure. it could reduce
- * fragmentation since there are less pages needed, if for example
- * someone interns strings of each size we end up with one page per
- * interned string (still this is just ~40 KB): with more fine-grained sizes
- * this increases the number of used pages.
- */
- if (page == 0) {
- obj_offset /= slot_size;
- obj_offset *= slot_size;
- addr = (char*)chunk->start_data + obj_offset;
- } else {
- obj_offset /= slot_size;
- obj_offset *= slot_size;
- addr = (char*)chunk + page * FREELIST_PAGESIZE + obj_offset;
- }
- ptr = (void**)addr;
- /* if the vtable is inside the chunk it's on the freelist, so skip */
- /* FIXME: is it possible that we're pinning objects more than once here? */
- if (*ptr && (*ptr < (void*)chunk->start_data || *ptr > (void*)((char*)chunk + chunk->num_pages * FREELIST_PAGESIZE)))
- callback (addr, slot_size, callback_data);
- }
-}
+ for (i = 0; i < INTERNAL_MEM_MAX; ++i)
+ fixed_type_allocator_indexes [i] = -1;
-void
-mono_sgen_internal_scan_pinned_objects (SgenInternalAllocator *alc, IterateObjectCallbackFunc callback, void *callback_data)
-{
- SgenPinnedChunk *chunk;
-
- /* look for pinned addresses for pinned-alloc objects */
- mono_sgen_debug_printf (6, "Pinning from pinned-alloc objects\n");
- for (chunk = alc->chunk_list; chunk; chunk = chunk->block.next) {
- int num_pinned;
- void **pinned = mono_sgen_find_optimized_pin_queue_area (chunk->start_data,
- (char*)chunk + chunk->num_pages * FREELIST_PAGESIZE, &num_pinned);
- if (num_pinned)
- mark_pinned_from_addresses (chunk, pinned, pinned + num_pinned, callback, callback_data);
+ for (i = 0; i < NUM_ALLOCATORS; ++i) {
+ mono_lock_free_allocator_init_size_class (&size_classes [i], allocator_sizes [i]);
+ mono_lock_free_allocator_init_allocator (&allocators [i], &size_classes [i]);
}
}