paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* count the number of successfully started threads, and quit as soon as

Browse Source 
those threads have finished (rather than waiting for the maximum number
    of threads that may have been started)

git-svn-id: trunk@20003 -
This commit is contained in:
Jonas Maebe 2012-01-07 23:08:45 +00:00
parent 64ce43d041
commit 4e053637d4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/tmt1.pp
View File

@ -46,13 +46,16 @@ function f(p : pointer) : ptrint;
var var
i : ptrint; i : ptrint;
started: longint;
begin begin
finished:=0; finished:=0;
started:=0;
for i:=1 to threadcount do for i:=1 to threadcount do
BeginThread({$ifdef fpc}@{$endif}f,pointer(i)); if BeginThread({$ifdef fpc}@{$endif}f,pointer(i)) <> tthreadid(0) then
inc(started);
while finished<threadcount do while finished<started do
{$ifdef wince}sleep(10){$endif}; {$ifdef wince}sleep(10){$endif};
writeln(finished); writeln(finished);
end. end.