blob: 6641a0128a9b5cecb7227c4db149d477dae3a7c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2666 }
{ Submitted by "marcov" on 2003-09-06 }
{ e-mail: marco@freepascal.org }
{$mode delphi}
function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
asm
CALL System.@Paramcount
end;
begin
GetDynamicMethod(nil,0);
end.
|
