From fff81bea64b7f5eb5aa08f2286f240aa94fa7fca Mon Sep 17 00:00:00 2001 From: maciej-izak Date: Thu, 17 Aug 2017 21:45:55 +0000 Subject: [PATCH] * fix test run in Delphi: new Delphi (probably since XE7) has bug for method pointer which is considered as managed. Older Delphi versions are ok in this matter. git-svn-id: trunk@36931 - --- packages/rtl-objpas/tests/tests.rtti.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/rtl-objpas/tests/tests.rtti.pas b/packages/rtl-objpas/tests/tests.rtti.pas index a2335b29cb..1086344d5a 100644 --- a/packages/rtl-objpas/tests/tests.rtti.pas +++ b/packages/rtl-objpas/tests/tests.rtti.pas @@ -779,8 +779,8 @@ begin {$ifdef fpc} CheckEquals(false, IsManaged(TypeInfo(TTestMethod)), 'IsManaged for tkMethod'); {$else} - { for some reason Delphi considers method pointers to be managed :/ } - CheckEquals(true, IsManaged(TypeInfo(TTestMethod)), 'IsManaged for tkMethod'); + { Delphi bug (or sabotage). For some reason Delphi considers method pointers to be managed (only in newer versions, probably since XE7) :/ } + CheckEquals({$if RTLVersion>=28}true{$else}false{$endif}, IsManaged(TypeInfo(TTestMethod)), 'IsManaged for tkMethod'); {$endif} CheckEquals(false, IsManaged(TypeInfo(TArrayOfByte)), 'IsManaged for tkArray (with non managed ElType)');