flang/runtime/memory.h

//===-- runtime/memory.h ----------------------------------------*- C++ -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//

// Thin wrapper around malloc()/free() to isolate the dependency,
// ease porting, and provide an owning pointer.

#ifndef FORTRAN_RUNTIME_MEMORY_H_
#define FORTRAN_RUNTIME_MEMORY_H_

#include <memory>

namespace Fortran::runtime {

class Terminator;

[[nodiscard]] void *AllocateMemoryOrCrash(Terminator &, std::size_t bytes);
template<typename A>[[nodiscard]] A &AllocateOrCrash(Terminator &t) {
  return *reinterpret_cast<A *>(AllocateMemoryOrCrash(t, sizeof(A)));
}
void FreeMemory(void *);
template<typename A> void FreeMemory(A *p) {
  FreeMemory(reinterpret_cast<void *>(p));
}
template<typename A> void FreeMemoryAndNullify(A *&p) {
  FreeMemory(p);
  p = nullptr;
}

template<typename A> struct New {
  template<typename... X>
  [[nodiscard]] A &operator()(Terminator &terminator, X &&... x) {
    return *new (AllocateMemoryOrCrash(terminator, sizeof(A)))
        A{std::forward<X>(x)...};
  }
};

template<typename A> struct OwningPtrDeleter {
  void operator()(A *p) { FreeMemory(p); }
};

template<typename A> using OwningPtr = std::unique_ptr<A, OwningPtrDeleter<A>>;

template<typename A> struct Allocator {
  using value_type = A;
  explicit Allocator(Terminator &t) : terminator{t} {}
  template<typename B>
  explicit constexpr Allocator(const Allocator<B> &that) noexcept
    : terminator{that.terminator} {}
  Allocator(const Allocator &) = default;
  Allocator(Allocator &&) = default;
  [[nodiscard]] constexpr A *allocate(std::size_t n) {
    return reinterpret_cast<A *>(
        AllocateMemoryOrCrash(terminator, n * sizeof(A)));
  }
  constexpr void deallocate(A *p, std::size_t) { FreeMemory(p); }
  Terminator &terminator;
};
}

#endif  // FORTRAN_RUNTIME_MEMORY_H_