Changeset 5 for trunk/Platform/Base/UPlatformBase.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)
• Platform/Base/UPlatformBase.pas (modified) (3 diffs)

trunk

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

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

trunk/Platform/Base/UPlatformBase.pas

@@ -32 +32 @@
 
   TBaseScheduler = class(TScheduler)
-    function AddTask(Name: string; EntryPoint: TBasicEvent): TTask; override;
+    function AddTask(Name: string; EntryPoint: TTaskEvent): TTask; override;
     constructor Create; override;
     destructor Destroy; override;
@@ -101 +101 @@
 procedure TCustomThread.Execute;
 begin
-  Task.EntryPoint;
+  Task.EntryPoint(Task);
 end;
 
 { TBaseScheduler }
 
-function TBaseScheduler.AddTask(Name: string; EntryPoint: TBasicEvent): TTask;
+function TBaseScheduler.AddTask(Name: string; EntryPoint: TTaskEvent): TTask;
 var
   Task: TBaseTask;
@@ -135 +135 @@
 
 procedure TBaseScheduler.Stop;
+var
+  I: Integer;
 begin
-  inherited Start;
+  inherited Stop;
+  for I := 0 to Tasks.Count - 1 do
+    TBaseTask(Tasks[I]).Terminated := True;
 end;
 

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