考虑如下这个简单类ttest
unit Unit1;
interface
uses
Windows, SysUtils, Variants, Classes;
Windows, SysUtils, Variants, Classes;
type
ttest = class
public
j:integer;
i:integer;
function aa(b,c: integer):integer;stdcall;
end;
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;
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:integer;
begin
a := ttest.Create;
a.i := 50;
j:= a.aa(10,20);
end;
一。观察j := a.aa(10,20)的编译结果:
[要点]:
按stdcall调用传参数方式,从右到左将参数压栈,因为是对象的函数调用,
所以最后将对象的地址压栈,然后调用方法.
二。观察aa成员函数的编译结果:
按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......