From a0f82d57976648c5bfcf165b2e304d2a4c8fb0c7 Mon Sep 17 00:00:00 2001
From: Amlal El Mahrouss <amlal@el-mahrouss-logic.com>
Date: Tue, 19 Mar 2024 22:50:16 +0100
Subject: Kernel:Secret: Fix String class.

Improve kernel APIs.
---
 Public/Kits/System.Core/Heap.cxx | 42 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 Public/Kits/System.Core/Heap.cxx

(limited to 'Public/Kits/System.Core/Heap.cxx')

diff --git a/Public/Kits/System.Core/Heap.cxx b/Public/Kits/System.Core/Heap.cxx
new file mode 100644
index 00000000..4dfd34e4
--- /dev/null
+++ b/Public/Kits/System.Core/Heap.cxx
@@ -0,0 +1,42 @@
+/* -------------------------------------------
+
+    Copyright Mahrouss Logic
+
+------------------------------------------- */
+
+#include <System.Core/Heap.hxx>
+#include <System.Core/System.Core.hxx>
+
+using namespace System;
+
+/// @brief Shared instance of the heap.
+/// @return
+Heap* Heap::Shared() noexcept {
+  static Heap* heap = nullptr;
+
+  if (!heap) {
+    heap = new Heap();
+  }
+
+  return heap;
+}
+
+Heap::Heap() {  }
+Heap::~Heap() { delete this; }
+
+void Heap::Delete(HeapPtr me) noexcept {
+  CA_MUST_PASS(me);
+  HcFreeProcessHeap(kInstanceObject, me);
+}
+
+SizeT Heap::Size(HeapPtr me) noexcept {
+  CA_MUST_PASS(me);
+  return HcProcessHeapSize(kInstanceObject, me);
+}
+
+HeapPtr Heap::New(const SizeT& sz, const Int32 flags) {
+  SizeT _sz = sz;
+  if (!_sz) ++_sz;
+
+  return HcAllocateProcessHeap(kInstanceObject, _sz, flags);
+}
\ No newline at end of file
-- 
cgit v1.2.3