2
0
Эх сурвалжийг харах

* small updates to test also with kylix

peter 24 жил өмнө
parent
commit
5ee88d48c9

+ 1 - 1
tests/tbs/tb0335.pp

@@ -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 - 0
tests/tbs/tb0373.pp

@@ -1,4 +1,5 @@
 { %VERSION=1.1 }
+{$ifdef fpc}{$mode delphi}{$endif}
 type
    tmyinterface = interface
       procedure p(p : longint); // Delphi allows this

+ 1 - 1
tests/tbs/tb0375.pp

@@ -1,5 +1,5 @@
 { %VERSION=1.1 }
-{$mode objfpc}
+{$ifdef fpc}{$mode objfpc}{$endif}
 
 type
    i1 = interface