Delphi汇编级研究(一)-方法调用

考虑如下这个简单类ttest

unit Unit1;

interface

uses
Windows, SysUtils, Variants, Classes;

type
ttest = class
public
j:integer;
i:integer;
function aa(b,c: integer):integer;stdcall;
end;

implementation

function ttest.aa(b,c: integer):integer;stdcall;
begin
Result := b + i + c;
end;

end.

调用代码如下

var a:ttest;
j:integer;
begin
a := ttest.Create;
a.i := 50;
j:= a.aa(10,20);
end;

一。观察j := a.aa(10,20)的编译结果：

[要点]:
按stdcall调用传参数方式,从右到左将参数压栈,因为是对象的函数调用,
所以最后将对象的地址压栈,然后调用方法.

二。观察aa成员函数的编译结果：

[要点]:

1.对象地址获取：[ebp+$08],即最后一个压栈的参数(stdcall,其他调用
方式根据压栈顺序可以同理计算出来)

2.成员变量值的获取方法,i的偏移是8,因为是第二个整型数.

三。根据上面的分析,可以用汇编实现aa成员函数如下：

{用汇编实现该函数如下}
function ttest.aa(b,c: integer):integer;stdcall;
asm
mov eax,[ebp+$0c] //Result := b
mov edx,[ebp+$08] //获取对象/self地址 -> edx
add eax,[edx+i] //加上成员变量i的值(i在此为相对于self的偏移:
//Result := Result + i;
add eax,[ebp+$10] //Result := Result + c;
end;

[要点]:

1.Delphi过程/函数内嵌汇编中只有eax/ecx/edx可以随意使用,eax一般默认
作为函数的返回值存放寄存器.
2.其它寄存器要在过程/函数内使用时,最好先压栈,退出前还原.

......老鳃...采菊东篱下.悠然见南山...2006.11......