소스 검색

* small updates to test also with kylix

peter 24 년 전
부모
커밋
5ee88d48c9
3개의 변경된 파일3개의 추가작업 그리고 2개의 파일을 삭제
  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
    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