klish/lub/heap/heap_merge_with_next.c

#include <assert.h>

#include "private.h"

/*--------------------------------------------------------- */
lub_heap_status_t
lub_heap_merge_with_next(lub_heap_t       *this,
                         lub_heap_block_t *block)
{
    lub_heap_status_t result = LUB_HEAP_FAILED;
    lub_heap_block_t *next_block;
        
    assert(0 == block->alloc.tag.free);

    do
    {
        /* see whether there is a free block just after us */
        next_block = lub_heap_block_getnext(block);
        if(   (NULL != next_block               ) 
           && (1    == next_block->free.tag.free))
        {
            if(BOOL_FALSE == lub_heap_block_check(next_block))
            {
                result = LUB_HEAP_CORRUPTED;
                break;
            }
            lub_heap_graft_to_bottom(this,
                                     next_block,
                                     block,
                                     block->alloc.tag.words,
                                     block->alloc.tag.segment,
                                     block->free.tag.free ? BOOL_TRUE : BOOL_FALSE);
            result = LUB_HEAP_OK;
        }
    } while(0);
    
    return result;
}
/*--------------------------------------------------------- */