paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test run in Delphi: for some reason a method pointer is considered managed by Delphi

Browse Source 
git-svn-id: trunk@36903 -
This commit is contained in:
svenbarth 2017-08-14 19:09:52 +00:00
parent 251d223f29
commit a3652bb69d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -776,7 +776,12 @@ begin
CheckEquals(false, IsManaged(TypeInfo(TTestEnum)), 'IsManaged for tkEnumeration'); CheckEquals(false, IsManaged(TypeInfo(TTestEnum)), 'IsManaged for tkEnumeration');
CheckEquals(false, IsManaged(TypeInfo(Single)), 'IsManaged for tkFloat'); CheckEquals(false, IsManaged(TypeInfo(Single)), 'IsManaged for tkFloat');
CheckEquals(false, IsManaged(TypeInfo(TTestSet)), 'IsManaged for tkSet'); CheckEquals(false, IsManaged(TypeInfo(TTestSet)), 'IsManaged for tkSet');
{$ifdef fpc}
CheckEquals(false, IsManaged(TypeInfo(TTestMethod)), 'IsManaged for tkMethod'); 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');
{$endif}
CheckEquals(false, IsManaged(TypeInfo(TArrayOfByte)), CheckEquals(false, IsManaged(TypeInfo(TArrayOfByte)),
'IsManaged for tkArray (with non managed ElType)'); 'IsManaged for tkArray (with non managed ElType)');
CheckEquals(false, IsManaged(TypeInfo(TArrayOfNonManagedRec)), CheckEquals(false, IsManaged(TypeInfo(TArrayOfNonManagedRec)),