paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 15:59:17 +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'); //WriteLn('Loop forever inside Tester.run when compiled by FPC 1.9.8');
end; end;
thread.Terminate; thread.Terminate;
thread.waitfor;
end; end;
var var
@ -71,4 +72,5 @@ var
begin begin
t:=Tester.Create; t:=Tester.Create;
t.run; t.run;
t.free;
end. end.