diff --git a/src/driver/net/l3/ipv4.pas b/src/driver/net/l3/ipv4.pas index f95d413d..db26172b 100644 --- a/src/driver/net/l3/ipv4.pas +++ b/src/driver/net/l3/ipv4.pas @@ -21,7 +21,6 @@ var Header : PIPV4Header; AHeader : TIPV4AbstractHeader; i : Integer; - buf : puint8; len : uint16; diff --git a/src/bios_data_area.pas b/src/include/bios_data_area.pas similarity index 89% rename from src/bios_data_area.pas rename to src/include/bios_data_area.pas index 1311adee..075f3089 100644 --- a/src/bios_data_area.pas +++ b/src/include/bios_data_area.pas @@ -52,12 +52,7 @@ type const BDA : PBDA = PBDA($C0000400); -var - EBDA : void; - MCFG : PMCFG; - procedure tick_update(data : void); -procedure init(); implementation @@ -69,10 +64,4 @@ begin BDA^.Ticks:= BDA^.Ticks + 1; end; -procedure init(); -begin - console.outputln('BDA','Loaded.'); - //TO-DO search for important structures like the MCFG or the EBDA. -end; - end. diff --git a/src/lists.pas b/src/include/lists.pas similarity index 99% rename from src/lists.pas rename to src/include/lists.pas index 437741d1..89c30282 100644 --- a/src/lists.pas +++ b/src/include/lists.pas @@ -9,6 +9,7 @@ uses type { Managed Linked List } + PLinkedList = ^TLinkedList; TLinkedList = record Previous : PLinkedList; @@ -24,6 +25,7 @@ type end; { Managed Linked List } + function LL_New(ElementSize : uint32) : PLinkedListBase; function LL_Add(LinkedList : PLinkedListBase) : Void; function LL_Delete(LinkedList : PLinkedListBase; idx : uint32) : boolean; @@ -222,7 +224,7 @@ begin console.writestringln(PChar(LL_Get(LList, i))); end; - LL_Free(LList); + LL_Free(LList); end; end. \ No newline at end of file diff --git a/src/multiboot.pas b/src/include/multiboot.pas similarity index 100% rename from src/multiboot.pas rename to src/include/multiboot.pas diff --git a/src/strings.pas b/src/include/strings.pas similarity index 100% rename from src/strings.pas rename to src/include/strings.pas diff --git a/src/util.pas b/src/include/util.pas similarity index 100% rename from src/util.pas rename to src/include/util.pas