static void
sgen_ssb_record_pointer (gpointer ptr)
{
RememberedSet *rs;
gboolean lock = sgen_collection_is_parallel ();
gpointer obj = *(gpointer*)ptr;
g_assert (!sgen_ptr_in_nursery (ptr) && sgen_ptr_in_nursery (obj));
if (lock)
LOCK_GLOBAL_REMSET;
if (!global_remset_location_was_not_added (ptr))
goto done;
if (G_UNLIKELY (do_pin_stats))
sgen_pin_stats_register_global_remset (obj);
SGEN_LOG (8, "Adding global remset for %p", ptr);
binary_protocol_global_remset (ptr, *(gpointer*)ptr, (gpointer)SGEN_LOAD_VTABLE (obj));
HEAVY_STAT (++stat_global_remsets_added);
/*
* FIXME: If an object remains pinned, we need to add it at every minor collection.
* To avoid uncontrolled growth of the global remset, only add each pointer once.
*/
if (global_remset->store_next + 3 < global_remset->end_set) {
*(global_remset->store_next++) = (mword)ptr;
goto done;
}
rs = sgen_alloc_remset (global_remset->end_set - global_remset->data, NULL, TRUE);
rs->next = global_remset;
global_remset = rs;
*(global_remset->store_next++) = (mword)ptr;
#if SGEN_MAX_DEBUG_LEVEL >= 4
{
int global_rs_size = 0;
for (rs = global_remset; rs; rs = rs->next) {
global_rs_size += rs->store_next - rs->data;
}
SGEN_LOG (4, "Global remset now has size %d", global_rs_size);
}
#endif
done:
if (lock)
UNLOCK_GLOBAL_REMSET;
}
static void
mono_sgen_ssb_begin_scan_remsets (void *start_nursery, void *end_nursery, SgenGrayQueue *queue)
{
RememberedSet *remset;
mword *p, *next_p, *store_pos;
/* the global one */
for (remset = global_remset; remset; remset = remset->next) {
DEBUG (4, fprintf (gc_debug_file, "Scanning global remset range: %p-%p, size: %td\n", remset->data, remset->store_next, remset->store_next - remset->data));
store_pos = remset->data;
for (p = remset->data; p < remset->store_next; p = next_p) {
void **ptr = (void**)p [0];
/*Ignore previously processed remset.*/
if (!global_remset_location_was_not_added (ptr)) {
next_p = p + 1;
continue;
}
next_p = handle_remset (p, start_nursery, end_nursery, TRUE, queue);
/*
* Clear global remsets of locations which no longer point to the
* nursery. Otherwise, they could grow indefinitely between major
* collections.
*
* Since all global remsets are location remsets, we don't need to unmask the pointer.
*/
if (mono_sgen_ptr_in_nursery (*ptr)) {
*store_pos ++ = p [0];
HEAVY_STAT (++stat_global_remsets_readded);
}
}
/* Truncate the remset */
remset->store_next = store_pos;
}
}
