Здрасьте, я на этом форуме редко бываю, извиняюсь что стилем не вышел, у меня вопрос.
Я пишу на Delphi XE 8, и у меня есть мысль написать свой собственный прекомпилятор (кажется их правильнее называть препроцессорами) для оптимизации моего кода. Например, я буду писать в коде qfor8 вместо for, и мой прекомпилятор заменит такой код
1.
2.
qfor8 i := 0 to count-1 do
values[i]:=values[i]*2;
На такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
intervalscount := count div 8;
totalintervals := intervalscount * 8;
i:=0;
while i<totalintervals do
begin
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
values[i]:=values[i]*2;
inc(i);
end;
for i:=totalintervals to count-1 do
values[i]:=values[i]*2;
Может буду не заменять сам оператор for в исходном коде, а писать например так:
1.
for{qfor8}i:=0 to count-1 do
Также мой прекомпилятор будет инлайнить функции, удалять ассерты и т.д. А ещё есть идея - все без исключения циклы в коде размножить подобным образом, а все процедуры и функции инлайнить (кроме рекурсивных, естественно). Т.е. моя программа откроет мой проект, перепишет весь код и сохранит его (в других каталогах, конечно), и я скомпилирую новый код в Delphi. Может это даст солидную оптимизацию для любого кода?
У меня вопрос, насколько это даст реальный прирост скорости. Я пока не знаю, как работает компилятор в текущем Delphi XE8, и поддерживает ли он, в частности, многоядерность (многопроцессорность). Я вообще не знаю чем отличается многоядерность от многопроцессорности, а также что такое интринсики и SIMD инструкции (и умеет ли Delphi XE8 их использовать). Вот ещё вопрос в этой области – правильно ли я понимаю, что для ускорения развёрнутого кода выше его надо переписать вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Var
curptr, lastptr:^integer;
begin
intervalscount := count div 8;
totalintervals := intervalscount * 8;
curptr:=addr(values[0]);
lastptr:=addr(values[totalintervals-1];
while curptr<=lastptr do
begin
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
curptr^:=curptr^*2;
inc(curptr);
end;
lastptr:=addr(values[count-1];
while curptr<=lastptr do
begin
curptr^:=curptr^*2;
inc(curptr);
end;
![[:kozel]](user_data/smileys/kozel.gif "[:kozel]")
