Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@362 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-06 12:11:35 +00:00
parent f6c75b5447
commit 7333ce5c8f
22 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/lmemorymanager.pas
View File

@ -14,6 +14,7 @@ interface
uses
util,
vmemorymanager,
pmemorymanager,
console;
const
@ -45,6 +46,7 @@ var
procedure init;
function kalloc(size : uint32) : void;
function kpalloc(address : uint32) : void;
procedure kfree(area : void);
implementation
@ -97,6 +99,17 @@ begin
console.writestringln('LMM: INIT END.');
end;
function kpalloc(address : uint32) : void;
var
block : uint16;
begin
block:= address SHR 22;
force_alloc_block(block, 0);
map_page(block, block);
kpalloc:= void(block SHL 22);
end;
function kalloc(size : uint32) : void;
var
Heap_Entries : uint32;