mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
22 lines
417 B
C
22 lines
417 B
C
#ifndef FINALIZERS_TYPES_H
|
|
#define FINALIZERS_TYPES_H
|
|
|
|
#define FOR_EACH_HEAP_OBJECT_KIND(M) \
|
|
M(pair, Pair, PAIR) \
|
|
M(finalizer, Finalizer, FINALIZER) \
|
|
M(small_object, SmallObject, SMALL_OBJECT)
|
|
|
|
#include "heap-objects.h"
|
|
#include "simple-tagging-scheme.h"
|
|
|
|
struct SmallObject {
|
|
struct gc_header header;
|
|
};
|
|
|
|
struct Pair {
|
|
struct gc_header header;
|
|
void *car;
|
|
void *cdr;
|
|
};
|
|
|
|
#endif // FINALIZERS_TYPES_H
|