source: examples/gc_no_raii/src/internal/object_header.c @ bf71cfd

#include "object_header.h"

#include <stdint.h>

#include "collector.h"
#include "globals.h"
#include "gcpointers.h"

void ctor(gc_object_header* const this, size_t inSize)
{
        #ifndef NDEBUG
                this->canary_start = CANARY_VALUE;
        #endif

        this->size = inSize;
        this->root_chain = NULL;
        this->type_chain = NULL;
        this->forward = NULL;
        this->is_forwarded = false;

        #ifndef NDEBUG
                this->canary_end = CANARY_VALUE;
        #endif
}

void copy_ctor(gc_object_header* const this, const gc_object_header* const other)
{
        #ifndef NDEBUG
                this->canary_start = CANARY_VALUE;
        #endif

        this->size = other->size;
        this->root_chain = other->root_chain;
        this->type_chain = NULL;
        this->forward = NULL;
        this->is_forwarded = false;

        #ifndef NDEBUG
                this->canary_end = CANARY_VALUE;
        #endif

        gcpointer_t* root = this->root_chain;
        while(root)
        {
                check(gc_get_object_ptr( (void*)root->ptr ) == other);
                root->ptr = ((intptr_t)this) + sizeof(gc_object_header);

                check(gc_get_object_ptr( (void*)root->ptr ) == this);
                root = root->next;
        }

        gcpointer_t* type = other->type_chain;

        while(type)
        {
                check((intptr_t)type < (intptr_t)((intptr_t)other + other->size));

                size_t offset = (intptr_t)type - (intptr_t)other;
                check(offset < this->size);

                gcpointer_t* member_ptr = (gcpointer_t*)( (intptr_t)this + offset );

                if(!this->type_chain) this->type_chain = member_ptr;

                size_t next_offset = type->next ? (intptr_t)type->next - (intptr_t)other : 0;
                check(next_offset < this->size);

                gcpointer_t* next_ptr = type->next ? (gcpointer_t*)((intptr_t)this + next_offset) : NULL;

                member_ptr->ptr = type->ptr;
                member_ptr->next = next_ptr;

                type = type->next;
        }

        check(is_valid(this));
}

#ifndef NDEBUG
        bool is_valid(const gc_object_header* const this)
        {
                check((intptr_t)this->canary_start == (intptr_t)CANARY_VALUE);
                check((intptr_t)this->canary_end == (intptr_t)CANARY_VALUE);

                check(this->is_forwarded == ( (intptr_t)this->forward != (intptr_t)NULL));

                check(this->size < POOL_SIZE_BYTES);

                gcpointer_t* root = this->root_chain;
                while(root)
                {
                        checkf(gc_get_object_ptr( (void*)root->ptr ) == this, (const char*)"Expected %lX got %lX\n", gc_get_object_ptr( (void*)root->ptr ), this);

                        root = root->next;
                }

                gcpointer_t* type = this->type_chain;
                while(type)
                {
                        check((intptr_t)type > (intptr_t)this);
                        check((intptr_t)type < (intptr_t)(((intptr_t)this) + this->size));

                        type = type->next;
                }

                return true;
        }
        #else
        #error blarg
#endif