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