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