Delphi 默认线程池的TParallel.的奇怪行为
我正在试用DelphiXe7更新1的并行编程功能 我创建了一个简单的Delphi 默认线程池的TParallel.的奇怪行为,delphi,parallel-processing,rtl-ppl,Delphi,Parallel Processing,Rtl Ppl,我正在试用DelphiXe7更新1的并行编程功能 我创建了一个简单的TParallel.For循环，它基本上执行一些伪操作来打发时间 我在AWS实例（c4.8xlarge）上的36个vCPU上启动了该程序，以尝试了解并行编程的好处 当我第一次启动程序并执行TParallel.For循环时，我看到了一个显著的增益（尽管比我预期的36个VCPU要小得多）： 如果我不关闭程序并在不久后（例如，立即或大约10-20秒后）在36 vCPU机器上再次运行pass，并行pass会恶化很多： Parallel
TParallel.ForTParallel.ForParallel matches: 23077169 in 2322ms
Single Threaded matches: 23077169 in 2316ms
TParallel.Forunit ParallelTests;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
System.Threading, System.SyncObjs, System.Diagnostics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
SingleThreadCheckBox: TCheckBox;
ParallelCheckBox: TCheckBox;
UnitsEdit: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
matches: integer;
i,j: integer;
sw: TStopWatch;
maxItems: integer;
referenceStr: string;
begin
sw := TStopWatch.Create;
maxItems := 5000;
Randomize;
SetLength(referenceStr,120000); for i := 1 to 120000 do referenceStr[i] := Chr(Ord('a') + Random(26));
if ParallelCheckBox.Checked then begin
matches := 0;
sw.Reset;
sw.Start;
TParallel.For(1, MaxItems,
procedure (Value: Integer)
var
index: integer;
found: integer;
begin
found := 0;
for index := 1 to length(referenceStr) do begin
if (((Value mod 26) + ord('a')) = ord(referenceStr[index])) then begin
inc(found);
end;
end;
TInterlocked.Add(matches, found);
end);
sw.Stop;
Memo1.Lines.Add('Parallel matches: ' + IntToStr(matches) + ' in ' + IntToStr(sw.ElapsedMilliseconds) + 'ms');
end;
if SingleThreadCheckBox.Checked then begin
matches := 0;
sw.Reset;
sw.Start;
for i := 1 to MaxItems do begin
for j := 1 to length(referenceStr) do begin
if (((i mod 26) + ord('a')) = ord(referenceStr[j])) then begin
inc(matches);
end;
end;
end;
sw.Stop;
Memo1.Lines.Add('Single Threaded matches: ' + IntToStr(Matches) + ' in ' + IntToStr(sw.ElapsedMilliseconds) + 'ms');
end;
end;
end.
TParallel.ForTParallel.ForParallel matches: 23077054 in 2057ms
Single Threaded matches: 23077054 in 2900ms
- 36 vCPU（c4.8XL）。您必须在后续呼叫到vanilla TParallel呼叫之间等待几分钟（这使它无法用于 生产）
- 32 vCPU（c3.8XL）。您必须在后续呼叫到vanilla TParallel呼叫之间等待几分钟（这使它无法用于 生产）
- 16 vCPU（c3.4XL）。你必须等待次秒。如果负载较低，但响应时间仍然很重要，那么它可能是可用的
- 8个vCPU（c3.2xlarge）。它似乎工作正常
- 4 vCPU（c3.xlarge）。它似乎工作正常
- 2 vCPU（m3.大）。它似乎工作正常
我在您的基础上创建了两个测试程序，用于比较
System.Threadingprogram SystemThreadingTest;
{$APPTYPE CONSOLE}
uses
System.Diagnostics,
System.Threading;
const
maxItems = 5000;
DataSize = 100000;
procedure DoTest;
var
matches: integer;
i, j: integer;
sw: TStopWatch;
referenceStr: string;
begin
Randomize;
SetLength(referenceStr, DataSize);
for i := low(referenceStr) to high(referenceStr) do
referenceStr[i] := Chr(Ord('a') + Random(26));
// parallel
matches := 0;
sw := TStopWatch.StartNew;
TParallel.For(1, maxItems,
procedure(Value: integer)
var
index: integer;
found: integer;
begin
found := 0;
for index := low(referenceStr) to high(referenceStr) do
if (((Value mod 26) + Ord('a')) = Ord(referenceStr[index])) then
inc(found);
AtomicIncrement(matches, found);
end);
Writeln('Parallel matches: ', matches, ' in ', sw.ElapsedMilliseconds, 'ms');
// serial
matches := 0;
sw := TStopWatch.StartNew;
for i := 1 to maxItems do
for j := low(referenceStr) to high(referenceStr) do
if (((i mod 26) + Ord('a')) = Ord(referenceStr[j])) then
inc(matches);
Writeln('Serial matches: ', matches, ' in ', sw.ElapsedMilliseconds, 'ms');
end;
begin
while True do
DoTest;
end.
program OTLTest;
{$APPTYPE CONSOLE}
uses
Winapi.Windows,
Winapi.Messages,
System.Diagnostics,
OtlParallel;
const
maxItems = 5000;
DataSize = 100000;
procedure ProcessThreadMessages;
var
msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) and (Msg.Message <> WM_QUIT) do begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
procedure DoTest;
var
matches: integer;
i, j: integer;
sw: TStopWatch;
referenceStr: string;
begin
Randomize;
SetLength(referenceStr, DataSize);
for i := low(referenceStr) to high(referenceStr) do
referenceStr[i] := Chr(Ord('a') + Random(26));
// parallel
matches := 0;
sw := TStopWatch.StartNew;
Parallel.For(1, maxItems).Execute(
procedure(Value: integer)
var
index: integer;
found: integer;
begin
found := 0;
for index := low(referenceStr) to high(referenceStr) do
if (((Value mod 26) + Ord('a')) = Ord(referenceStr[index])) then
inc(found);
AtomicIncrement(matches, found);
end);
Writeln('Parallel matches: ', matches, ' in ', sw.ElapsedMilliseconds, 'ms');
ProcessThreadMessages;
// serial
matches := 0;
sw := TStopWatch.StartNew;
for i := 1 to maxItems do
for j := low(referenceStr) to high(referenceStr) do
if (((i mod 26) + Ord('a')) = Ord(referenceStr[j])) then
inc(matches);
Writeln('Serial matches: ', matches, ' in ', sw.ElapsedMilliseconds, 'ms');
end;
begin
while True do
DoTest;
end.
程序OTLTest；
{$APPTYPE控制台}
使用
Winapi.Windows，
Winapi.Messages，
系统诊断，
奥特帕莱尔；
常数
maxItems=5000；
数据规模=100000；
过程消息；
变量
msg:TMsg；
开始
而peek消息（Msg，0，0，PM_REMOVE）和（Msg.Message WM_QUIT）确实开始
翻译信息；
发送消息（Msg）；
结束；
结束；
程序测试；
变量
匹配项：整数；
i、 j：整数；
sw:TStopWatch；
referenceStr:string；
开始
随机化；
SetLength（referenceStr，DataSize）；
对于i:=从低（referenceStr）到高（referenceStr）do
参考文献tr[i]：=Chr（Ord（'a'）+Random（26））；
//平行的
匹配项：=0；
sw:=TStopWatch.StartNew；
并行。对于（1，maxItems）。执行(
过程（值：整数）
变量
索引：整数；
发现：整数；
开始
发现：=0；
对于索引：=低（referenceStr）到高（referenceStr）do
如果（（值mod 26）+Ord（'a'））=Ord（referenceStr[index]），则
公司（发现）；
原子增量（匹配项，已找到）；
(完),；
Writeln（'Parallel matches:'，matches，'in'，sw.elapsedmillesons，'ms'）；
处理线程消息；
//连载
匹配项：=0；
sw:=TStopWatch.StartNew；
对于i:=1到maxItems do
对于j:=从低（referenceStr）到高（referenceStr）do
如果（（i mod 26）+Ord（'a'））=Ord（referenceStr[j]），则
公司(火柴),；
Writeln（'Serial matches:'，matches，'in'，sw.elapsedmillesons，'ms'）；
结束；
开始
尽管如此
溺爱；
结束。