1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
2
3static int mark_print_params_SIZE(void *p, struct NewGC *gc) {
4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
5  gcBYTES_TO_WORDS(sizeof(PrintParams));
6#else
7  return 0;
8#endif
9}
10
11static int mark_print_params_MARK(void *p, struct NewGC *gc) {
12#ifndef GC_NO_MARK_PROCEDURE_NEEDED
13  PrintParams *pp = (PrintParams *)p;
14  gcMARK2(pp->inspector, gc);
15  gcMARK2(pp->print_port, gc);
16  gcMARK2(pp->print_buffer, gc);
17  gcMARK2(pp->depth_delta, gc);
18  gcMARK2(pp->uq_ht, gc);
19# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
20  return 0;
21# else
22  return
23  gcBYTES_TO_WORDS(sizeof(PrintParams));
24# endif
25#endif
26}
27
28static int mark_print_params_FIXUP(void *p, struct NewGC *gc) {
29#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
30  PrintParams *pp = (PrintParams *)p;
31  gcFIXUP2(pp->inspector, gc);
32  gcFIXUP2(pp->print_port, gc);
33  gcFIXUP2(pp->print_buffer, gc);
34  gcFIXUP2(pp->depth_delta, gc);
35  gcFIXUP2(pp->uq_ht, gc);
36# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
37  return 0;
38# else
39  return
40  gcBYTES_TO_WORDS(sizeof(PrintParams));
41# endif
42#endif
43}
44
45#define mark_print_params_IS_ATOMIC 0
46#define mark_print_params_IS_CONST_SIZE 1
47
48
49static int mark_marshal_tables_SIZE(void *p, struct NewGC *gc) {
50#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
51  gcBYTES_TO_WORDS(sizeof(Scheme_Marshal_Tables));
52#else
53  return 0;
54#endif
55}
56
57static int mark_marshal_tables_MARK(void *p, struct NewGC *gc) {
58#ifndef GC_NO_MARK_PROCEDURE_NEEDED
59  Scheme_Marshal_Tables *mt = (Scheme_Marshal_Tables *)p;
60  gcMARK2(mt->symtab, gc);
61  gcMARK2(mt->st_refs, gc);
62  gcMARK2(mt->st_ref_stack, gc);
63  gcMARK2(mt->intern_map, gc);
64  gcMARK2(mt->key_map, gc);
65  gcMARK2(mt->delay_map, gc);
66  gcMARK2(mt->cdata_map, gc);
67  gcMARK2(mt->shared_offsets, gc);
68  gcMARK2(mt->path_cache, gc);
69  gcMARK2(mt->sorted_keys, gc);
70# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
71  return 0;
72# else
73  return
74  gcBYTES_TO_WORDS(sizeof(Scheme_Marshal_Tables));
75# endif
76#endif
77}
78
79static int mark_marshal_tables_FIXUP(void *p, struct NewGC *gc) {
80#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
81  Scheme_Marshal_Tables *mt = (Scheme_Marshal_Tables *)p;
82  gcFIXUP2(mt->symtab, gc);
83  gcFIXUP2(mt->st_refs, gc);
84  gcFIXUP2(mt->st_ref_stack, gc);
85  gcFIXUP2(mt->intern_map, gc);
86  gcFIXUP2(mt->key_map, gc);
87  gcFIXUP2(mt->delay_map, gc);
88  gcFIXUP2(mt->cdata_map, gc);
89  gcFIXUP2(mt->shared_offsets, gc);
90  gcFIXUP2(mt->path_cache, gc);
91  gcFIXUP2(mt->sorted_keys, gc);
92# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
93  return 0;
94# else
95  return
96  gcBYTES_TO_WORDS(sizeof(Scheme_Marshal_Tables));
97# endif
98#endif
99}
100
101#define mark_marshal_tables_IS_ATOMIC 0
102#define mark_marshal_tables_IS_CONST_SIZE 1
103
104
105