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

* 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.

Browse Source 
git-svn-id: trunk@36931 -
This commit is contained in:
maciej-izak 2017-08-17 21:45:55 +00:00
parent b41762d1bf
commit fff81bea64
1 changed files with 2 additions and 2 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

@ -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)');