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

* small fix to compile with latest typinfo

Browse Source
This commit is contained in:
peter 2000-07-04 19:05:56 +00:00
parent b13955d6d8
commit a6aa2f8b55
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/testrtti.pp
View File

@ -13,7 +13,7 @@ Const TypeNames : Array [TTYpeKind] of string[15] =
('Unknown','Integer','Char','Enumeration', ('Unknown','Integer','Char','Enumeration',
'Float','Set','Method','ShortString','LongString', 'Float','Set','Method','ShortString','LongString',
'AnsiString','WideString','Variant','Array','Record', 'AnsiString','WideString','Variant','Array','Record',
'Interface','Class','Object','WideChar','Bool'); 'Interface','Class','Object','WideChar','Bool','Int64','QWord');
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool]; Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
@ -423,7 +423,7 @@ Procedure DumpTypeInfo (O : TMyTestObject);
Var Var
PT : PTypeData; PT : PTypeData;
PI : PTypeInfo; PI : PTypeInfo;
I,J : Longint; I : Longint;
PP : PPropList; PP : PPropList;
begin begin