3 * Object scanning in the nursery collectors.
5 * Copyright 2001-2003 Ximian, Inc
6 * Copyright 2003-2010 Novell, Inc.
7 * Copyright (C) 2012 Xamarin Inc
9 * Licensed under the MIT license. See LICENSE file in the project root for full license information.
12 extern guint64 stat_scan_object_called_nursery;
14 #undef SERIAL_SCAN_OBJECT
15 #undef SERIAL_SCAN_VTYPE
16 #undef SERIAL_SCAN_PTR_FIELD
17 #undef SERIAL_DRAIN_GRAY_STACK
19 #if defined(SGEN_SIMPLE_NURSERY)
21 #ifdef SGEN_SIMPLE_PAR_NURSERY
22 #define SERIAL_SCAN_OBJECT simple_par_nursery_serial_scan_object
23 #define SERIAL_SCAN_VTYPE simple_par_nursery_serial_scan_vtype
24 #define SERIAL_SCAN_PTR_FIELD simple_par_nursery_serial_scan_ptr_field
25 #define SERIAL_DRAIN_GRAY_STACK simple_par_nursery_serial_drain_gray_stack
27 #ifdef SGEN_CONCURRENT_MAJOR
28 #define SERIAL_SCAN_OBJECT simple_nursery_serial_with_concurrent_major_scan_object
29 #define SERIAL_SCAN_VTYPE simple_nursery_serial_with_concurrent_major_scan_vtype
30 #define SERIAL_SCAN_PTR_FIELD simple_nursery_serial_with_concurrent_major_scan_ptr_field
31 #define SERIAL_DRAIN_GRAY_STACK simple_nursery_serial_with_concurrent_major_drain_gray_stack
33 #define SERIAL_SCAN_OBJECT simple_nursery_serial_scan_object
34 #define SERIAL_SCAN_VTYPE simple_nursery_serial_scan_vtype
35 #define SERIAL_SCAN_PTR_FIELD simple_nursery_serial_scan_ptr_field
36 #define SERIAL_DRAIN_GRAY_STACK simple_nursery_serial_drain_gray_stack
40 #elif defined (SGEN_SPLIT_NURSERY)
42 #ifdef SGEN_CONCURRENT_MAJOR
43 #define SERIAL_SCAN_OBJECT split_nursery_serial_with_concurrent_major_scan_object
44 #define SERIAL_SCAN_VTYPE split_nursery_serial_with_concurrent_major_scan_vtype
45 #define SERIAL_SCAN_PTR_FIELD split_nursery_serial_with_concurrent_major_scan_ptr_field
46 #define SERIAL_DRAIN_GRAY_STACK split_nursery_serial_with_concurrent_major_drain_gray_stack
48 #define SERIAL_SCAN_OBJECT split_nursery_serial_scan_object
49 #define SERIAL_SCAN_VTYPE split_nursery_serial_scan_vtype
50 #define SERIAL_SCAN_PTR_FIELD split_nursery_serial_scan_ptr_field
51 #define SERIAL_DRAIN_GRAY_STACK split_nursery_serial_drain_gray_stack
55 #error "No nursery configuration specified"
59 /* Global remsets are handled in SERIAL_COPY_OBJECT_FROM_OBJ */
60 #define HANDLE_PTR(ptr,obj) do { \
61 void *__old = *(ptr); \
62 SGEN_OBJECT_LAYOUT_STATISTICS_MARK_BITMAP ((obj), (ptr)); \
63 binary_protocol_scan_process_reference ((full_object), (ptr), __old); \
65 SERIAL_COPY_OBJECT_FROM_OBJ ((ptr), queue); \
66 SGEN_COND_LOG (9, __old != *(ptr), "Overwrote field at %p with %p (was: %p)", (ptr), *(ptr), __old); \
71 SERIAL_SCAN_OBJECT (GCObject *full_object, SgenDescriptor desc, SgenGrayQueue *queue)
73 char *start = (char*)full_object;
75 SGEN_OBJECT_LAYOUT_STATISTICS_DECLARE_BITMAP;
77 #ifdef HEAVY_STATISTICS
78 sgen_descriptor_count_scanned_object (desc);
81 SGEN_ASSERT (9, sgen_get_current_collection_generation () == GENERATION_NURSERY, "Must not use minor scan during major collection.");
83 #define SCAN_OBJECT_PROTOCOL
84 #include "sgen-scan-object.h"
86 SGEN_OBJECT_LAYOUT_STATISTICS_COMMIT_BITMAP;
87 HEAVY_STAT (++stat_scan_object_called_nursery);
91 SERIAL_SCAN_VTYPE (GCObject *full_object, char *start, SgenDescriptor desc, SgenGrayQueue *queue BINARY_PROTOCOL_ARG (size_t size))
93 SGEN_OBJECT_LAYOUT_STATISTICS_DECLARE_BITMAP;
95 SGEN_ASSERT (9, sgen_get_current_collection_generation () == GENERATION_NURSERY, "Must not use minor scan during major collection.");
97 /* The descriptors include info about the MonoObject header as well */
98 start -= SGEN_CLIENT_OBJECT_HEADER_SIZE;
100 #define SCAN_OBJECT_NOVTABLE
101 #define SCAN_OBJECT_PROTOCOL
102 #include "sgen-scan-object.h"
106 SERIAL_SCAN_PTR_FIELD (GCObject *full_object, GCObject **ptr, SgenGrayQueue *queue)
108 HANDLE_PTR (ptr, NULL);
112 SERIAL_DRAIN_GRAY_STACK (SgenGrayQueue *queue)
114 #ifdef SGEN_SIMPLE_PAR_NURSERY
117 * We do bounded iteration so we can switch to optimized context
118 * when we are the last worker remaining.
120 for (i = 0; i < 32; i++) {
127 #ifdef SGEN_SIMPLE_PAR_NURSERY
128 GRAY_OBJECT_DEQUEUE_PARALLEL (queue, &obj, &desc);
130 GRAY_OBJECT_DEQUEUE_SERIAL (queue, &obj, &desc);
135 SERIAL_SCAN_OBJECT (obj, desc, queue);
141 #define FILL_MINOR_COLLECTOR_SCAN_OBJECT(ops) do { \
142 (ops)->scan_object = SERIAL_SCAN_OBJECT; \
143 (ops)->scan_vtype = SERIAL_SCAN_VTYPE; \
144 (ops)->scan_ptr_field = SERIAL_SCAN_PTR_FIELD; \
145 (ops)->drain_gray_stack = SERIAL_DRAIN_GRAY_STACK; \