paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 21:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed TObject.FieldAddress

Browse Source
This commit is contained in:
sg 2000-07-08 21:27:42 +00:00
parent 64a3b5313d
commit 2aca65148b
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/inc/objpas.inc
View File

@ -224,7 +224,7 @@
fieldaddress := Pointer(Self) + FieldInfo^.FieldOffset; fieldaddress := Pointer(Self) + FieldInfo^.FieldOffset;
exit; exit;
end; end;
Inc(FieldInfo, 7 + Length(FieldInfo^.Name)); Inc(Pointer(FieldInfo), 7 + Length(FieldInfo^.Name));
end; end;
end; end;
{ Try again with the parent class type } { Try again with the parent class type }
@ -455,7 +455,10 @@
{ {
$Log$ $Log$
Revision 1.17 2000-07-08 07:24:24 sg Revision 1.18 2000-07-08 21:27:42 sg
* Fixed TObject.FieldAddress
Revision 1.17 2000/07/08 07:24:24 sg
* FieldAddress now returns immediately if name='' * FieldAddress now returns immediately if name=''
Revision 1.16 2000/06/29 16:32:50 sg Revision 1.16 2000/06/29 16:32:50 sg