paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-06 20:07:03 +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; s: string;
end; end;
{$ifdef fpc}
TManagedRecOp = record TManagedRecOp = record
class operator AddRef(var a: TManagedRecOp); class operator AddRef(var a: TManagedRecOp);
end; end;
{$endif}
TNonManagedRec = record TNonManagedRec = record
i: Integer; i: Integer;
@ -132,9 +134,11 @@ type
{$POP} {$POP}
{$ifdef fpc}
class operator TManagedRecOp.AddRef(var a: TManagedRecOp); class operator TManagedRecOp.AddRef(var a: TManagedRecOp);
begin begin
end; end;
{$endif}
{ TTestValueClass } { TTestValueClass }
@ -745,7 +749,9 @@ begin
CheckEquals(true, IsManaged(TypeInfo(TArrayOfString)), CheckEquals(true, IsManaged(TypeInfo(TArrayOfString)),
'IsManaged for tkArray (with managed ElType)'); 'IsManaged for tkArray (with managed ElType)');
CheckEquals(true, IsManaged(TypeInfo(TManagedRec)), 'IsManaged for tkRecord'); CheckEquals(true, IsManaged(TypeInfo(TManagedRec)), 'IsManaged for tkRecord');
{$ifdef fpc}
CheckEquals(true, IsManaged(TypeInfo(TManagedRecOp)), 'IsManaged for tkRecord'); CheckEquals(true, IsManaged(TypeInfo(TManagedRecOp)), 'IsManaged for tkRecord');
{$endif}
CheckEquals(true, IsManaged(TypeInfo(IInterface)), 'IsManaged for tkInterface'); CheckEquals(true, IsManaged(TypeInfo(IInterface)), 'IsManaged for tkInterface');
CheckEquals(true, IsManaged(TypeInfo(TManagedObj)), 'IsManaged for tkObject'); CheckEquals(true, IsManaged(TypeInfo(TManagedObj)), 'IsManaged for tkObject');
{$ifdef fpc} {$ifdef fpc}