频道分类

Delphi的整数性能测试

作者:admin 来源: 日期:2020/3/31 9:14:05 人气: 标签:

 
function Test2: integer;
var
  s: integer;
begin
  s := 0;
  TParallel.&For(1, MAXN, procedure(i: integer)
    begin
      if (IsPrime(i) = 1) then
      begin // memory barrier
        AtomicIncrement(s);
      end
    end);
  Result := s;
end;


function Test3: integer;
var
  s: integer;
begin
  s := 0;
  TParallel.&For(1, MAXN, procedure(i: integer)
    begin // memory barrier
      AtomicIncrement(s, IsPrime(i));
    end);
  Result := s;
end;