paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

multithreadprocs: English

Browse Source 
git-svn-id: trunk@49933 -
This commit is contained in:
mattias 2015-10-03 18:36:25 +00:00
parent 9f58c5b0c2
commit 83c3757b85
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/multithreadprocs/examples/parallelloop1.lpr
View File

@ -54,7 +54,7 @@ begin
Results[Index]:=-1; Results[Index]:=-1;
i:=Index; i:=Index;
while i<List.Count-1 do begin while i<List.Count-1 do begin
if List[i]=Value then // hier wuerde die teure Vergleichsoperation stehen if List[i]=Value then // imagine here an expensive compare function
Results[Index]:=i; Results[Index]:=i;
inc(i,BlockCount); inc(i,BlockCount);
end; end;
@ -72,7 +72,7 @@ begin
BlockCount:=ProcThreadPool.MaxThreadCount; BlockCount:=ProcThreadPool.MaxThreadCount;
SetLength(Results,BlockCount); SetLength(Results,BlockCount);
ProcThreadPool.DoParallel(@FindBestParallel,0,BlockCount-1,@Data); ProcThreadPool.DoParallel(@FindBestParallel,0,BlockCount-1,@Data);
// Ergebnisse zusammenfassen // collect results
Result:=-1; Result:=-1;
for Index:=0 to BlockCount-1 do for Index:=0 to BlockCount-1 do
if Results[Index]>=0 then if Results[Index]>=0 then
@ -87,7 +87,7 @@ begin
Result:=-1; Result:=-1;
i:=0; i:=0;
while i<List.Count do begin while i<List.Count do begin
if List[i]=Value then // hier wuerde die teure Vergleichsoperation stehen if List[i]=Value then // imagine here an expensive compare function
Result:=i; Result:=i;
inc(i); inc(i);
end; end;