Changeset 5 for trunk/UKernel.pas

Timestamp:

Nov 23, 2014, 9:04:03 AM (9 years ago)

Author:

chronos

Message:

#1

• Fixed: Scheduler should stop all tasks if it is stopped.

Location:

trunk

Files:

• . (modified) (1 prop)
• UKernel.pas (modified) (6 diffs)

trunk

@@ -2 +2 @@
 ChronOS.lps
 lib
+heaptrclog.trc

@@ -2 +2 @@
 ChronOS.lps
 lib
+heaptrclog.trc

trunk/UKernel.pas

@@ -9 +9 @@
 
 type
-  TBasicEvent = procedure of object;
+  TTask = class;
+
+  TTaskEvent = procedure(Task: TTask) of object;
 
   TTaskState = (tsStopped, tsRunning, tsSuspended);
@@ -18 +20 @@
     Name: string;
     State: TTaskState;
-    EntryPoint: TBasicEvent;
+    Terminated: Boolean;
+    EntryPoint: TTaskEvent;
     constructor Create; virtual;
   end;
@@ -32 +35 @@
     procedure Start; virtual;
     procedure Stop; virtual;
-    function AddTask(Name: string; EntryPoint: TBasicEvent): TTask; virtual;
+    function AddTask(Name: string; EntryPoint: TTaskEvent): TTask; virtual;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -39 +42 @@
   TSchedulerClass = class of TScheduler;
 
+  { TDrive }
+
   TDrive = class(TNamedObject)
     FileSystem: TFileSystem;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -72 +79 @@
   UApp;
 
+{ TDrive }
+
+constructor TDrive.Create;
+begin
+
+end;
+
+destructor TDrive.Destroy;
+begin
+  FileSystem.Free;
+  inherited Destroy;
+end;
+
 { TDevice }
 
@@ -103 +123 @@
 end;
 
-function TScheduler.AddTask(Name: string; EntryPoint: TBasicEvent): TTask;
+function TScheduler.AddTask(Name: string; EntryPoint: TTaskEvent): TTask;
 var
   NewTask: TTask;

@@ -2 +2 @@
 ChronOS.lps
 lib
+heaptrclog.trc