Function alloc_hdr

v2/engine/boehm_gc/headers.c:161–172

Return an uninitialized header */

/* Return an uninitialized header */
static hdr * alloc_hdr(void)
{
    register hdr * result;
    
    if (hdr_free_list == 0) {
        result = (hdr *) GC_scratch_alloc((word)(sizeof(hdr)));
    } else {
        result = hdr_free_list;
        hdr_free_list = (hdr *) (result -> hb_next);
    }
    return(result);
}

static void free_hdr(hdr * hhdr)
{