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

* fix test compilation in Delphi: management operators are not supported in Delphi

Browse Source 
git-svn-id: trunk@36897 -
This commit is contained in:
svenbarth 2017-08-14 19:03:45 +00:00
parent 0041450edc
commit dd906faf04
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,9 +95,11 @@ type
s: string;
end;
{$ifdef fpc}
TManagedRecOp = record
class operator AddRef(var a: TManagedRecOp);
end;
{$endif}
TNonManagedRec = record
i: Integer;
@ -132,9 +134,11 @@ type
{$POP}
{$ifdef fpc}
class operator TManagedRecOp.AddRef(var a: TManagedRecOp);
begin
end;
{$endif}
{ TTestValueClass }
@ -745,7 +749,9 @@ begin
CheckEquals(true, IsManaged(TypeInfo(TArrayOfString)),
'IsManaged for tkArray (with managed ElType)');
CheckEquals(true, IsManaged(TypeInfo(TManagedRec)), 'IsManaged for tkRecord');
{$ifdef fpc}
CheckEquals(true, IsManaged(TypeInfo(TManagedRecOp)), 'IsManaged for tkRecord');
{$endif}
CheckEquals(true, IsManaged(TypeInfo(IInterface)), 'IsManaged for tkInterface');
CheckEquals(true, IsManaged(TypeInfo(TManagedObj)), 'IsManaged for tkObject');
{$ifdef fpc}