delphi的整数性能测试
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043056011199951 seconds