1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
2
3static int mark_letrec_check_frame_SIZE(void *p, struct NewGC *gc) {
4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
5  gcBYTES_TO_WORDS(sizeof(Letrec_Check_Frame));
6#else
7  return 0;
8#endif
9}
10
11static int mark_letrec_check_frame_MARK(void *p, struct NewGC *gc) {
12#ifndef GC_NO_MARK_PROCEDURE_NEEDED
13  Letrec_Check_Frame *frame = (Letrec_Check_Frame *)p;
14
15  gcMARK2(frame->def, gc);
16  gcMARK2(frame->next, gc);
17  gcMARK2(frame->ref, gc);
18  gcMARK2(frame->deferred_chain, gc);
19
20# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
21  return 0;
22# else
23  return
24  gcBYTES_TO_WORDS(sizeof(Letrec_Check_Frame));
25# endif
26#endif
27}
28
29static int mark_letrec_check_frame_FIXUP(void *p, struct NewGC *gc) {
30#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
31  Letrec_Check_Frame *frame = (Letrec_Check_Frame *)p;
32
33  gcFIXUP2(frame->def, gc);
34  gcFIXUP2(frame->next, gc);
35  gcFIXUP2(frame->ref, gc);
36  gcFIXUP2(frame->deferred_chain, gc);
37
38# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
39  return 0;
40# else
41  return
42  gcBYTES_TO_WORDS(sizeof(Letrec_Check_Frame));
43# endif
44#endif
45}
46
47#define mark_letrec_check_frame_IS_ATOMIC 0
48#define mark_letrec_check_frame_IS_CONST_SIZE 1
49
50
51static int mark_scheme_deferred_expr_SIZE(void *p, struct NewGC *gc) {
52#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
53  gcBYTES_TO_WORDS(sizeof(Scheme_Deferred_Expr));
54#else
55  return 0;
56#endif
57}
58
59static int mark_scheme_deferred_expr_MARK(void *p, struct NewGC *gc) {
60#ifndef GC_NO_MARK_PROCEDURE_NEEDED
61  Scheme_Deferred_Expr *clos = (Scheme_Deferred_Expr *)p;
62
63  gcMARK2(clos->expr, gc);
64  gcMARK2(clos->frame, gc);
65  gcMARK2(clos->chain_next, gc);
66
67# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
68  return 0;
69# else
70  return
71  gcBYTES_TO_WORDS(sizeof(Scheme_Deferred_Expr));
72# endif
73#endif
74}
75
76static int mark_scheme_deferred_expr_FIXUP(void *p, struct NewGC *gc) {
77#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
78  Scheme_Deferred_Expr *clos = (Scheme_Deferred_Expr *)p;
79
80  gcFIXUP2(clos->expr, gc);
81  gcFIXUP2(clos->frame, gc);
82  gcFIXUP2(clos->chain_next, gc);
83
84# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
85  return 0;
86# else
87  return
88  gcBYTES_TO_WORDS(sizeof(Scheme_Deferred_Expr));
89# endif
90#endif
91}
92
93#define mark_scheme_deferred_expr_IS_ATOMIC 0
94#define mark_scheme_deferred_expr_IS_CONST_SIZE 1
95
96
97