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