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

weixin_34309435

于 2014-09-26 15:30:00 发布

阅读量78

点赞数

原文链接：https://my.oschina.net/hermer/blog/319124

版权

为什么80%的码农都做不了架构师？>>>

//测试寄存器: 如果只有两个参数, 看看 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;

转载于:https://my.oschina.net/hermer/blog/319124