diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-07-18 22:35:36 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-07-18 22:35:36 +0000 |
| commit | 63e6f967f9139308397bd44bdf9c2a4aea903ab0 (patch) | |
| tree | af2eb8b4f1586240ee7b390d40c4fff139ef1c70 /rtl/nativent | |
| parent | 63611f64fb7120c6277ccdeb6a81c4ffbf6fc3e8 (diff) | |
| download | fpc-63e6f967f9139308397bd44bdf9c2a4aea903ab0.tar.gz | |
* Add TerminatedSet (delphi compatibility, bug ID 37388)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45805 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/nativent')
| -rw-r--r-- | rtl/nativent/tthread.inc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rtl/nativent/tthread.inc b/rtl/nativent/tthread.inc index 0fa6f20cad..018e763d2c 100644 --- a/rtl/nativent/tthread.inc +++ b/rtl/nativent/tthread.inc @@ -48,6 +48,7 @@ end; procedure TThread.Terminate; begin FTerminated := True; + TerminatedSet; end; function TThread.WaitFor: Integer; |