diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-26 13:02:55 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-26 13:02:55 +0000 |
| commit | 60fc27c022c3f739eac1a28916607206a2049744 (patch) | |
| tree | 41824f6e58934dad0ca4347448ddb058f4ae247a /packages/fcl-base | |
| parent | 34f2cfdc9a4368b02925728771ebba0ce99a89cf (diff) | |
| download | fpc-60fc27c022c3f739eac1a28916607206a2049744.tar.gz | |
* Fix for bug 18044
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16445 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base')
| -rw-r--r-- | packages/fcl-base/src/fptimer.pp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/fcl-base/src/fptimer.pp b/packages/fcl-base/src/fptimer.pp index 304ae2180d..3477869858 100644 --- a/packages/fcl-base/src/fptimer.pp +++ b/packages/fcl-base/src/fptimer.pp @@ -253,6 +253,8 @@ Procedure TFPThreadedTimerDriver.StopTimer; begin FThread.FTimerDriver:=Nil; FThread.Terminate; // Will free itself. + FThread:=Nil; + CheckSynchronize; // make sure thread is not stuck at synchronize call. end; |