text: /*
   * sgen-scan-object.h: Generic object scan.
   *
   * Copyright 2001-2003 Ximian, Inc
   * Copyright 2003-2010 Novell, Inc.
   * Copyright (C) 2013 Xamarin Inc
   *
   * This library is free software; you can redistribute it and/or
   * modify it under the terms of the GNU Library General Public
   * License 2.0 as published by the Free Software Foundation;
   *
   * This library is distributed in the hope that it will be useful,
   * but WITHOUT ANY WARRANTY; without even the implied warranty of
   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   * Library General Public License for more details.
   *
   * You should have received a copy of the GNU Library General Public
   * License 2.0 along with this library; if not, write to the Free
   * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   *
   *
   * Scans one object, using the OBJ_XXX macros.  The start of the
   * object must be given in the variable "char* start".  Afterwards,
   * "start" will point to the start of the next object, if the scanned
   * object contained references.  If not, the value of "start" should
   * be considered undefined after executing this code.  The object's
   * GC descriptor must be in the variable "mword desc".
   *
   * The macro `HANDLE_PTR` will be invoked for every reference encountered while scanning the
   * object.  It is called with two parameters: The pointer to the reference (not the
   * reference itself!) as well as the pointer to the scanned object.
   *
   * Modifiers (automatically undefined):
   *
   * SCAN_OBJECT_NOSCAN - if defined, don't actually scan the object,
   * i.e. don't invoke the OBJ_XXX macros.
   *
   * SCAN_OBJECT_NOVTABLE - desc is provided by the includer, instead of
   * vt.  Complex arrays cannot not be scanned.
   *
   * SCAN_OBJECT_PROTOCOL - if defined, binary protocol the scan.
   * Should only be used for scanning that's done for the actual
   * collection, not for debugging scans.
   */
  
  {
  #ifndef SCAN_OBJECT_NOVTABLE
  #if defined(SGEN_HEAVY_BINARY_PROTOCOL) && defined(SCAN_OBJECT_PROTOCOL)
  	binary_protocol_scan_begin ((GCObject*)start, SGEN_LOAD_VTABLE ((GCObject*)start), sgen_safe_object_get_size ((GCObject*)start));
  #endif
  #else
  #if defined(SGEN_HEAVY_BINARY_PROTOCOL) && defined(SCAN_OBJECT_PROTOCOL)
  	binary_protocol_scan_vtype_begin (start + SGEN_CLIENT_OBJECT_HEADER_SIZE, size);
  #endif
  #endif
  	switch (desc & DESC_TYPE_MASK) {
  	case DESC_TYPE_RUN_LENGTH:
  #define SCAN OBJ_RUN_LEN_FOREACH_PTR (desc, ((GCObject*)start))
  #ifndef SCAN_OBJECT_NOSCAN
  		SCAN;
  #endif
  #undef SCAN
  		break;
  	case DESC_TYPE_VECTOR:
  #define SCAN OBJ_VECTOR_FOREACH_PTR (desc, ((GCObject*)start))
  #ifndef SCAN_OBJECT_NOSCAN
  		SCAN;
  #endif
  #undef SCAN
  		break;
  	case DESC_TYPE_BITMAP:
  #define SCAN OBJ_BITMAP_FOREACH_PTR (desc, ((GCObject*)start))
  #ifndef SCAN_OBJECT_NOSCAN
  		SCAN;
  #endif
  #undef SCAN
  		break;
  	case DESC_TYPE_COMPLEX:
  		/* this is a complex object */
  #define SCAN OBJ_COMPLEX_FOREACH_PTR (desc, ((GCObject*)start))
  #ifndef SCAN_OBJECT_NOSCAN
  		SCAN;
  #endif
  #undef SCAN
  		break;
  #ifndef SCAN_OBJECT_NOVTABLE
  	case DESC_TYPE_COMPLEX_ARR:
  		/* this is an array of complex structs */
  #define SCAN OBJ_COMPLEX_ARR_FOREACH_PTR (desc, ((GCObject*)start))
  #ifndef SCAN_OBJECT_NOSCAN
  		SCAN;
  #endif
  #undef SCAN
  		break;
  #endif
  	case DESC_TYPE_SMALL_PTRFREE:
  	case DESC_TYPE_COMPLEX_PTRFREE:
  		/*Nothing to do*/
  		break;
  	default:
  		g_assert_not_reached ();
  	}
  }
  
  #undef SCAN_OBJECT_NOSCAN
  #undef SCAN_OBJECT_NOVTABLE
  #undef SCAN_OBJECT_PROTOCOL
  