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