From dd906faf046f4adb9268f68d2194f41f7d5625f5 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Mon, 14 Aug 2017 19:03:45 +0000
Subject: [PATCH] * fix test compilation in Delphi: management operators are
 not supported in Delphi

git-svn-id: trunk@36897 -
---
 packages/rtl-objpas/tests/tests.rtti.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/rtl-objpas/tests/tests.rtti.pas b/packages/rtl-objpas/tests/tests.rtti.pas
index 3b25dffefe..6b37bc2a21 100644
--- a/packages/rtl-objpas/tests/tests.rtti.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.pas
@@ -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}