uCBQN/src/opt/mm_buddy.h
2022-03-06 15:38:30 +02:00

40 lines
793 B
C

#include "gc.h"
typedef struct EmptyValue EmptyValue;
struct EmptyValue { // needs set: mmInfo; type=t_empty; next; everything else can be garbage
struct Value;
EmptyValue* next;
};
#ifdef OBJ_COUNTER
extern u64 currObjCounter;
#endif
extern u64 mm_heapAlloc;
extern u64 mm_heapMax;
extern u64 mm_ctrs[64];
extern EmptyValue* mm_buckets[64];
#define BSZ(X) (1ull<<(X))
#define BN(X) mm_##X
#include "mm_buddyTemplate.h"
#define LOG2(X) ((u8)(64-CLZ((X)-1ull)))
static void* mm_alloc(usz sz, u8 type) {
assert(sz>=16);
onAlloc(sz, type);
return mm_allocL(LOG2(sz), type);
}
static u64 mm_round(usz sz) {
return BSZ(LOG2(sz));
}
static u64 mm_size(Value* x) {
return BSZ(x->mmInfo&63);
}
void mm_forHeap(V2v f);
void mm_dumpHeap(FILE* f);
#undef LOG2
#undef BN
#undef BSZ