1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_resolve_info_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 gcBYTES_TO_WORDS(sizeof(Resolve_Info)); 6#else 7 return 0; 8#endif 9} 10 11static int mark_resolve_info_MARK(void *p, struct NewGC *gc) { 12#ifndef GC_NO_MARK_PROCEDURE_NEEDED 13 Resolve_Info *i = (Resolve_Info *)p; 14 15 gcMARK2(i->linklet, gc); 16 gcMARK2(i->tl_map, gc); 17 gcMARK2(i->redirects, gc); 18 gcMARK2(i->lifts, gc); 19 gcMARK2(i->top, gc); 20 gcMARK2(i->next, gc); 21 gcMARK2(i->toplevel_starts, gc); 22 gcMARK2(i->toplevel_deltas, gc); 23 gcMARK2(i->toplevel_defns, gc); 24 gcMARK2(i->static_mode, gc); 25 26# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 27 return 0; 28# else 29 return 30 gcBYTES_TO_WORDS(sizeof(Resolve_Info)); 31# endif 32#endif 33} 34 35static int mark_resolve_info_FIXUP(void *p, struct NewGC *gc) { 36#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 37 Resolve_Info *i = (Resolve_Info *)p; 38 39 gcFIXUP2(i->linklet, gc); 40 gcFIXUP2(i->tl_map, gc); 41 gcFIXUP2(i->redirects, gc); 42 gcFIXUP2(i->lifts, gc); 43 gcFIXUP2(i->top, gc); 44 gcFIXUP2(i->next, gc); 45 gcFIXUP2(i->toplevel_starts, gc); 46 gcFIXUP2(i->toplevel_deltas, gc); 47 gcFIXUP2(i->toplevel_defns, gc); 48 gcFIXUP2(i->static_mode, gc); 49 50# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 51 return 0; 52# else 53 return 54 gcBYTES_TO_WORDS(sizeof(Resolve_Info)); 55# endif 56#endif 57} 58 59#define mark_resolve_info_IS_ATOMIC 0 60#define mark_resolve_info_IS_CONST_SIZE 1 61 62 63static int mark_unresolve_info_SIZE(void *p, struct NewGC *gc) { 64#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 65 gcBYTES_TO_WORDS(sizeof(Unresolve_Info)); 66#else 67 return 0; 68#endif 69} 70 71static int mark_unresolve_info_MARK(void *p, struct NewGC *gc) { 72#ifndef GC_NO_MARK_PROCEDURE_NEEDED 73 Unresolve_Info *i = (Unresolve_Info *)p; 74 75 gcMARK2(i->vars, gc); 76 gcMARK2(i->linklet, gc); 77 gcMARK2(i->linklet_key, gc); 78 gcMARK2(i->opt_info, gc); 79 gcMARK2(i->closures, gc); 80 gcMARK2(i->toplevels, gc); 81 gcMARK2(i->definitions, gc); 82 gcMARK2(i->ref_lifts, gc); 83 84# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 85 return 0; 86# else 87 return 88 gcBYTES_TO_WORDS(sizeof(Unresolve_Info)); 89# endif 90#endif 91} 92 93static int mark_unresolve_info_FIXUP(void *p, struct NewGC *gc) { 94#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 95 Unresolve_Info *i = (Unresolve_Info *)p; 96 97 gcFIXUP2(i->vars, gc); 98 gcFIXUP2(i->linklet, gc); 99 gcFIXUP2(i->linklet_key, gc); 100 gcFIXUP2(i->opt_info, gc); 101 gcFIXUP2(i->closures, gc); 102 gcFIXUP2(i->toplevels, gc); 103 gcFIXUP2(i->definitions, gc); 104 gcFIXUP2(i->ref_lifts, gc); 105 106# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 107 return 0; 108# else 109 return 110 gcBYTES_TO_WORDS(sizeof(Unresolve_Info)); 111# endif 112#endif 113} 114 115#define mark_unresolve_info_IS_ATOMIC 0 116#define mark_unresolve_info_IS_CONST_SIZE 1 117 118 119