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