Changeset 144 for MicroThreading/UMicroThreading.pas

Timestamp:

Jan 25, 2011, 2:16:25 PM (13 years ago)

Author:

george

Message:

• Modified: Not finished implementation of multithreaded scheduler.

File:

• MicroThreading/UMicroThreading.pas (modified) (14 diffs)

MicroThreading/UMicroThreading.pas

@@ -17 +17 @@
   TMicroThread = class;
   TMicroThreadScheduler = class;
+  TMicroThreadManager = class;
 
   TMicroThreadState = (tsWaiting, tsRunning, tsBlocked, tsSuspended,
     tsSleeping);
-
 
   { TMicroThread }
@@ -27 +27 @@
   private
     FFreeOnTerminate: Boolean;
-    FStack: Pointer;
-    FStackSize: Integer;
     FExecutionStartTime: TDateTime;
     FExecutionEndTime: TDateTime;
     FExecutionTime: TDateTime;
+    FStack: Pointer;
     FStackPointer: Pointer;
+    FStackSize: Integer;
     FBasePointer: Pointer;
     FWakeupTime: TDateTime;
@@ -43 +43 @@
     Priority: Integer;
     State: TMicroThreadState;
+    Manager: TMicroThreadManager;
     Scheduler: TMicroThreadScheduler;
     procedure Execute; virtual;
@@ -79 +80 @@
   TMicroThreadSchedulerPoolThread = class(TThread)
     Scheduler: TMicroThreadScheduler;
+    Manager: TMicroThreadManager;
     procedure Execute; override;
   end;
@@ -84 +86 @@
   TThreadPool = class(TObjectList)
 
+  end;
+
+  { TMicroThreadManager }
+
+  TMicroThreadManager = class
+  private
+    FStack: Pointer;
+    FStackSize: Pointer;
+    FStackPointer: Pointer;
+    FBasePointer: Pointer;
+    FSelected: TMicroThread;
+    FExecuteCount: Integer;
+    FExecutedCount: Integer;
+    FTerminated: Boolean;
+    FTempPointer: Pointer;
+    function Execute(Count: Integer): Integer;
+  public
+    Scheduler: TMicroThreadScheduler;
+    CurrentMicroThread: TMicroThread;
+    procedure Yield(MicroThread: TMicroThread);
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -93 +117 @@
     RoundRobinIndex: Integer;
     LastId: Integer;
-    FMainStackPointer: Pointer;
-    FMainBasePointer: Pointer;
-    FSelected: TMicroThread;
-    FTempPointer: Pointer;
     FFrequency: Int64;
-    FExecuteCount: Integer;
-    FExecutedCount: Integer;
+    FThreadPoolSize: Integer;
     FTerminated: Boolean;
-    FThreadPoolSize: Integer;
     function GetMicroThreadCount: Integer;
     function GetThreadPoolSize: Integer;
     procedure SetThreadPoolSize(const AValue: Integer);
-    procedure Yield(MicroThread: TMicroThread);
+    function GetNextMicroThread: TMicroThread;
   public
+    MainThreadManager: TMicroThreadManager;
     MicroThreads: TObjectList; // TList<TMicroThread>
     Lock: TCriticalSection;
-    CurrentMicroThread: TMicroThread;
     function GetNow: TDateTime;
     function Add(MicroThread: TMicroThread): Integer;
@@ -115 +133 @@
     constructor Create;
     destructor Destroy; override;
-    function Execute(Count: Integer): Integer;
     procedure Start;
     procedure Stop;
@@ -132 +149 @@
 implementation
 
-{ TMicroThreadSchedulerPoolThread }
-
-procedure TMicroThreadSchedulerPoolThread.Execute;
-var
-  ExecutedCount: Integer;
-begin
-  inherited Execute;
-  try
-    repeat
-      ExecutedCount := Scheduler.Execute(10);
-      if ExecutedCount = 0 then Sleep(1);
-    until Terminated;
-  except
-    on E: Exception do
-      //ExceptionHandler(E);
-  end;
-end;
-
-{ TMicroThreadMethod }
-
-procedure TMicroThreadMethod.Execute;
-begin
-  inherited Execute;
-  Method(Self);
-end;
-
-
-{ TMicroThread }
-
-procedure TMicroThread.Execute;
-begin
-
-end;
-
-procedure TMicroThread.Yield;
-begin
-  Scheduler.Yield(Self);
-end;
-
-procedure TMicroThread.WaitFor;
-begin
-  while not FFinished do begin
-    Sleep(1);
-  end;
-end;
-
-procedure TMicroThread.Sleep(Duration: TDateTime);
-begin
-  FWakeUpTime := Scheduler.GetNow + Duration;
-  State := tsSleeping;
-  Yield;
-end;
-
-function TMicroThread.WaitForSignal(Signal: TEvent): TWaitResult;
-begin
-  repeat
-    Result := Signal.WaitFor(1);
-    Sleep(1);
-  until Result <> wrTimeout;
-end;
-
-constructor TMicroThread.Create(CreateSuspended: Boolean;
-  const StackSize: SizeUInt = DefaultStackSize);
-begin
-  FStackSize := StackSize;
-  FStack := GetMem(FStackSize);
-  FBasePointer := FStack + FStackSize;
-  FStackPointer := FBasePointer - 20;
-  FExecutionTime := 0;
-  FTerminated := False;
-  if CreateSuspended then
-    State := tsSuspended;
-  FFreeOnTerminate := True;
-end;
-
-procedure TMicroThread.Terminate;
-begin
-  FTerminated := True;
-end;
-
-destructor TMicroThread.Destroy;
-begin
-  Terminate;
-  WaitFor;
-  // Microthread is finished, remove it from queue
-  try
-    Scheduler.Lock.Acquire;
-    Scheduler.MicroThreads.Delete(Scheduler.MicroThreads.IndexOf(Self));
-  finally
-    Scheduler.Lock.Release;
-  end;
-  FreeMem(FStack);
-  inherited Destroy;
-end;
-
-procedure TMicroThread.Start;
-begin
-  State := tsWaiting;
-end;
-
-procedure TMicroThread.Stop;
-begin
-  State := tsSuspended;
-end;
-
-
-{ TMicroThreadScheduler }
-
-function TMicroThreadScheduler.GetNow: TDateTime;
-var
-  {$IFDEF Linux}T: TimeVal;{$ENDIF}
-  {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
-begin
-  {$IFDEF Windows}
-  QueryPerformanceCounter(TimerValue);
-  //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
-  Result := TimerValue / FFrequency;
-  {$ENDIF}
-  {$IFDEF Linux}
-  fpgettimeofday(@t, nil);
-   // Build a 64 bit microsecond tick from the seconds and microsecond longints
-  Result := (Int64(t.tv_sec) * 1000000) + t.tv_usec;
-  {$ENDIF}
-
-  Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
-end;
-
-function TMicroThreadScheduler.Add(MicroThread: TMicroThread): Integer;
-begin
-  Inc(LastId);
-  MicroThread.Scheduler := Self;
-  MicroThread.Id := LastId;
-  Result := MicroThreads.Add(MicroThread);
-end;
-
-function TMicroThreadScheduler.AddMethod(Method: TMicroThreadEvent): Integer;
-var
-  NewMicroThread: TMicroThreadMethod;
-begin
-  NewMicroThread := TMicroThreadMethod.Create(False);
-  NewMicroThread.Method := Method;
-  NewMicroThread.Scheduler := Self;
-  Result := Add(NewMicroThread);
-end;
-
-constructor TMicroThreadScheduler.Create;
-begin
-  Lock := TCriticalSection.Create;
-  MicroThreads := TObjectList.Create;
-  ThreadPool := TThreadPool.Create;
-  {$IFDEF Windows}
-  QueryPerformanceFrequency(FFrequency);
-  {$ENDIF}
-  RoundRobinIndex := -1;
-end;
-
-destructor TMicroThreadScheduler.Destroy;
-begin
-  FTerminated := True;
-  ThreadPool.Free;
-  MicroThreads.Free;
-  Lock.Free;
-  inherited Destroy;
-end;
-
-function TMicroThreadScheduler.Execute(Count: Integer): Integer;
-begin
+var
+  StaticManagers: TObjectList; // TList<TMicroThreadManager>;
+  StaticManager: TMicroThreadManager;
+  StaticMicroThread: TMicroThread;
+
+  function GetMicroThreadId: Integer;
+  var
+    I: Integer;
+    CurrentStack: Pointer;
+  begin
+    asm
+      mov CurrentStack, sp
+    end;
+    with MainScheduler do begin
+      try
+        Lock.Acquire;
+        I := 0;
+        while (I < MicroThreads.Count) and
+          not ((CurrentStack >= TMicroThread(MicroThreads[I]).FStack) and
+          (CurrentStack <= (TMicroThread(MicroThreads[I]).FStack +
+          TMicroThread(MicroThreads[I]).FStackSize))) do Inc(I);
+        if I < MicroThreads.Count then begin
+          Result := TMicroThread(MicroThreads[I]).Id;
+        end else Result := -1;
+      finally
+        Lock.Release;
+      end;
+    end;
+  end;
+
+{ TMicroThreadManager }
+
+function TMicroThreadManager.Execute(Count: Integer): Integer;
+begin
+  FStack := StackBottom;
+  FStackSize := StackBottom + StackLength;
   FExecuteCount := Count;
   FExecutedCount := 0;
@@ -305 +191 @@
 end;
 
-procedure TMicroThreadScheduler.Start;
-var
-  Executed: Integer;
-begin
-  FTerminated := False;
-  repeat
-    Executed := Execute(10);
-    Application.ProcessMessages;
-    if Executed = 0 then Sleep(1);
-  until FTerminated;
-end;
-
-procedure TMicroThreadScheduler.Stop;
-begin
-  FTerminated := True;
-end;
-
-var
-  StaticMicroThread: TMicroThread;
-  StaticScheduler: TMicroThreadScheduler;
-
-procedure TMicroThreadScheduler.Yield(MicroThread: TMicroThread);
+procedure TMicroThreadManager.Yield(MicroThread: TMicroThread);
 var
   I: Integer;
   Time: TDateTime;
 begin
-  Time := GetNow;
+  Time := Scheduler.GetNow;
   if Assigned(MicroThread) then begin
+    MicroThread.Manager := nil;
     MicroThread.FExecutionEndTime := Time;
     MicroThread.FExecutionTime := MicroThread.FExecutionTime +
@@ -346 +212 @@
       mov [eax].TMicroThread.FBasePointer, edx
     end;
-    StaticScheduler := MicroThread.Scheduler;
+    StaticManager := MicroThread.Manager;
     asm
       // Restore scheduler stack
-      mov eax, StaticScheduler  // Self is invalid before BP restore
-      mov edx, [eax].TMicroThreadScheduler.FMainStackPointer
+      mov eax, StaticManager  // Self is invalid before BP restore
+      mov edx, [eax].TMicroThreadManager.FStackPointer
       mov esp, edx
-      mov edx, [eax].TMicroThreadScheduler.FMainBasePointer
+      mov edx, [eax].TMicroThreadManager.FBasePointer
       mov ebp, edx
     end;
@@ -358 +224 @@
   end;
 
-  // Try to find new microthread for execution
-  FSelected := nil;
+  FSelected := Scheduler.GetNextMicroThread;
+
+  if Assigned(FSelected) and (FExecutedCount < FExecuteCount) then begin
+    FSelected.Manager := Self;
+    Inc(FExecutedCount);
+    CurrentMicroThread := FSelected;
+    asm
+      // Store scheduler stack
+      mov eax, Self
+      mov edx, esp
+      mov [eax].TMicroThreadManager.FStackPointer, edx
+      mov edx, ebp
+      mov [eax].TMicroThreadManager.FBasePointer, edx
+    end;
+    if not FSelected.FExecuted then begin
+      FSelected.FExecuted := True;
+      FSelected.State := tsRunning;
+      FSelected.FExecutionStartTime := Time;
+      FTempPointer := FSelected.FStackPointer;
+      asm
+        // Restore microthread stack
+        mov eax, Self
+        mov edx, [eax].TMicroThreadManager.FTempPointer
+        mov esp, edx
+      end;
+      StaticMicroThread := FSelected; // BP will be change and Self pointer will be invalid
+      FTempPointer := FSelected.FBasePointer;
+      asm
+        mov eax, Self
+        mov edx, [eax].TMicroThreadManager.FTempPointer
+        mov ebp, edx
+      end;
+      StaticMicroThread.Execute;
+      //FSelected.Method(FSelected);
+      StaticManager := StaticMicroThread.Manager;
+      asm
+        // Restore scheduler stack
+        mov eax, StaticManager // Self is invalid before BP restore
+        mov edx, [eax].TMicroThreadManager.FStackPointer
+        mov esp, edx
+        mov edx, [eax].TMicroThreadManager.FBasePointer
+        mov ebp, edx
+      end;
+      FSelected.Manager := nil;
+      FSelected.FExecutionEndTime := Time;
+      FSelected.FExecutionTime := FSelected.FExecutionTime +
+       (FSelected.FExecutionEndTime - FSelected.FExecutionStartTime);
+      FSelected.FFinished := True;
+      if FSelected.FFreeOnTerminate then begin
+        FSelected.Free;
+      end;;
+    end else
+    if FSelected.State = tsWaiting then begin
+      // Execute selected thread
+      FSelected.State := tsRunning;
+      FSelected.FExecutionStartTime := Time;
+      FTempPointer := FSelected.FStackPointer;
+      asm
+        // Restore microthread stack
+        mov eax, Self
+        mov edx, [eax].TMicroThreadManager.FTempPointer
+        mov esp, edx
+      end;
+      FTempPointer := FSelected.FBasePointer;
+      asm
+        mov eax, Self
+        mov edx, [eax].TMicroThreadManager.FTempPointer
+        mov ebp, edx
+      end;
+    end;
+  end;
+end;
+
+constructor TMicroThreadManager.Create;
+begin
+
+end;
+
+destructor TMicroThreadManager.Destroy;
+begin
+  inherited Destroy;
+end;
+
+{ TMicroThreadSchedulerPoolThread }
+
+procedure TMicroThreadSchedulerPoolThread.Execute;
+var
+  ExecutedCount: Integer;
+begin
+  inherited Execute;
+  try
+    repeat
+      ExecutedCount := Manager.Execute(10);
+      if ExecutedCount = 0 then Sleep(1);
+    until Terminated;
+  except
+    on E: Exception do
+      //ExceptionHandler(E);
+  end;
+end;
+
+{ TMicroThreadMethod }
+
+procedure TMicroThreadMethod.Execute;
+begin
+  inherited Execute;
+  Method(Self);
+end;
+
+
+{ TMicroThread }
+
+procedure TMicroThread.Execute;
+begin
+
+end;
+
+procedure TMicroThread.Yield;
+begin
+  Manager.Yield(Self);
+end;
+
+procedure TMicroThread.WaitFor;
+begin
+  if GetMicroThreadId <> -1 then
+  while not FFinished do begin
+    Sleep(1);
+  end;
+end;
+
+procedure TMicroThread.Sleep(Duration: TDateTime);
+begin
+  FWakeUpTime := Scheduler.GetNow + Duration;
+  State := tsSleeping;
+  Yield;
+end;
+
+function TMicroThread.WaitForSignal(Signal: TEvent): TWaitResult;
+begin
+  repeat
+    Result := Signal.WaitFor(1);
+    Sleep(1);
+  until Result <> wrTimeout;
+end;
+
+constructor TMicroThread.Create(CreateSuspended: Boolean;
+  const StackSize: SizeUInt = DefaultStackSize);
+begin
+  FStackSize := StackSize;
+  FStack := GetMem(FStackSize);
+  FBasePointer := FStack + FStackSize;
+  FStackPointer := FBasePointer - 20;
+  FExecutionTime := 0;
+  FTerminated := False;
+  if CreateSuspended then
+    State := tsSuspended;
+  FFreeOnTerminate := True;
+end;
+
+procedure TMicroThread.Terminate;
+begin
+  FTerminated := True;
+end;
+
+destructor TMicroThread.Destroy;
+begin
+  Terminate;
+  WaitFor;
+  // Microthread is finished, remove it from queue
+  try
+    Manager.Scheduler.Lock.Acquire;
+    Manager.Scheduler.MicroThreads.Delete(Manager.Scheduler.MicroThreads.IndexOf(Self));
+  finally
+    Manager.Scheduler.Lock.Release;
+  end;
+  FreeMem(FStack);
+  inherited Destroy;
+end;
+
+procedure TMicroThread.Start;
+begin
+  State := tsWaiting;
+end;
+
+procedure TMicroThread.Stop;
+begin
+  State := tsSuspended;
+end;
+
+
+{ TMicroThreadScheduler }
+
+function TMicroThreadScheduler.GetNow: TDateTime;
+var
+  {$IFDEF Linux}T: TimeVal;{$ENDIF}
+  {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
+begin
+  {$IFDEF Windows}
+  QueryPerformanceCounter(TimerValue);
+  //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
+  Result := TimerValue / FFrequency;
+  {$ENDIF}
+
+  {$IFDEF Linux}
+  fpgettimeofday(@t, nil);
+   // Build a 64 bit microsecond tick from the seconds and microsecond longints
+  Result := (Int64(t.tv_sec) * 1000000) + t.tv_usec;
+  {$ENDIF}
+
+  Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
+end;
+
+function TMicroThreadScheduler.Add(MicroThread: TMicroThread): Integer;
+begin
+  Inc(LastId);
+  MicroThread.Scheduler := Self;
+  MicroThread.Id := LastId;
+  Result := MicroThreads.Add(MicroThread);
+end;
+
+function TMicroThreadScheduler.AddMethod(Method: TMicroThreadEvent): Integer;
+var
+  NewMicroThread: TMicroThreadMethod;
+begin
+  NewMicroThread := TMicroThreadMethod.Create(False);
+  NewMicroThread.Method := Method;
+  NewMicroThread.Scheduler := Self;
+  Result := Add(NewMicroThread);
+end;
+
+constructor TMicroThreadScheduler.Create;
+begin
+  Lock := TCriticalSection.Create;
+  MicroThreads := TObjectList.Create;
+  ThreadPool := TThreadPool.Create;
+  {$IFDEF Windows}
+  QueryPerformanceFrequency(FFrequency);
+  {$ENDIF}
+  RoundRobinIndex := -1;
+  MainThreadManager := TMicroThreadManager.Create;
+  MainThreadManager.Scheduler := Self;
+end;
+
+destructor TMicroThreadScheduler.Destroy;
+begin
+  MainThreadManager.Free;
+  FTerminated := True;
+  ThreadPool.Free;
+  MicroThreads.Free;
+  Lock.Free;
+  inherited Destroy;
+end;
+
+procedure TMicroThreadScheduler.Start;
+var
+  Executed: Integer;
+begin
+  FTerminated := False;
+  repeat
+    Executed := MainThreadManager.Execute(10);
+    Application.ProcessMessages;
+    if Executed = 0 then Sleep(1);
+  until FTerminated;
+end;
+
+procedure TMicroThreadScheduler.Stop;
+begin
+  FTerminated := True;
+end;
+
+function TMicroThreadScheduler.GetNextMicroThread: TMicroThread;
+var
+  I: Integer;
+begin
+  Result := nil;
   try
     Lock.Acquire;
@@ -381 +520 @@
     end;
     if I < MicroThreads.Count then begin
-      FSelected := TMicroThread(MicroThreads[RoundRobinIndex]);
+      Result := TMicroThread(MicroThreads[RoundRobinIndex]);
     end;
   finally
     Lock.Release;
-  end;
-
-  if Assigned(FSelected) and (FExecutedCount < FExecuteCount) then begin
-    Inc(FExecutedCount);
-    CurrentMicroThread := FSelected;
-    asm
-      // Store scheduler stack
-      mov eax, Self
-      mov edx, esp
-      mov [eax].TMicroThreadScheduler.FMainStackPointer, edx
-      mov edx, ebp
-      mov [eax].TMicroThreadScheduler.FMainBasePointer, edx
-    end;
-    if not FSelected.FExecuted then begin
-      FSelected.FExecuted := True;
-      FSelected.State := tsRunning;
-      FSelected.FExecutionStartTime := Time;
-      FTempPointer := FSelected.FStackPointer;
-      asm
-        // Restore microthread stack
-        mov eax, Self
-        mov edx, [eax].TMicroThreadScheduler.FTempPointer
-        mov esp, edx
-      end;
-      StaticMicroThread := FSelected; // BP will be change and Self pointer will be invalid
-      FTempPointer := FSelected.FBasePointer;
-      asm
-        mov eax, Self
-        mov edx, [eax].TMicroThreadScheduler.FTempPointer
-        mov ebp, edx
-      end;
-      StaticMicroThread.Execute;
-      //FSelected.Method(FSelected);
-      StaticScheduler := StaticMicroThread.Scheduler;
-      asm
-        // Restore scheduler stack
-        mov eax, StaticScheduler // Self is invalid before BP restore
-        mov edx, [eax].TMicroThreadScheduler.FMainStackPointer
-        mov esp, edx
-        mov edx, [eax].TMicroThreadScheduler.FMainBasePointer
-        mov ebp, edx
-      end;
-      FSelected.FExecutionEndTime := Time;
-      FSelected.FExecutionTime := FSelected.FExecutionTime +
-       (FSelected.FExecutionEndTime - FSelected.FExecutionStartTime);
-      FSelected.FFinished := True;
-      if FSelected.FFreeOnTerminate then begin
-        FSelected.Free;
-      end;;
-    end else
-    if FSelected.State = tsWaiting then begin
-      // Execute selected thread
-      FSelected.State := tsRunning;
-      FSelected.FExecutionStartTime := Time;
-      FTempPointer := FSelected.FStackPointer;
-      asm
-        // Restore microthread stack
-        mov eax, Self
-        mov edx, [eax].TMicroThreadScheduler.FTempPointer
-        mov esp, edx
-      end;
-      FTempPointer := FSelected.FBasePointer;
-      asm
-        mov eax, Self
-        mov edx, [eax].TMicroThreadScheduler.FTempPointer
-        mov ebp, edx
-      end;
-    end;
   end;
 end;
@@ -478 +549 @@
 initialization
 
+StaticManagers := TObjectList.Create;
 MainScheduler := TMicroThreadScheduler.Create;
 
@@ -483 +555 @@
 
 MainScheduler.Free;
+StaticManagers.Free;
 
 end.