* Merging revisions r45805 from trunk:

------------------------------------------------------------------------
    r45805 | michael | 2020-07-19 00:35:36 +0200 (Sun, 19 Jul 2020) | 1 line
    
    * Add TerminatedSet (delphi compatibility, bug ID #37388)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46598 -

rtl/amicommon/tthread.inc

@@ -116,6 +116,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/atari/tthread.inc

@@ -74,6 +74,7 @@ end;
 procedure TThread.Terminate;
 
 begin
+  TerminatedSet;
 end;
 
 

rtl/beos/tthread.inc

@@ -274,6 +274,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;
@@ -560,6 +561,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/embedded/tthread.inc

@@ -100,6 +100,7 @@ end;
 procedure TThread.Terminate;
 begin
  FTerminated := true;
+ TerminatedSet;
 end;
 
 

rtl/gba/tthread.inc

@@ -99,7 +99,8 @@ end;
 
 procedure TThread.Terminate;
 begin
- FTerminated := true;
+  FTerminated := true;
+  TerminatedSet;
 end;
 
 

rtl/go32v2/tthread.inc

@@ -74,6 +74,7 @@ end;
 procedure TThread.Terminate;
 
 begin
+  TerminatedSet;
 end;
 
 

rtl/macos/tthread.inc

@@ -74,6 +74,7 @@ end;
 procedure TThread.Terminate;
 
 begin
+  TerminatedSet;
 end;
 
 

rtl/msdos/tthread.inc

@@ -74,6 +74,7 @@ end;
 procedure TThread.Terminate;
 
 begin
+  TerminatedSet;
 end;
 
 

rtl/nativent/tthread.inc

@@ -48,6 +48,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/nds/tthread.inc

@@ -99,7 +99,8 @@ end;
 
 procedure TThread.Terminate;
 begin
- FTerminated := true;
+  FTerminated := true;
+  TerminatedSet;
 end;
 
 

rtl/netware/tthread.inc

@@ -219,6 +219,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
   ThreadSwitch;
 end;
 

rtl/netwlibc/tthread.inc

@@ -364,6 +364,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/objpas/classes/classes.inc

@@ -274,6 +274,13 @@ begin
   GetSuspended:=FSuspended;
 end;
 
+Procedure TThread.TerminatedSet;
+
+begin
+  // Empty, must be overridden.
+end;
+
+
 
 procedure TThread.AfterConstruction;
 begin

rtl/objpas/classes/classesh.inc

@@ -1752,6 +1752,7 @@ type
   protected
     FThreadID: TThreadID; // someone might need it for pthread_* calls
     procedure DoTerminate; virtual;
+    procedure TerminatedSet; virtual;
     procedure Execute; virtual; abstract;
     procedure Synchronize(AMethod: TThreadMethod);
     procedure Queue(aMethod: TThreadMethod);
@@ -1840,7 +1841,7 @@ type
     property ThreadID: TThreadID read FThreadID;
     property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate;
     property FatalException: TObject read FFatalException;
-  end;
+  end; 
 
 
 { TComponent class }

rtl/os2/tthread.inc

@@ -212,7 +212,8 @@ end;
 
 procedure TThread.Terminate;
 begin
- FTerminated := true;
+  FTerminated := true;
+  TerminatedSet;
 end;
 
 

rtl/symbian/tthread.inc

@@ -99,7 +99,8 @@ end;
 
 procedure TThread.Terminate;
 begin
- FTerminated := true;
+  FTerminated := true;
+  TerminatedSet;
 end;
 
 

rtl/unix/tthread.inc

@@ -253,6 +253,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/wii/tthread.inc

@@ -100,6 +100,7 @@ end;
 procedure TThread.Terminate;
 begin
  FTerminated := true;
+ TerminatedSet;
 end;
 
 

rtl/win/tthread.inc

@@ -95,6 +95,7 @@ end;
 procedure TThread.Terminate;
 begin
   FTerminated := True;
+  TerminatedSet;
 end;
 
 function TThread.WaitFor: Integer;

rtl/win16/tthread.inc

@@ -74,6 +74,7 @@ end;
 procedure TThread.Terminate;
 
 begin
+TerminatedSet;
 end;