1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
2
3static int mark_optimize_info_SIZE(void *p, struct NewGC *gc) {
4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
5  gcBYTES_TO_WORDS(sizeof(Optimize_Info));
6#else
7  return 0;
8#endif
9}
10
11static int mark_optimize_info_MARK(void *p, struct NewGC *gc) {
12#ifndef GC_NO_MARK_PROCEDURE_NEEDED
13  Optimize_Info *i = (Optimize_Info *)p;
14
15  gcMARK2(i->next, gc);
16  gcMARK2(i->linklet, gc);
17  gcMARK2(i->cross, gc);
18  gcMARK2(i->imports_used, gc);
19  gcMARK2(i->top_level_consts, gc);
20  gcMARK2(i->transitive_use_var, gc);
21  gcMARK2(i->context, gc);
22  gcMARK2(i->logger, gc);
23  gcMARK2(i->types, gc);
24  gcMARK2(i->uses, gc);
25
26# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
27  return 0;
28# else
29  return
30  gcBYTES_TO_WORDS(sizeof(Optimize_Info));
31# endif
32#endif
33}
34
35static int mark_optimize_info_FIXUP(void *p, struct NewGC *gc) {
36#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
37  Optimize_Info *i = (Optimize_Info *)p;
38
39  gcFIXUP2(i->next, gc);
40  gcFIXUP2(i->linklet, gc);
41  gcFIXUP2(i->cross, gc);
42  gcFIXUP2(i->imports_used, gc);
43  gcFIXUP2(i->top_level_consts, gc);
44  gcFIXUP2(i->transitive_use_var, gc);
45  gcFIXUP2(i->context, gc);
46  gcFIXUP2(i->logger, gc);
47  gcFIXUP2(i->types, gc);
48  gcFIXUP2(i->uses, gc);
49
50# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
51  return 0;
52# else
53  return
54  gcBYTES_TO_WORDS(sizeof(Optimize_Info));
55# endif
56#endif
57}
58
59#define mark_optimize_info_IS_ATOMIC 0
60#define mark_optimize_info_IS_CONST_SIZE 1
61
62
63static int mark_once_used_SIZE(void *p, struct NewGC *gc) {
64#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
65  gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used));
66#else
67  return 0;
68#endif
69}
70
71static int mark_once_used_MARK(void *p, struct NewGC *gc) {
72#ifndef GC_NO_MARK_PROCEDURE_NEEDED
73  Scheme_Once_Used *o = (Scheme_Once_Used *)p;
74  gcMARK2(o->expr, gc);
75  gcMARK2(o->var, gc);
76# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
77  return 0;
78# else
79  return
80  gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used));
81# endif
82#endif
83}
84
85static int mark_once_used_FIXUP(void *p, struct NewGC *gc) {
86#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
87  Scheme_Once_Used *o = (Scheme_Once_Used *)p;
88  gcFIXUP2(o->expr, gc);
89  gcFIXUP2(o->var, gc);
90# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
91  return 0;
92# else
93  return
94  gcBYTES_TO_WORDS(sizeof(Scheme_Once_Used));
95# endif
96#endif
97}
98
99#define mark_once_used_IS_ATOMIC 0
100#define mark_once_used_IS_CONST_SIZE 1
101
102
103