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

* Fix by Sebastian Guenther.

Browse Source
This commit is contained in:
michael 1999-06-04 12:48:37 +00:00
parent 54e89e660d
commit fe46d024db
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/typinfo.pp
View File

@ -335,7 +335,7 @@ unit typinfo;
// the class info rtti the property rtti follows
// immediatly
Result:=PPropInfo(@hp^.UnitName)+byte(hp^.UnitName[0])+1;
Result:=PPropInfo(@hp^.UnitName)+Length(hp^.UnitName)+1+SizeOF(Word);
for i:=1 to hp^.PropCount do
begin
// found a property of that name ?
@ -763,7 +763,10 @@ end.
{
$Log$
Revision 1.22 1999-05-19 12:03:23 florian
Revision 1.23 1999-06-04 12:48:37 michael
* Fix by Sebastian Guenther.
Revision 1.22 1999/05/19 12:03:23 florian
* the set/get procedures must be called with call %edi instead call (%edi)
* handling of extended and string properties fixed