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

* fix test compilation in Delphi: TypeInfo() of a file type is not supported

Browse Source 
git-svn-id: trunk@36900 -
This commit is contained in:
svenbarth 2017-08-14 19:07:10 +00:00
parent 95f3c6c427
commit bb947ed639
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -785,7 +785,9 @@ begin
{$endif}
CheckEquals(false, IsManaged(TypeInfo(TTestProc)), 'IsManaged for tkProcVar');
CheckEquals(false, IsManaged(TypeInfo(TTestHelper)), 'IsManaged for tkHelper');
{$ifdef fpc}
CheckEquals(false, IsManaged(TypeInfo(file)), 'IsManaged for tkFile');
{$endif}
CheckEquals(false, IsManaged(TypeInfo(TClass)), 'IsManaged for tkClassRef');
CheckEquals(false, IsManaged(TypeInfo(Pointer)), 'IsManaged for tkPointer');
CheckEquals(false, IsManaged(nil), 'IsManaged for nil');