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@466 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-10 14:50:47 +00:00
parent 50fcfb8e22
commit 83f1dc04b6
10 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/kernel.pas
View File

@ -163,8 +163,6 @@ begin
console.writestringln('');
console.writestringln('Press any key to boot in to Asuro Terminal...');
LL_TEST();
keyboard.hook(@temphook);
util.halt_and_dont_catch_fire;

9
src/lists.pas
View File

@ -4,7 +4,8 @@ interface
uses
console,
lmemorymanager;
lmemorymanager,
util;
type
{ Managed Linked List }
@ -56,6 +57,7 @@ begin
Element^.Previous:= nil;
Element^.Next:= nil;
Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
LinkedList^.Head:= Element;
LinkedList^.Count:= LinkedList^.Count + 1;
LL_Add:= Element^.Data;
@ -71,6 +73,7 @@ begin
Element^.Previous:= Base;
Element^.Next:= nil;
Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
LinkedList^.Count:= LinkedList^.Count + 1;
LL_Add:= Element^.Data;
end;
@ -135,6 +138,7 @@ begin
Next:= Base;
Element:= PLinkedList(kalloc(sizeof(TLinkedList)));
Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
Element^.Previous:= Prev;
Element^.Next:= Next;
if Prev = nil then begin
@ -192,7 +196,6 @@ begin
Str[2]:= 'L';
Str[3]:= 'L';
Str[4]:= 'O';
Str[5]:= Char(0);
Elem:= LL_Add(LList);
Str:= PChar(Elem);
Str[0]:= 'W';
@ -200,14 +203,12 @@ begin
Str[2]:= 'R';
Str[3]:= 'L';
Str[4]:= 'D';
Str[5]:= Char(0);
Elem:= LL_Add(LList);
Str:= PChar(Elem);
Str[0]:= 'T';
Str[1]:= 'E';
Str[2]:= 'S';
Str[3]:= 'T';
Str[4]:= Char(0);
for i:=0 to LL_Size(LList)-1 do begin
console.writestringln(PChar(LL_Get(LList, i)));