paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +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

2
tests/webtbs/tw3695.pp
View File

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