paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed race condition

Browse Source
This commit is contained in:
florian 2005-04-03 18:26:18 +00:00
parent 32a8463209
commit 9fba928b62
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw3695.pp
View File

@ -64,11 +64,13 @@ begin
//WriteLn('Loop forever inside Tester.run when compiled by FPC 1.9.8');
end;
thread.Terminate;
thread.waitfor;
end;
var
t: Tester;
t: Tester;
begin
t := Tester.Create;
t.run;
t:=Tester.Create;
t.run;
t.free;
end.