Changeset 61 for trunk/Packages/Kernel/Kernel.Core.pas

Timestamp:

Apr 7, 2024, 11:50:48 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Kernel API class definition improvement.

File:

• trunk/Packages/Kernel/Kernel.Core.pas (modified) (4 diffs)

trunk/Packages/Kernel/Kernel.Core.pas

@@ -6 +6 @@
   Classes, SysUtils, Kernel.List, Kernel.FileSystem, Kernel.Memory,
   Kernel.Screen, Kernel.Device, Kernel.App, Kernel.Scheduler, Kernel.Api,
-  Kernel.Graphics, Generics.Collections;
+  Kernel.Graphics, Generics.Collections, Kernel.IPC;
 
 type
@@ -25 +25 @@
   TKernel = class
   private
-    Api: TKernelApi;
+    Api: TSystemApi;
     procedure InitVideo;
     function KernelApiExecute(Command: TApiCommand; Data: Pointer): Pointer;
@@ -47 +47 @@
 
 implementation
+
+uses
+  Kernel.KernelAPI;
 
 { TDrive }
@@ -162 +165 @@
   Screens := TObjectList<TScreen>.Create;
   Api := TKernelApi.Create;
-  Api.Kernel := Self;
+  TKernelApi(Api).Kernel := Self;
   Desktop := TDesktop.Create;
 end;