Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.19;
Скачать: CL | DM;

Вниз

Компилятор Опять грешит   Найти похожие ветки 

 
oxffff ©   (2007-07-20 11:15) [0]

Простой код

procedure abc(out a:string);
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
abc(a);
end;

Работа

1.Перед вызовом abc компилятор добавляет полноценную очистку out параметра.
2.Далее в abc он еще добавляет обнуление параметра.

Таким образом эти инструкции лишние.
Поскольку входной параметр финализирон вызывающей процедурой и уже обнулен на входе .

И это для всех финализируемых типов.

А если мы сделает вот так,

AAA=array[0..100] of string;

procedure abc(out a:AAA);
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:AAA;
begin
abc(a);
end;

Это уже более существенные потери


 
oxffff ©   (2007-07-20 11:17) [1]


>
> Таким образом эти инструкции лишние.


Обнуление в вызванной процедуре.


 
oxffff ©   (2007-07-20 12:22) [2]

Написал им
http://qc.codegear.com/wc/qcmain.aspx?d=49334


 
oxffff ©   (2007-07-20 21:52) [3]

Поставили статус Open. Так что будем ждать оптимизации


 
Суслик ©   (2007-07-20 23:28) [4]

небось пьер ле риш открыл...
там это уже было год назад где-то.
по поводу out параметров штук 50 репортов.


 
Суслик ©   (2007-07-20 23:30) [5]

2автар
кинь свои контакты на timokhov@gmail.com



Страницы: 1 вся ветка

Текущий архив: 2007.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
15-1185259056
jack128_
2007-07-24 10:37
2007.08.19
Демки


1-1181214309
Jkot
2007-06-07 15:05
2007.08.19
Проверка подключения к интернету


3-1178180931
DmitrichJ
2007-05-03 12:28
2007.08.19
Инсталлер InterBase 6. Как создать?


2-1184870264
Sdubaruhnul
2007-07-19 22:37
2007.08.19
try...finally и рекурсия


15-1184750417
БарЛог
2007-07-18 13:20
2007.08.19
Сумма нескольких полей MySQL