1/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ 2 3static int mark_saved_stack_SIZE(void *p, struct NewGC *gc) { 4#ifndef GC_NO_SIZE_NEEDED_FROM_PROCS 5 gcBYTES_TO_WORDS(sizeof(Scheme_Saved_Stack)); 6#else 7 return 0; 8#endif 9} 10 11static int mark_saved_stack_MARK(void *p, struct NewGC *gc) { 12#ifndef GC_NO_MARK_PROCEDURE_NEEDED 13 Scheme_Saved_Stack *saved = (Scheme_Saved_Stack *)p; 14 15 gcMARK2(saved->prev, gc); 16 gcMARK2(saved->runstack_start, gc); 17 18# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 19 return 0; 20# else 21 return 22 gcBYTES_TO_WORDS(sizeof(Scheme_Saved_Stack)); 23# endif 24#endif 25} 26 27static int mark_saved_stack_FIXUP(void *p, struct NewGC *gc) { 28#ifndef GC_NO_FIXUP_PROCEDURE_NEEDED 29 Scheme_Saved_Stack *saved = (Scheme_Saved_Stack *)p; 30 31 gcFIXUP2(saved->prev, gc); 32 gcFIXUP2(saved->runstack_start, gc); 33 34# ifdef GC_NO_SIZE_NEEDED_FROM_PROCS 35 return 0; 36# else 37 return 38 gcBYTES_TO_WORDS(sizeof(Scheme_Saved_Stack)); 39# endif 40#endif 41} 42 43#define mark_saved_stack_IS_ATOMIC 0 44#define mark_saved_stack_IS_CONST_SIZE 1 45 46 47