Ignore:
Timestamp:
Aug 29, 2016, 5:17:45 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Removed duplicit files moved previously to Kernel package.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        33lib
        44heaptrclog.trc
         5ChronOS.exe

  • trunk/Packages/Kernel

    • Property svn:ignore set to
      lib

  • trunk/Packages/Kernel/UAPI.pas

    r8 r9  
    66
    77uses
    8   Classes, SysUtils, UList, UKernel, DateUtils, UMemory, UScreen, UDevice;
     8  Classes, SysUtils, UList, DateUtils, UMemory, UScreen, UDevice, UIPC,
     9  UScheduler;
    910
    1011type
    … …  
    1314
    1415  TAPI = class
    15     Kernel: TKernel;
     16    Kernel: TObject; //TKernel;
    1617    procedure WriteText(Text: string);
    1718    procedure DrawText(P: TPoint; Text: string; Color: TColor);
    … …  
    2728implementation
    2829
     30uses
     31  UKernel;
     32
    2933{ TAPI }
    3034
    … …  
    3337  Device: TDeviceSerial;
    3438begin
    35   Device := TDeviceSerial(Kernel.Devices.FindByName('Serial0'));
     39  Device := TDeviceSerial(TKernel(Kernel).Devices.FindByName('Serial0'));
    3640  if Assigned(Device) then begin
    3741    Device.WriteText(Text);
    … …  
    4347  Screen: TScreen;
    4448begin
    45   Screen := TScreen(Kernel.Screens.First);
     49  Screen := TScreen(TKernel(Kernel).Screens.First);
    4650  Screen.DrawText(P, Text, Color);
    4751end;
    … …  
    5155  Screen: TScreen;
    5256begin
    53   Screen := TScreen(Kernel.Screens.First);
     57  Screen := TScreen(TKernel(Kernel).Screens.First);
    5458  Screen.DrawLine(P1, P2, Color);
    5559end;
    … …  
    5963  Screen: TScreen;
    6064begin
    61   Screen := TScreen(Kernel.Screens.First);
     65  Screen := TScreen(TKernel(Kernel).Screens.First);
    6266  Screen.DrawRect(Rect, Color);
    6367end;
    … …  
    6771  Task: TTask;
    6872begin
    69   Task := Kernel.Scheduler.GetCurrentTask;
     73  Task := TKernel(Kernel).Scheduler.GetCurrentTask;
    7074  Task.Sleep(Time);
    7175end;
    … …  
    7579  Task: TTask;
    7680begin
    77   Task := Kernel.Scheduler.GetCurrentTask;
    78   while Task.Messages.Count = 0 do Task.WaitForMessage;
     81  Task := TKernel(Kernel).Scheduler.GetCurrentTask;
     82  while Task.Messages.List.Count = 0 do Task.WaitForMessage;
    7983end;
    8084
Note: See TracChangeset for help on using the changeset viewer.