1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_listener_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 listener_t *l = (listener_t *)p; 6 7 gcBYTES_TO_WORDS(sizeof(listener_t) + ((l->count - mzFLEX_DELTA) * sizeof(tcp_t))); 8#else 9 return 0; 10#endif 11} 12 13static int mark_listener_MARK(void *p, struct NewGC *gc) { 14#ifndef GC_NO_MARK_PROCEDURE_NEEDED 15 listener_t *l = (listener_t *)p; 16 17 18 gcMARK2(l->mref, gc); 19 20# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 21 return 0; 22# else 23 return 24 gcBYTES_TO_WORDS(sizeof(listener_t) + ((l->count - mzFLEX_DELTA) * sizeof(tcp_t))); 25# endif 26#endif 27} 28 29static int mark_listener_FIXUP(void *p, struct NewGC *gc) { 30#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 31 listener_t *l = (listener_t *)p; 32 33 34 gcFIXUP2(l->mref, gc); 35 36# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 37 return 0; 38# else 39 return 40 gcBYTES_TO_WORDS(sizeof(listener_t) + ((l->count - mzFLEX_DELTA) * sizeof(tcp_t))); 41# endif 42#endif 43} 44 45#define mark_listener_IS_ATOMIC 0 46#define mark_listener_IS_CONST_SIZE 0 47 48 49static int mark_tcp_SIZE(void *p, struct NewGC *gc) { 50#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 51 gcBYTES_TO_WORDS(sizeof(Scheme_Tcp)); 52#else 53 return 0; 54#endif 55} 56 57static int mark_tcp_MARK(void *p, struct NewGC *gc) { 58#ifndef GC_NO_MARK_PROCEDURE_NEEDED 59 Scheme_Tcp *tcp = (Scheme_Tcp *)p; 60 61 gcMARK2(tcp->b.buffer, gc); 62 gcMARK2(tcp->b.out_buffer, gc); 63 64# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 65 return 0; 66# else 67 return 68 gcBYTES_TO_WORDS(sizeof(Scheme_Tcp)); 69# endif 70#endif 71} 72 73static int mark_tcp_FIXUP(void *p, struct NewGC *gc) { 74#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 75 Scheme_Tcp *tcp = (Scheme_Tcp *)p; 76 77 gcFIXUP2(tcp->b.buffer, gc); 78 gcFIXUP2(tcp->b.out_buffer, gc); 79 80# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 81 return 0; 82# else 83 return 84 gcBYTES_TO_WORDS(sizeof(Scheme_Tcp)); 85# endif 86#endif 87} 88 89#define mark_tcp_IS_ATOMIC 0 90#define mark_tcp_IS_CONST_SIZE 1 91 92 93static int mark_udp_SIZE(void *p, struct NewGC *gc) { 94#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 95 gcBYTES_TO_WORDS(sizeof(Scheme_UDP)); 96#else 97 return 0; 98#endif 99} 100 101static int mark_udp_MARK(void *p, struct NewGC *gc) { 102#ifndef GC_NO_MARK_PROCEDURE_NEEDED 103 Scheme_UDP *udp = (Scheme_UDP *)p; 104 105 gcMARK2(udp->previous_from_addr, gc); 106 gcMARK2(udp->mref, gc); 107 108# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 109 return 0; 110# else 111 return 112 gcBYTES_TO_WORDS(sizeof(Scheme_UDP)); 113# endif 114#endif 115} 116 117static int mark_udp_FIXUP(void *p, struct NewGC *gc) { 118#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 119 Scheme_UDP *udp = (Scheme_UDP *)p; 120 121 gcFIXUP2(udp->previous_from_addr, gc); 122 gcFIXUP2(udp->mref, gc); 123 124# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 125 return 0; 126# else 127 return 128 gcBYTES_TO_WORDS(sizeof(Scheme_UDP)); 129# endif 130#endif 131} 132 133#define mark_udp_IS_ATOMIC 0 134#define mark_udp_IS_CONST_SIZE 1 135 136 137static int mark_udp_evt_SIZE(void *p, struct NewGC *gc) { 138#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 139 gcBYTES_TO_WORDS(sizeof(Scheme_UDP_Evt)); 140#else 141 return 0; 142#endif 143} 144 145static int mark_udp_evt_MARK(void *p, struct NewGC *gc) { 146#ifndef GC_NO_MARK_PROCEDURE_NEEDED 147 Scheme_UDP_Evt *uw = (Scheme_UDP_Evt *)p; 148 149 gcMARK2(uw->udp, gc); 150 gcMARK2(uw->str, gc); 151 152# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 153 return 0; 154# else 155 return 156 gcBYTES_TO_WORDS(sizeof(Scheme_UDP_Evt)); 157# endif 158#endif 159} 160 161static int mark_udp_evt_FIXUP(void *p, struct NewGC *gc) { 162#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 163 Scheme_UDP_Evt *uw = (Scheme_UDP_Evt *)p; 164 165 gcFIXUP2(uw->udp, gc); 166 gcFIXUP2(uw->str, gc); 167 168# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 169 return 0; 170# else 171 return 172 gcBYTES_TO_WORDS(sizeof(Scheme_UDP_Evt)); 173# endif 174#endif 175} 176 177#define mark_udp_evt_IS_ATOMIC 0 178#define mark_udp_evt_IS_CONST_SIZE 1 179 180 181