作者: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;