1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_optimize_info_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 gcBYTES_TO_WORDS(sizeof(Optimize_Info)); 6#else 7 return 0; 8#endif 9} 10 11static int mark_optimize_info_MARK(void *p, struct NewGC *gc) { 12#ifndef GC_NO_MARK_PROCEDURE_NEEDED 13 Optimize_Info *i = (Optimize_Info *)p; 14 15 gcMARK2(i->next, gc); 16 gcMARK2(i->linklet, gc); 17 gcMARK2(i->cross, gc); 18 gcMARK2(i->imports_used, gc); 19 gcMARK2(i->top_level_consts, gc); 20 gcMARK2(i->transitive_use_var, gc); 21 gcMARK2(i->context, gc); 22 gcMARK2(i->logger, gc); 23 gcMARK2(i->types, gc); 24 gcMARK2(i->uses, gc); 25 26# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 27 return 0; 28# else 29 return 30 gcBYTES_TO_WORDS(sizeof(Optimize_Info)); 31# endif 32#endif 33} 34 35static int mark_optimize_info_FIXUP(void *p, struct NewGC *gc) { 36#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 37 Optimize_Info *i = (Optimize_Info *)p; 38 39 gcFIXUP2(i->next, gc); 40 gcFIXUP2(i->linklet, gc); 41 gcFIXUP2(i->cross, gc); 42 gcFIXUP2(i->imports_used, gc); 43 gcFIXUP2(i->top_level_consts, gc); 44 gcFIXUP2(i->transitive_use_var, gc); 45 gcFIXUP2(i->context, gc); 46 gcFIXUP2(i->logger, gc); 47 gcFIXUP2(i->types, gc); 48 gcFIXUP2(i->uses, gc); 49 50# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 51 return 0; 52# else 53 return 54 gcBYTES_TO_WORDS(sizeof(Optimize_Info)); 55# endif 56#endif 57} 58 59#define mark_optimize_info_IS_ATOMIC 0 60#define mark_optimize_info_IS_CONST_SIZE 1 61 62 63static int mark_once_used_SIZE(void *p, struct NewGC *gc) { 64#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 65 gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used)); 66#else 67 return 0; 68#endif 69} 70 71static int mark_once_used_MARK(void *p, struct NewGC *gc) { 72#ifndef GC_NO_MARK_PROCEDURE_NEEDED 73 Scheme_Once_Used *o = (Scheme_Once_Used *)p; 74 gcMARK2(o->expr, gc); 75 gcMARK2(o->var, gc); 76# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 77 return 0; 78# else 79 return 80 gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used)); 81# endif 82#endif 83} 84 85static int mark_once_used_FIXUP(void *p, struct NewGC *gc) { 86#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 87 Scheme_Once_Used *o = (Scheme_Once_Used *)p; 88 gcFIXUP2(o->expr, gc); 89 gcFIXUP2(o->var, gc); 90# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 91 return 0; 92# else 93 return 94 gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used)); 95# endif 96#endif 97} 98 99#define mark_once_used_IS_ATOMIC 0 100#define mark_once_used_IS_CONST_SIZE 1 101 102 103