查看完整版本: 初学 Delphi 嵌入汇编[4] - 寄存器在过程与函数中的使用

初学 Delphi 嵌入汇编[4] - 寄存器在过程与函数中的使用

CPU 提供了诸多寄存器, 但在 Delphi 的过程和函数中, 只有 EAX ECX EDX 三个寄存器可以自由使用;
如果改变了其他寄存器, 在过程和函数结束前要给恢复.

记得前面学习过 Delphi 的过程和函数默认的调用约定是 Register , 前三个参数通过寄存器传递, 其他参数存与栈.
它所指的三个寄存器就应该是 EAX ECX EDX 了.
看资料介绍应该是: EAX 先接受第一个参数再接受返回值, ECX EDX 接受后面两个参数.
但我不能进行完整的测试.
--------------------------------------------------------------------------------

//测试三个自由寄存器: EAX ECX EDX
procedure Proc(x,y,z: Integer);
var
  a,b: Integer;
begin
  asm
    MOV a,ECX
    MOV b,EDX
  end;

  ShowMessage(Format('%d,%d',[a,b]));

{EAX 我测试不了}
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  Proc(11,22,33); {显示: 33,22}

{看来寄存器 ECX 储存的是第三个参数; EDX 储存第二个参数}
end;

初学 Delphi 嵌入汇编[5] - 寄存器在过程与函数中的使用 - 续

//测试寄存器: 如果只有两个参数, 看看 ECX EDX 谁来接受第二个参数
procedure Proc(x,y: Integer);
var
  a,b: Integer;
begin
  asm
    MOV a,ECX
    MOV b,EDX
  end;

  ShowMessage(IntToStr(a) + #44 + IntToStr(b));
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  Proc(11,22); {显示: 0,22}

{看来是 EDX 一直接受第二个值; 那么 ECX 肯定接受第三个值了}
end;