paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 20:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added packrecords 1

Browse Source
This commit is contained in:
michael 1998-11-26 14:57:47 +00:00
parent 4b33489b11
commit ced8b68930
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -67,6 +67,7 @@ unit typinfo;
type
TTypeKinds = set of TTypeKind;
{$PACKRECORDS 1}
TTypeInfo = record
Kind : TTypeKind;
Name : ShortString;
@ -359,11 +360,8 @@ unit typinfo;
begin
TD:=GetTypeData(TypeInfo);
// Get this objects TOTAL published properties count
// Delphi uses propdata for this...
// Writeln ('Getting total of ',TD^.PropCount,' infos');
TP:=(@TD^.UnitName+Length(TD^.UnitName)+1);
Count:=PWord(TP)^;
// Writeln ('Getting ',Count,' LOCAL infos');
// Now point TP to first propinfo record.
Inc(Longint(TP),SizeOF(Word));
While Count>0 do
@ -652,8 +650,8 @@ end.
{
$Log$
Revision 1.14 1998-11-26 14:22:18 michael
+ Fixed Gettypeinfos
Revision 1.15 1998-11-26 14:57:47 michael
+ Added packrecords 1
Revision 1.11 1998/09/24 23:45:28 peter
* updated for auto objpas loading