paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 21:50:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small updates to test also with kylix

Browse Source
This commit is contained in:
peter 2002-01-29 21:32:34 +00:00
parent cdf0df1808
commit 5ee88d48c9
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0335.pp
View File

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

@ -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

2
tests/tbs/tb0375.pp
View File

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