* delphi mode

  * i386 only

tests/webtbs/tw2666.pp

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