Seemingly Xe3 provides a parallel loop feature to support fast
multi-Core applications
------------------------------------------------------------------------
try
// counts the prime numbers below a given value
Tot:=0;
SW:=TStopWatch.Create;
SW.Start;
TParallel.For(2,1,Max,procedure(I:Int64)
begin
if IsPrime(I) then
TInterlocked.Increment(Tot);
end);
SW.Stop;
Memo1.Lines.Add(Format('Parallel For loop. Time (in milliseconds): %d -
Primes found: %d', [SW.ElapsedMilliseconds,Tot]));
except on E:EAggregateExceptiondo
ShowMessage(E.ToString);
end;
------------------------------------------------------------------------
So they did not use the Prism syntax ("parallel for" / "future"), but (again)
introduced something new incompatible to everything.
Will fpc follow ?
-Michael
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
