Скачать: CL | DM;

LDSLogger   Найти похожие ветки 

← →
Суслик ©   (2007-04-10 15:13) [37]

> программы аж на пол-такта.

о, блин, опытный какой - такты умеет считать.
сравни (я не поленился, а вот ты поленился это сделать)

{$o+}
procedure TestConst(const S: String);
begin
  ShowMessage(S);

(*

Unit1.pas.38: ShowMessage(S);
0046B66C E8E391FCFF       call ShowMessage
Unit1.pas.55: end;
0046B671 C3               ret
0046B672 8BC0             mov eax,eax

*)
end;

procedure TestNoConst(S: String);
begin
  ShowMessage(S);

(*

Unit1.pas.52: begin
0046B674 55               push ebp
0046B675 8BEC             mov ebp,esp
0046B677 51               push ecx
0046B678 8945FC           mov [ebp-$04],eax
0046B67B 8B45FC           mov eax,[ebp-$04]
0046B67E E8B994F9FF       call @LStrAddRef
0046B683 33C0             xor eax,eax
0046B685 55               push ebp
0046B686 68AFB64600       push $0046b6af
0046B68B 64FF30           push dword ptr fs:[eax]
0046B68E 648920           mov fs:[eax],esp

Unit1.pas.53: ShowMessage(S);
0046B691 8B45FC           mov eax,[ebp-$04]
0046B694 E8BB91FCFF       call ShowMessage

Unit1.pas.84: end;
0046B699 33C0             xor eax,eax
0046B69B 5A               pop edx
0046B69C 59               pop ecx
0046B69D 59               pop ecx
0046B69E 648910           mov fs:[eax],edx
0046B6A1 68B6B64600       push $0046b6b6
0046B6A6 8D45FC           lea eax,[ebp-$04]
0046B6A9 E8DA8FF9FF       call @LStrClr
0046B6AE C3               ret

*)
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c