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