paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 18:57:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for bug #18044

Browse Source 
git-svn-id: trunk@16445 -
This commit is contained in:
michael 2010-11-26 13:02:55 +00:00
parent 43b6b58ea3
commit 74098a8f7d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/fptimer.pp
View File

@ -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;