/*====================================================================
BSD 2-Clause License
Copyright (c) 2020, Ruler
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice, this
list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
====================================================================*/
#pragma once
#ifndef __CORE_ALLOCATOR_H__
#define __CORE_ALLOCATOR_H__
#include <memory>
#include <exception>
#include <cstring>
namespace core
{
template <class T, int inst> class allocator;
// Specialize for void
template <int inst>
class allocator<void, inst>
{
public:
using value_type = void;
using pointer = void*;
using const_pointer = const void*;
using size_type = size_t;
using difference_type = ptrdiff_t;
template <class U>
struct rebind
{
using other = allocator<U, inst>;
};
};
// Class template allocator_base
template <int inst>
class allocator_base
{
public:
size_t capacity(void)
{
return heap_size;
}
size_t size(void)
{
return used_size;
}
protected:
void* arw_allocate(size_t size)
{
if (size > max_bytes)
{
void* result = malloc(size);
if (result == nullptr)
throw std::bad_alloc();
return result;
}
else
{
char* result = nullptr;
size_t count = chunk_count;
free_chunk_node** current_list = reinterpret_cast<free_chunk_node**>(get_free_list(size));
if (*current_list != nullptr)
{
result = (*current_list)->buffer;
*current_list = (*current_list)->next;
}
else
{
size_t align_bytes = round_up(size);
size_t total_bytes = align_bytes * count;
size_t free_bytes = free_end - free_start;
if (free_bytes >= total_bytes)
{
result = free_start;
free_start += total_bytes;
}
else if (free_bytes >= align_bytes)
{
count = free_bytes / align_bytes;
total_bytes = align_bytes * count;
result = free_start;
free_start += total_bytes;
}
else
{
if (free_bytes > 0)
{
free_chunk_node** free_list_left = reinterpret_cast<free_chunk_node**>(get_free_list(free_bytes));
reinterpret_cast<free_chunk_node*>(free_start)->next = *free_list_left;
*free_list_left = reinterpret_cast<free_chunk_node*>(free_start);
free_start = free_end;
}
result = chunk_alloc(align_bytes, count);
}
if (result != nullptr && count > 1)
{
char *cur, *next = result + align_bytes;
*current_list = reinterpret_cast<free_chunk_node*>(next);
for (size_t i = 2; i < count; ++i)
{
cur = next;
next += align_bytes;
reinterpret_cast<free_chunk_node*>(cur)->next = reinterpret_cast<free_chunk_node*>(next);
}
reinterpret_cast<free_chunk_node*>(next)->next = nullptr;
}
}
if (result != nullptr)
used_size += size;
else
throw std::bad_alloc();
return reinterpret_cast<void*>(result);
}
}
void* arw_reallocate(void* p, size_t old_size, size_t new_size)
{
void* result = nullptr;
size_t copy_size;
if (old_size > max_bytes && new_size > max_bytes)
{
result = realloc(p, new_size);
}
if (round_up(old_size) == round_up(new_size))
{
result = p;
used_size -= old_size;
used_size += new_size;
}
else
{
result = arw_allocate(new_size);
if (result == nullptr)
{
copy_size = new_size > old_size ? old_size : new_size;
std::memcpy(result, p, copy_size);
arw_deallocate(p, old_size);
}
}
if (result == nullptr)
throw std::bad_alloc();
return result;
}
void arw_deallocate(void* p, size_t size)
{
if (size > max_bytes)
{
free(p);
}
else
{
free_chunk_node** current_list = reinterpret_cast<free_chunk_node**>(get_free_list(size));
reinterpret_cast<free_chunk_node*>(p)->next = *current_list;
*current_list = reinterpret_cast<free_chunk_node*>(p);
used_size -= size;
}
}
void release(void)
{
if (used_size != 0)
return;
while (memory_list != nullptr)
{
void* next = *reinterpret_cast<void**>(memory_list);
// std::cout << "free: ";
// std::cout << std::hex << std::setiosflags(std::ios::showbase);
// std::cout << reinterpret_cast<size_t>(memory_list) << std::endl;
free(memory_list);
memory_list = next;
}
heap_size = 0;
used_size = 0;
}
private:
inline size_t round_up(size_t bytes)
{
return ((bytes + align - 1) & ~(align - 1));
}
inline void** get_free_list(size_t bytes)
{
return reinterpret_cast<void**>(free_list + (bytes + align - 1) / align - 1);
}
char* chunk_alloc(size_t align_bytes, size_t& count)
{
char* result = nullptr;
size_t memory_size;
size_t total_bytes = align_bytes * count;
if (heap_size < heap_threshold)
memory_size = total_bytes << 1;
else
memory_size = (heap_size >> 7) << 3;
while (memory_size >= total_bytes)
{
void* p = malloc(memory_size + sizeof(void*));
// std::cout << "malloc: ";
// std::cout << std::hex << std::setiosflags(std::ios::showbase);
// std::cout << reinterpret_cast<size_t>(p) << std::endl;
if (p != nullptr)
{
result = reinterpret_cast<char*>(reinterpret_cast<size_t>(p) + sizeof(void*));
free_start = result + total_bytes;
free_end = result + memory_size;
heap_size += memory_size;
*reinterpret_cast<void**>(p) = memory_list;
memory_list = reinterpret_cast<void**>(p);
break;
}
memory_size >>= 1;
}
if (result == nullptr)
{
for (size_t size = align_bytes; size <= max_bytes; size += align)
{
free_chunk_node** current_list = reinterpret_cast<free_chunk_node**>(get_free_list(size));
if (*current_list != nullptr)
{
count = 1;
result = (*current_list)->buffer;
free_start = result + align_bytes;
free_end = result + size;
break;
}
}
}
return result;
}
private:
union free_chunk_node
{
free_chunk_node* next;
char buffer[1];
};
private:
static constexpr size_t align = 8;
static constexpr size_t max_bytes = align << 4;
static constexpr size_t free_list_size = 16;
static constexpr size_t chunk_count = 16;
static constexpr size_t heap_threshold = (max_bytes * chunk_count) << 5;
static size_t heap_size;
static size_t used_size;
static char* free_start;
static char* free_end;
static void* memory_list;
static free_chunk_node* free_list[free_list_size];
};
// Initialize static variables
template <int inst>
size_t allocator_base<inst>::heap_size = 0;
template <int inst>
size_t allocator_base<inst>::used_size = 0;
template <int inst>
char* allocator_base<inst>::free_start = nullptr;
template <int inst>
char* allocator_base<inst>::free_end = nullptr;
template <int inst>
void* allocator_base<inst>::memory_list = nullptr;
template <int inst>
typename allocator_base<inst>::free_chunk_node* allocator_base<inst>::free_list[free_list_size] =
{
nullptr, nullptr, nullptr, nullptr, nullptr, nullptr, nullptr, nullptr,
nullptr, nullptr, nullptr, nullptr, nullptr, nullptr, nullptr, nullptr
};
// Class template allocator
template <class T, int inst = 0>
class allocator : public allocator_base<inst>
{
public:
using value_type = T;
using pointer = value_type*;
using const_pointer = const value_type*;
using size_type = size_t;
using difference_type = ptrdiff_t;
template<class U>
struct rebind
{
using other = allocator<U, inst>;
};
using propagate_on_container_copy_assignment = std::false_type;
using propagate_on_container_move_assignment = std::false_type;
using propagate_on_container_swap = std::false_type;
using is_always_equal = std::true_type;
public:
// Construct default allocator
allocator(void) noexcept
{
}
// Construct by copying
allocator(const allocator<T, inst>&) noexcept
{
}
// Construct from a related allocator
template<class U>
allocator(const allocator<U, inst>&) noexcept
{
}
// Destructor
~allocator(void)
{
this->release();
}
// Assign from a related allocator
template<class U>
allocator<T, inst>& operator=(const allocator<U, inst>&)
{
return (*this);
}
// Return address of mutable x
pointer address(value_type& x) const noexcept
{
return (std::addressof(x));
}
// Return address of nonmutable x
const_pointer address(const value_type& x) const noexcept
{
return (std::addressof(x));
}
// Allocate array of n elements
pointer allocate(size_type n, typename allocator<void, inst>::const_pointer hint = nullptr)
{
return (static_cast<pointer>(this->arw_allocate(n * sizeof(value_type))));
}
// Deallocate object at p
void deallocate(pointer p, size_type n)
{
this->arw_deallocate(p, n * sizeof(value_type));
}
// Estimate maximum array size
size_type max_size(void) const noexcept
{
return (static_cast<size_t>(-1) / sizeof(value_type));
}
// Construct U(Args...) at p
template<class U, class... Args>
void construct(U* p, Args&&... args)
{
::new ((void*)p) U(std::forward<Args>(args)...);
}
// Destroy object at p
template <class U>
void destroy(U* p)
{
p->~U();
}
};
template <class T1, class T2, int inst>
inline bool operator==(const allocator<T1, inst>&, const allocator<T2, inst>&)
{
return true;
}
template <class T1, class T2, int inst>
inline bool operator!=(const allocator<T1, inst>&, const allocator<T2, inst>&)
{
return false;
}
} // namespace core
#endif