Browse Source

* small updates to test also with kylix

peter 23 years ago
parent
commit
5ee88d48c9
3 changed files with 3 additions and 2 deletions
  1. 1 1
      tests/tbs/tb0335.pp
  2. 1 0
      tests/tbs/tb0373.pp
  3. 1 1
      tests/tbs/tb0375.pp

+ 1 - 1
tests/tbs/tb0335.pp

@@ -4,7 +4,7 @@
 var
 var
    a : array[0..5] of byte;
    a : array[0..5] of byte;
 
 
-function f : longint;assembler;
+function f : byte;assembler;
 
 
   asm
   asm
     mov ebx,offset a
     mov ebx,offset a

+ 1 - 0
tests/tbs/tb0373.pp

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

+ 1 - 1
tests/tbs/tb0375.pp

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