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