paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:50:28 +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',
'Float','Set','Method','ShortString','LongString',
'AnsiString','WideString','Variant','Array','Record',
'Interface','Class','Object','WideChar','Bool');
'Interface','Class','Object','WideChar','Bool','Int64','QWord');
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
@ -423,7 +423,7 @@ Procedure DumpTypeInfo (O : TMyTestObject);
Var
PT : PTypeData;
PI : PTypeInfo;
I,J : Longint;
I : Longint;
PP : PPropList;
begin