1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_indent_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 gcBYTES_TO_WORDS(sizeof(Scheme_Indent)); 6#else 7 return 0; 8#endif 9} 10 11static int mark_indent_MARK(void *p, struct NewGC *gc) { 12#ifndef GC_NO_MARK_PROCEDURE_NEEDED 13# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 14 return 0; 15# else 16 return 17 gcBYTES_TO_WORDS(sizeof(Scheme_Indent)); 18# endif 19#endif 20} 21 22static int mark_indent_FIXUP(void *p, struct NewGC *gc) { 23#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 24# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 25 return 0; 26# else 27 return 28 gcBYTES_TO_WORDS(sizeof(Scheme_Indent)); 29# endif 30#endif 31} 32 33#define mark_indent_IS_ATOMIC 1 34#define mark_indent_IS_CONST_SIZE 1 35 36 37static int mark_cport_SIZE(void *p, struct NewGC *gc) { 38#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 39 gcBYTES_TO_WORDS(sizeof(CPort)); 40#else 41 return 0; 42#endif 43} 44 45static int mark_cport_MARK(void *p, struct NewGC *gc) { 46#ifndef GC_NO_MARK_PROCEDURE_NEEDED 47 CPort *cp = (CPort *)p; 48 gcMARK2(cp->start, gc); 49 gcMARK2(cp->orig_port, gc); 50 gcMARK2(cp->ht, gc); 51 gcMARK2(cp->ut, gc); 52 gcMARK2(cp->symtab, gc); 53 gcMARK2(cp->symtab_entries, gc); 54 gcMARK2(cp->relto, gc); 55 gcMARK2(cp->shared_offsets, gc); 56 gcMARK2(cp->delay_info, gc); 57 gcMARK2(cp->symtab_refs, gc); 58# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 59 return 0; 60# else 61 return 62 gcBYTES_TO_WORDS(sizeof(CPort)); 63# endif 64#endif 65} 66 67static int mark_cport_FIXUP(void *p, struct NewGC *gc) { 68#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 69 CPort *cp = (CPort *)p; 70 gcFIXUP2(cp->start, gc); 71 gcFIXUP2(cp->orig_port, gc); 72 gcFIXUP2(cp->ht, gc); 73 gcFIXUP2(cp->ut, gc); 74 gcFIXUP2(cp->symtab, gc); 75 gcFIXUP2(cp->symtab_entries, gc); 76 gcFIXUP2(cp->relto, gc); 77 gcFIXUP2(cp->shared_offsets, gc); 78 gcFIXUP2(cp->delay_info, gc); 79 gcFIXUP2(cp->symtab_refs, gc); 80# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 81 return 0; 82# else 83 return 84 gcBYTES_TO_WORDS(sizeof(CPort)); 85# endif 86#endif 87} 88 89#define mark_cport_IS_ATOMIC 0 90#define mark_cport_IS_CONST_SIZE 1 91 92 93static int mark_read_params_SIZE(void *p, struct NewGC *gc) { 94#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 95 gcBYTES_TO_WORDS(sizeof(ReadParams)); 96#else 97 return 0; 98#endif 99} 100 101static int mark_read_params_MARK(void *p, struct NewGC *gc) { 102#ifndef GC_NO_MARK_PROCEDURE_NEEDED 103 ReadParams *rp = (ReadParams *)p; 104 gcMARK2(rp->delay_load_info, gc); 105 gcMARK2(rp->read_relative_path, gc); 106 gcMARK2(rp->graph_ht, gc); 107# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 108 return 0; 109# else 110 return 111 gcBYTES_TO_WORDS(sizeof(ReadParams)); 112# endif 113#endif 114} 115 116static int mark_read_params_FIXUP(void *p, struct NewGC *gc) { 117#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 118 ReadParams *rp = (ReadParams *)p; 119 gcFIXUP2(rp->delay_load_info, gc); 120 gcFIXUP2(rp->read_relative_path, gc); 121 gcFIXUP2(rp->graph_ht, gc); 122# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 123 return 0; 124# else 125 return 126 gcBYTES_TO_WORDS(sizeof(ReadParams)); 127# endif 128#endif 129} 130 131#define mark_read_params_IS_ATOMIC 0 132#define mark_read_params_IS_CONST_SIZE 1 133 134 135static int mark_delay_load_SIZE(void *p, struct NewGC *gc) { 136#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 137 gcBYTES_TO_WORDS(sizeof(Scheme_Load_Delay)); 138#else 139 return 0; 140#endif 141} 142 143static int mark_delay_load_MARK(void *p, struct NewGC *gc) { 144#ifndef GC_NO_MARK_PROCEDURE_NEEDED 145 Scheme_Load_Delay *ld = (Scheme_Load_Delay *)p; 146 gcMARK2(ld->path, gc); 147 gcMARK2(ld->symtab, gc); 148 gcMARK2(ld->symtab_entries, gc); 149 gcMARK2(ld->shared_offsets, gc); 150 gcMARK2(ld->relto, gc); 151 gcMARK2(ld->ut, gc); 152 gcMARK2(ld->current_rp, gc); 153 gcMARK2(ld->cached, gc); 154 gcMARK2(ld->cached_port, gc); 155# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 156 return 0; 157# else 158 return 159 gcBYTES_TO_WORDS(sizeof(Scheme_Load_Delay)); 160# endif 161#endif 162} 163 164static int mark_delay_load_FIXUP(void *p, struct NewGC *gc) { 165#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 166 Scheme_Load_Delay *ld = (Scheme_Load_Delay *)p; 167 gcFIXUP2(ld->path, gc); 168 gcFIXUP2(ld->symtab, gc); 169 gcFIXUP2(ld->symtab_entries, gc); 170 gcFIXUP2(ld->shared_offsets, gc); 171 gcFIXUP2(ld->relto, gc); 172 gcFIXUP2(ld->ut, gc); 173 gcFIXUP2(ld->current_rp, gc); 174 gcFIXUP2(ld->cached, gc); 175 gcFIXUP2(ld->cached_port, gc); 176# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 177 return 0; 178# else 179 return 180 gcBYTES_TO_WORDS(sizeof(Scheme_Load_Delay)); 181# endif 182#endif 183} 184 185#define mark_delay_load_IS_ATOMIC 0 186#define mark_delay_load_IS_CONST_SIZE 1 187 188 189static int mark_unmarshal_tables_SIZE(void *p, struct NewGC *gc) { 190#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 191 gcBYTES_TO_WORDS(sizeof(Scheme_Unmarshal_Tables)); 192#else 193 return 0; 194#endif 195} 196 197static int mark_unmarshal_tables_MARK(void *p, struct NewGC *gc) { 198#ifndef GC_NO_MARK_PROCEDURE_NEEDED 199 Scheme_Unmarshal_Tables *ut = (Scheme_Unmarshal_Tables *)p; 200 gcMARK2(ut->rp, gc); 201 gcMARK2(ut->decoded, gc); 202# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 203 return 0; 204# else 205 return 206 gcBYTES_TO_WORDS(sizeof(Scheme_Unmarshal_Tables)); 207# endif 208#endif 209} 210 211static int mark_unmarshal_tables_FIXUP(void *p, struct NewGC *gc) { 212#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 213 Scheme_Unmarshal_Tables *ut = (Scheme_Unmarshal_Tables *)p; 214 gcFIXUP2(ut->rp, gc); 215 gcFIXUP2(ut->decoded, gc); 216# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 217 return 0; 218# else 219 return 220 gcBYTES_TO_WORDS(sizeof(Scheme_Unmarshal_Tables)); 221# endif 222#endif 223} 224 225#define mark_unmarshal_tables_IS_ATOMIC 0 226#define mark_unmarshal_tables_IS_CONST_SIZE 1 227 228 229