ref: 6dce09cec3bf6a689fa9a3f838df67d7d48d9d1a
dir: /include/pool.h/
/* Inferno tree allocator */ typedef struct Pool Pool; typedef struct Bhdr Bhdr; typedef struct Btail Btail; typedef struct Balign Balign; #pragma incomplete Pool enum { MAGIC_A = 0xa110c, /* Allocated block */ MAGIC_F = 0xbadc0c0a, /* Free block */ MAGIC_E = 0xdeadbabe, /* End of arena */ MAGIC_I = 0xabba /* Block is immutable (hidden from gc) */ /* MAGIC_ALIGNED = 0xa1f1d1c */ /* Block header for the aligned pointer */ }; struct Bhdr { u32 magic; uintptr size; intptr allocpc; intptr reallocpc; union { uchar data[1]; struct { Bhdr* bhl; Bhdr* bhr; Bhdr* bhp; Bhdr* bhv; Bhdr* bhf; } s; #define clink u.l.link #define csize u.l.size struct { Bhdr* link; intptr size; } l; } u; }; struct Btail { /* ulong pad; */ Bhdr* hdr; }; struct Balign { /* u32 magic; */ Bhdr* hdr; }; #define B2D(bp) ((void*)bp->u.data) #define D2B(b, dp) b = ((Bhdr*)(((uchar*)dp)-(((Bhdr*)0)->u.data))); \ if(b->magic != MAGIC_A && b->magic != MAGIC_I){\ b = ((Balign*)((char*)dp-sizeof(Balign)))->hdr; \ if(b->magic != MAGIC_A && b->magic != MAGIC_I)\ poolfault(dp, "alloc:D2B", getcallerpc(&dp));\ } #define B2NB(b) ((Bhdr*)((uchar*)b + b->size)) #define B2PT(b) ((Btail*)((uchar*)b - sizeof(Btail))) #define B2T(b) ((Btail*)(((uchar*)b)+b->size-sizeof(Btail))) #define B2LIMIT(b) ((Bhdr*)((uchar*)b + b->csize)) #define BHDRSIZE ((uintptr)(((Bhdr*)0)->u.data)+sizeof(Btail)) extern void (*poolfault)(void *, char *, uintptr); extern void poolinit(void); extern void* poolalloc(Pool*, uintptr); extern void poolfree(Pool*, void*); extern Bhdr* poolchain(Pool*); extern int poolcompact(Pool*); extern void poolimmutable(void*); extern uintptr poolmsize(Pool*, void*); extern void poolmutable(void*); extern char* poolname(Pool*); extern int poolread(char*, int, uintptr); extern void* poolrealloc(Pool*, void*, uintptr); extern int poolsetsize(char*, int); extern void poolsetcompact(Pool*, void (*)(void*, void*)); extern char* poolaudit(char*(*)(int, Bhdr *)); extern void (*poolmonitor)(int, ulong, Bhdr*, ulong); extern void showframe(void *f, void *t);