76 lines
1.7 KiB
ObjectPascal
76 lines
1.7 KiB
ObjectPascal
{ Compatibility shim: wasuro references the old unit name 'lmemorymanager'.
|
|
Since wasuro/ cannot be modified, this unit re-exports the public API of
|
|
memory.heap so that 'uses lmemorymanager' continues to compile. }
|
|
unit lmemorymanager;
|
|
|
|
interface
|
|
|
|
uses
|
|
memory.heap;
|
|
|
|
const
|
|
ALLOC_UNIT = memory.heap.ALLOC_UNIT;
|
|
DATA_OFFSET = memory.heap.DATA_OFFSET;
|
|
PAGE_SIZE_LMM = memory.heap.PAGE_SIZE_LMM;
|
|
TOTAL_UNITS = memory.heap.TOTAL_UNITS;
|
|
BITMAP_DWORDS = memory.heap.BITMAP_DWORDS;
|
|
SIZE_PREFIX = memory.heap.SIZE_PREFIX;
|
|
LARGE_ALLOC_MAGIC = memory.heap.LARGE_ALLOC_MAGIC;
|
|
|
|
type
|
|
PHeapPageHeader = memory.heap.PHeapPageHeader;
|
|
THeapPageHeader = memory.heap.THeapPageHeader;
|
|
|
|
procedure init;
|
|
function kalloc(size : SizeUInt) : void;
|
|
function klalloc(size : SizeUInt) : void;
|
|
procedure klfree(address : PtrUInt);
|
|
function kpalloc(address : PtrUInt) : void;
|
|
procedure kfree(area : void);
|
|
function lmm_total_free : SizeUInt;
|
|
function lmm_page_count : uint32;
|
|
|
|
implementation
|
|
|
|
procedure init;
|
|
begin
|
|
memory.heap.init;
|
|
end;
|
|
|
|
function kalloc(size : SizeUInt) : void; inline;
|
|
begin
|
|
kalloc := memory.heap.kalloc(size);
|
|
end;
|
|
|
|
function klalloc(size : SizeUInt) : void; inline;
|
|
begin
|
|
klalloc := memory.heap.klalloc(size);
|
|
end;
|
|
|
|
procedure klfree(address : PtrUInt); inline;
|
|
begin
|
|
memory.heap.klfree(address);
|
|
end;
|
|
|
|
function kpalloc(address : PtrUInt) : void; inline;
|
|
begin
|
|
kpalloc := memory.heap.kpalloc(address);
|
|
end;
|
|
|
|
procedure kfree(area : void); inline;
|
|
begin
|
|
memory.heap.kfree(area);
|
|
end;
|
|
|
|
function lmm_total_free : SizeUInt; inline;
|
|
begin
|
|
lmm_total_free := memory.heap.lmm_total_free;
|
|
end;
|
|
|
|
function lmm_page_count : uint32; inline;
|
|
begin
|
|
lmm_page_count := memory.heap.lmm_page_count;
|
|
end;
|
|
|
|
end.
|