1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
/* -------------------------------------------
Copyright Mahrouss Logic
------------------------------------------- */
#include <System.Core/Headers/Heap.hxx>
/// @brief Allocate from the user's heap.
/// @param refObj Process object.
/// @param sz size of object.
/// @param flags flags.
/// @return
CA_EXTERN_C PtrVoidType HcAllocateProcessHeap(ObjectPtr refObj, QWordType sz,
DWordType flags) {
CA_MUST_PASS(sz);
CA_MUST_PASS(flags);
return (PtrVoidType)refObj->Invoke(refObj, kProcessCallAllocPtr, sz, flags);
}
/// @brief Free pointer from the user's heap.
/// @param refObj Process object.
/// @param ptr the pointer to free.
CA_EXTERN_C VoidType HcFreeProcessHeap(ObjectPtr refObj, PtrVoidType ptr) {
CA_MUST_PASS(ptr);
CA_UNREFERENCED_PARAMETER(refObj->Invoke(refObj, kProcessCallFreePtr, ptr));
}
/// @brief Get pointer size.
/// @param refObj Process object.
/// @param ptr the pointer to find.
/// @return the size.
CA_EXTERN_C QWordType HcProcessHeapSize(ObjectPtr refObj, PtrVoidType ptr) {
CA_MUST_PASS(ptr);
return refObj->Invoke(refObj, kProcessCallSizePtr, ptr);
}
/// @brief Check if the pointer exists.
/// @param refObj Process object.
/// @param ptr the pointer to check.
/// @return if it exists
CA_EXTERN_C BooleanType HcProcessHeapExists(ObjectPtr refObj, PtrVoidType ptr) {
CA_MUST_PASS(ptr);
return refObj->Invoke(refObj, kProcessCallCheckPtr, ptr);
}
using namespace System;
/// @brief Shared instance of the heap.
/// @return
HeapInterface* HeapInterface::Shared() noexcept {
static HeapInterface* heap = nullptr;
if (!heap) {
heap = new HeapInterface();
}
return heap;
}
HeapInterface::HeapInterface() {
CA_MUST_PASS(HcProcessHeapExists(kApplicationObject, (PtrVoidType)this));
}
HeapInterface::~HeapInterface() { delete this; }
void HeapInterface::Delete(PtrHeapType me) noexcept {
CA_MUST_PASS(me);
HcFreeProcessHeap(kApplicationObject, me);
}
SizeType HeapInterface::Size(PtrHeapType me) noexcept {
CA_MUST_PASS(me);
return HcProcessHeapSize(kApplicationObject, me);
}
PtrHeapType HeapInterface::New(const SizeType& sz, const DWordType flags) {
SizeType _sz = sz;
if (!_sz) ++_sz;
return HcAllocateProcessHeap(kApplicationObject, _sz, flags);
}
|
