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

* small problems fixed

Browse Source
This commit is contained in:
florian 1998-09-08 09:52:31 +00:00
parent dedb40b870
commit ae2f80df1c
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/typinfo.pp
View File

@ -119,7 +119,7 @@ unit typinfo;
// bit 0..1 GetProc
// 2..3 SetProc
// 4..5 StoredProc
ProcProcs : Byte;
PropProcs : Byte;
Name : ShortString;
end;
@ -163,11 +163,9 @@ unit typinfo;
begin
Result:=Nil;
while Assigned(hp) do
while Assigned(TypeInfo) do
begin
// skip the name
//!! Florian, I added (typeinfo) so it would compile
hp:=GetTypeData(Typeinfo);
// the class info rtti the property rtti follows
@ -183,8 +181,7 @@ unit typinfo;
Result:=PPropInfo(@Result^.Name)+byte(Result^.Name[0])+1;
end;
// parent class
//!! Florian, commented out, because the types are wrong
// hp:=hp^.ParentInfo;
Typeinfo:=hp^.ParentInfo;
end;
end;
@ -201,8 +198,7 @@ unit typinfo;
begin
caller.Instance:=Instance;
//!! propprocs doesn't exist, changed to procprops
case (PropInfo^.ProcProcs shr 4) and 3 of
case (PropInfo^.PropProcs shr 4) and 3 of
0:
IsStoredProp:=
PBoolean(Pointer(Instance)+Longint(PropInfo^.StoredProc))^;
@ -228,7 +224,10 @@ end.
{
$Log$
Revision 1.6 1998-09-08 00:08:36 michael
Revision 1.7 1998-09-08 09:52:31 florian
* small problems fixed
Revision 1.6 1998/09/08 00:08:36 michael
Made it compilable
Revision 1.5 1998/09/07 23:11:43 florian