1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_validate_clearing_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 gcBYTES_TO_WORDS(sizeof(Validate_Clearing)); 6#else 7 return 0; 8#endif 9} 10 11static int mark_validate_clearing_MARK(void *p, struct NewGC *gc) { 12#ifndef GC_NO_MARK_PROCEDURE_NEEDED 13 Validate_Clearing *vc = (Validate_Clearing *)p; 14 15 gcMARK2(vc->stack, gc); 16 gcMARK2(vc->ncstack, gc); 17 18# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 19 return 0; 20# else 21 return 22 gcBYTES_TO_WORDS(sizeof(Validate_Clearing)); 23# endif 24#endif 25} 26 27static int mark_validate_clearing_FIXUP(void *p, struct NewGC *gc) { 28#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 29 Validate_Clearing *vc = (Validate_Clearing *)p; 30 31 gcFIXUP2(vc->stack, gc); 32 gcFIXUP2(vc->ncstack, gc); 33 34# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 35 return 0; 36# else 37 return 38 gcBYTES_TO_WORDS(sizeof(Validate_Clearing)); 39# endif 40#endif 41} 42 43#define mark_validate_clearing_IS_ATOMIC 0 44#define mark_validate_clearing_IS_CONST_SIZE 1 45 46 47