mono/metadata/sgen-minor-scan-object.h

   1 /*
   2  * Copyright 2001-2003 Ximian, Inc
   3  * Copyright 2003-2010 Novell, Inc.
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining
   6  * a copy of this software and associated documentation files (the
   7  * "Software"), to deal in the Software without restriction, including
   8  * without limitation the rights to use, copy, modify, merge, publish,
   9  * distribute, sublicense, and/or sell copies of the Software, and to
  10  * permit persons to whom the Software is furnished to do so, subject to
  11  * the following conditions:
  12  *
  13  * The above copyright notice and this permission notice shall be
  14  * included in all copies or substantial portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  17  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  18  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  19  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  20  * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  21  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  22  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23  */
  24 extern long long stat_scan_object_called_nursery;
  25
  26 #undef HANDLE_PTR
  27 #define HANDLE_PTR(ptr,obj)     do {    \
  28                 void *__old = *(ptr);   \
  29                 void *__copy;           \
  30                 if (__old) {    \
  31                         parallel_copy_object ((ptr), queue);    \
  32                         __copy = *(ptr);        \
  33                         DEBUG (9, if (__old != __copy) fprintf (gc_debug_file, "Overwrote field at %p with %p (was: %p)\n", (ptr), *(ptr), __old));     \
  34                         if (G_UNLIKELY (sgen_ptr_in_nursery (__copy) && !sgen_ptr_in_nursery ((ptr)))) \
  35                                 sgen_add_to_global_remset ((ptr));      \
  36                 }       \
  37         } while (0)
  38
  39 /*
  40  * Scan the object pointed to by @start for references to
  41  * other objects between @from_start and @from_end and copy
  42  * them to the gray_objects area.
  43  */
  44 static void
  45 parallel_scan_object (char *start, SgenGrayQueue *queue)
  46 {
  47 #include "sgen-scan-object.h"
  48
  49         HEAVY_STAT (++stat_scan_object_called_nursery);
  50 }
  51
  52 /*
  53  * scan_vtype:
  54  *
  55  * Scan the valuetype pointed to by START, described by DESC for references to
  56  * other objects between @from_start and @from_end and copy them to the gray_objects area.
  57  * Returns a pointer to the end of the object.
  58  */
  59 static void
  60 parallel_scan_vtype (char *start, mword desc, SgenGrayQueue *queue)
  61 {
  62         /* The descriptors include info about the MonoObject header as well */
  63         start -= sizeof (MonoObject);
  64
  65 #define SCAN_OBJECT_NOVTABLE
  66 #include "sgen-scan-object.h"
  67 }
  68
  69 #undef HANDLE_PTR
  70 #define HANDLE_PTR(ptr,obj)     do {    \
  71                 void *__old = *(ptr);   \
  72                 void *__copy;           \
  73                 if (__old) {    \
  74                         serial_copy_object ((ptr), queue);      \
  75                         __copy = *(ptr);        \
  76                         DEBUG (9, if (__old != __copy) fprintf (gc_debug_file, "Overwrote field at %p with %p (was: %p)\n", (ptr), *(ptr), __old));     \
  77                         if (G_UNLIKELY (sgen_ptr_in_nursery (__copy) && !sgen_ptr_in_nursery ((ptr)))) \
  78                                 sgen_add_to_global_remset ((ptr));      \
  79                 }       \
  80         } while (0)
  81
  82 static void
  83 serial_scan_object (char *start, SgenGrayQueue *queue)
  84 {
  85 #include "sgen-scan-object.h"
  86
  87         HEAVY_STAT (++stat_scan_object_called_nursery);
  88 }
  89
  90 static void
  91 serial_scan_vtype (char *start, mword desc, SgenGrayQueue *queue)
  92 {
  93         /* The descriptors include info about the MonoObject header as well */
  94         start -= sizeof (MonoObject);
  95
  96 #define SCAN_OBJECT_NOVTABLE
  97 #include "sgen-scan-object.h"
  98 }
  99
 100 #define FILL_MINOR_COLLECTOR_SCAN_OBJECT(collector)     do {                    \
 101                 (collector)->parallel_ops.scan_object = parallel_scan_object;   \
 102                 (collector)->parallel_ops.scan_vtype = parallel_scan_vtype;     \
 103                 (collector)->serial_ops.scan_object = serial_scan_object;       \
 104                 (collector)->serial_ops.scan_vtype = serial_scan_vtype; \
 105         } while (0)