paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:59:27 +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 // the class info rtti the property rtti follows
// immediatly // 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 for i:=1 to hp^.PropCount do
begin begin
// found a property of that name ? // found a property of that name ?
@ -763,7 +763,10 @@ end.
{ {
$Log$ $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) * the set/get procedures must be called with call %edi instead call (%edi)
* handling of extended and string properties fixed * handling of extended and string properties fixed