1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */
2
3static int mark_indexed_string_SIZE(void *p, struct NewGC *gc) {
4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
5  gcBYTES_TO_WORDS(sizeof(Scheme_Indexed_String));
6#else
7  return 0;
8#endif
9}
10
11static int mark_indexed_string_MARK(void *p, struct NewGC *gc) {
12#ifndef GC_NO_MARK_PROCEDURE_NEEDED
13  Scheme_Indexed_String *is = (Scheme_Indexed_String *)p;
14
15  gcMARK2(is->string, gc);
16
17# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
18  return 0;
19# else
20  return
21  gcBYTES_TO_WORDS(sizeof(Scheme_Indexed_String));
22# endif
23#endif
24}
25
26static int mark_indexed_string_FIXUP(void *p, struct NewGC *gc) {
27#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
28  Scheme_Indexed_String *is = (Scheme_Indexed_String *)p;
29
30  gcFIXUP2(is->string, gc);
31
32# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
33  return 0;
34# else
35  return
36  gcBYTES_TO_WORDS(sizeof(Scheme_Indexed_String));
37# endif
38#endif
39}
40
41#define mark_indexed_string_IS_ATOMIC 0
42#define mark_indexed_string_IS_CONST_SIZE 1
43
44
45static int mark_user_input_SIZE(void *p, struct NewGC *gc) {
46#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
47  gcBYTES_TO_WORDS(sizeof(User_Input_Port));
48#else
49  return 0;
50#endif
51}
52
53static int mark_user_input_MARK(void *p, struct NewGC *gc) {
54#ifndef GC_NO_MARK_PROCEDURE_NEEDED
55  User_Input_Port *uip = (User_Input_Port *)p;
56
57  gcMARK2(uip->read_proc, gc);
58  gcMARK2(uip->peek_proc, gc);
59  gcMARK2(uip->progress_evt_proc, gc);
60  gcMARK2(uip->peeked_read_proc, gc);
61  gcMARK2(uip->location_proc, gc);
62  gcMARK2(uip->count_lines_proc, gc);
63  gcMARK2(uip->buffer_mode_proc, gc);
64  gcMARK2(uip->close_proc, gc);
65  gcMARK2(uip->reuse_str, gc);
66  gcMARK2(uip->peeked, gc);
67  gcMARK2(uip->prefix_pipe, gc);
68# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
69  return 0;
70# else
71  return
72  gcBYTES_TO_WORDS(sizeof(User_Input_Port));
73# endif
74#endif
75}
76
77static int mark_user_input_FIXUP(void *p, struct NewGC *gc) {
78#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
79  User_Input_Port *uip = (User_Input_Port *)p;
80
81  gcFIXUP2(uip->read_proc, gc);
82  gcFIXUP2(uip->peek_proc, gc);
83  gcFIXUP2(uip->progress_evt_proc, gc);
84  gcFIXUP2(uip->peeked_read_proc, gc);
85  gcFIXUP2(uip->location_proc, gc);
86  gcFIXUP2(uip->count_lines_proc, gc);
87  gcFIXUP2(uip->buffer_mode_proc, gc);
88  gcFIXUP2(uip->close_proc, gc);
89  gcFIXUP2(uip->reuse_str, gc);
90  gcFIXUP2(uip->peeked, gc);
91  gcFIXUP2(uip->prefix_pipe, gc);
92# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
93  return 0;
94# else
95  return
96  gcBYTES_TO_WORDS(sizeof(User_Input_Port));
97# endif
98#endif
99}
100
101#define mark_user_input_IS_ATOMIC 0
102#define mark_user_input_IS_CONST_SIZE 1
103
104
105static int mark_user_output_SIZE(void *p, struct NewGC *gc) {
106#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS
107  gcBYTES_TO_WORDS(sizeof(User_Output_Port));
108#else
109  return 0;
110#endif
111}
112
113static int mark_user_output_MARK(void *p, struct NewGC *gc) {
114#ifndef GC_NO_MARK_PROCEDURE_NEEDED
115  User_Output_Port *uop = (User_Output_Port *)p;
116
117  gcMARK2(uop->evt, gc);
118  gcMARK2(uop->write_evt_proc, gc);
119  gcMARK2(uop->write_proc, gc);
120  gcMARK2(uop->write_special_evt_proc, gc);
121  gcMARK2(uop->write_special_proc, gc);
122  gcMARK2(uop->location_proc, gc);
123  gcMARK2(uop->count_lines_proc, gc);
124  gcMARK2(uop->buffer_mode_proc, gc);
125  gcMARK2(uop->close_proc, gc);
126  gcMARK2(uop->buffer_pipe, gc);
127# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
128  return 0;
129# else
130  return
131  gcBYTES_TO_WORDS(sizeof(User_Output_Port));
132# endif
133#endif
134}
135
136static int mark_user_output_FIXUP(void *p, struct NewGC *gc) {
137#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED
138  User_Output_Port *uop = (User_Output_Port *)p;
139
140  gcFIXUP2(uop->evt, gc);
141  gcFIXUP2(uop->write_evt_proc, gc);
142  gcFIXUP2(uop->write_proc, gc);
143  gcFIXUP2(uop->write_special_evt_proc, gc);
144  gcFIXUP2(uop->write_special_proc, gc);
145  gcFIXUP2(uop->location_proc, gc);
146  gcFIXUP2(uop->count_lines_proc, gc);
147  gcFIXUP2(uop->buffer_mode_proc, gc);
148  gcFIXUP2(uop->close_proc, gc);
149  gcFIXUP2(uop->buffer_pipe, gc);
150# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS
151  return 0;
152# else
153  return
154  gcBYTES_TO_WORDS(sizeof(User_Output_Port));
155# endif
156#endif
157}
158
159#define mark_user_output_IS_ATOMIC 0
160#define mark_user_output_IS_CONST_SIZE 1
161
162
163