paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 14:22:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test compilation in Delphi: raw interfaces are not supported in Delphi

Browse Source 
git-svn-id: trunk@36898 -
This commit is contained in:
svenbarth 2017-08-14 19:04:34 +00:00
parent dd906faf04
commit 2c70a0431e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/tests/tests.rtti.pas
View File

@ -126,6 +126,7 @@ type
TArrayOfNonManagedRec = array[0..0] of TNonManagedRec;
TArrayOfByte = array[0..0] of byte;
{$ifdef fpc}
{$PUSH}
{$INTERFACES CORBA}
@ -133,6 +134,7 @@ type
end;
{$POP}
{$endif}
{$ifdef fpc}
class operator TManagedRecOp.AddRef(var a: TManagedRecOp);
@ -778,7 +780,9 @@ begin
CheckEquals(false, IsManaged(TypeInfo(Boolean)), 'IsManaged for tkBool');
CheckEquals(false, IsManaged(TypeInfo(Int64)), 'IsManaged for tkInt64');
CheckEquals(false, IsManaged(TypeInfo(UInt64)), 'IsManaged for tkQWord');
{$ifdef fpc}
CheckEquals(false, IsManaged(TypeInfo(ICORBATest)), 'IsManaged for tkInterfaceRaw');
{$endif}
CheckEquals(false, IsManaged(TypeInfo(TTestProc)), 'IsManaged for tkProcVar');
CheckEquals(false, IsManaged(TypeInfo(TTestHelper)), 'IsManaged for tkHelper');
CheckEquals(false, IsManaged(TypeInfo(file)), 'IsManaged for tkFile');