@@ -4,7 +4,7 @@
var
a : array[0..5] of byte;
-function f : longint;assembler;
+function f : byte;assembler;
asm
mov ebx,offset a
@@ -1,4 +1,5 @@
{ %VERSION=1.1 }
+{$ifdef fpc}{$mode delphi}{$endif}
type
tmyinterface = interface
procedure p(p : longint); // Delphi allows this
@@ -1,5 +1,5 @@
-{$mode objfpc}
+{$ifdef fpc}{$mode objfpc}{$endif}
i1 = interface