|
@@ -1,6 +1,11 @@
|
|
|
|
|
+{ %cpu=i386 }
|
|
|
|
|
+
|
|
|
{ Source provided for Free Pascal Bug Report 2666 }
|
|
{ Source provided for Free Pascal Bug Report 2666 }
|
|
|
{ Submitted by "marcov" on 2003-09-06 }
|
|
{ Submitted by "marcov" on 2003-09-06 }
|
|
|
{ e-mail: [email protected] }
|
|
{ e-mail: [email protected] }
|
|
|
|
|
+
|
|
|
|
|
+{$mode delphi}
|
|
|
|
|
+
|
|
|
function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
|
|
function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
|
|
|
asm
|
|
asm
|
|
|
CALL System.@Halt
|
|
CALL System.@Halt
|
peter