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

+ Fixed typinfo count of properties

Browse Source
This commit is contained in:
michael 1998-11-25 16:47:03 +00:00
parent 6b71ea1c62
commit b661b37184
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/typinfo.pp
View File

@ -357,8 +357,12 @@ unit typinfo;
begin
TD:=GetTypeData(TypeInfo);
Count:=TD^.PropCount;
TP:=PPropInfo(@TD^.UnitName+Length(TD^.UnitName)+1);
// Get this objects published properties count
// Delphi uses propdata for this...
TP:=(@TD^.UnitName+Length(TD^.UnitName)+1);
Count:=PLongint(TP)^;
// Now point TP to first propinfo record.
Inc(Longint(TP),SizeOF(Word));
While Count>0 do
begin
PropList^[0]:=TP;
@ -405,7 +409,7 @@ unit typinfo;
GetMem(TempList,Count*SizeOf(Pointer));
Try
GetPropInfos(TypeInfo,TempList);
For I:=0 to COunt-1 do
For I:=0 to Count-1 do
begin
PropInfo:=TempList^[i];
If PropInfo^.PropType^.Kind in TypeKinds then
@ -645,8 +649,8 @@ end.
{
$Log$
Revision 1.12 1998-11-24 15:03:32 michael
Implemented most important methods.
Revision 1.13 1998-11-25 16:47:03 michael
+ Fixed typinfo count of properties
Revision 1.11 1998/09/24 23:45:28 peter
* updated for auto objpas loading