pool.hpp

// Copyright (c) Sleipnir contributors
 
#pragma once
 
#include <cstddef>
#include <memory>
 
#include "sleipnir/util/small_vector.hpp"
#include "sleipnir/util/symbol_exports.hpp"
 
namespace slp {
 
class SLEIPNIR_DLLEXPORT PoolResource {
 public:
  explicit PoolResource(size_t blocks_per_chunk)
      : blocks_per_chunk{blocks_per_chunk} {}
 
  PoolResource(const PoolResource&) = delete;
 
  PoolResource& operator=(const PoolResource&) = delete;
 
  PoolResource(PoolResource&&) = default;
 
  PoolResource& operator=(PoolResource&&) = default;
 
  [[nodiscard]]
  void* allocate(size_t bytes, [[maybe_unused]] size_t alignment =
                                   alignof(std::max_align_t)) {
    if (m_free_list.empty()) {
      add_chunk(bytes);
    }
 
    auto ptr = m_free_list.back();
    m_free_list.pop_back();
    return ptr;
  }
 
  void deallocate(
      void* p, [[maybe_unused]] size_t bytes,
      [[maybe_unused]] size_t alignment = alignof(std::max_align_t)) {
    m_free_list.emplace_back(p);
  }
 
  bool is_equal(const PoolResource& other) const noexcept {
    return this == &other;
  }
 
  size_t blocks_in_use() const noexcept {
    return m_buffer.size() * blocks_per_chunk - m_free_list.size();
  }
 
 private:
  small_vector<std::unique_ptr<std::byte[]>> m_buffer;
  small_vector<void*> m_free_list;
  size_t blocks_per_chunk;
 
  void add_chunk(size_t bytes_per_block) {
    m_buffer.emplace_back(new std::byte[bytes_per_block * blocks_per_chunk]);
    for (int i = blocks_per_chunk - 1; i >= 0; --i) {
      m_free_list.emplace_back(m_buffer.back().get() + bytes_per_block * i);
    }
  }
};
 
template <typename T>
class PoolAllocator {
 public:
  using value_type = T;
 
  explicit constexpr PoolAllocator(PoolResource* r) : m_memory_resource{r} {}
 
  constexpr PoolAllocator(const PoolAllocator<T>&) = default;
 
  constexpr PoolAllocator<T>& operator=(const PoolAllocator<T>&) = default;
 
  [[nodiscard]]
  constexpr T* allocate(size_t n) {
    return static_cast<T*>(m_memory_resource->allocate(n));
  }
 
  constexpr void deallocate(T* p, size_t n) {
    m_memory_resource->deallocate(p, n);
  }
 
 private:
  PoolResource* m_memory_resource;
};
 
SLEIPNIR_DLLEXPORT PoolResource& global_pool_resource();
 
template <typename T>
PoolAllocator<T> global_pool_allocator() {
  return PoolAllocator<T>{&global_pool_resource()};
}
 
}  // namespace slp