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

Designer: Make TFieldInfo record match with its counterpart in typinfo. Noticed by Alfred Glänzer.

Browse Source 
git-svn-id: trunk@52058 -
This commit is contained in:
juha 2016-03-25 23:29:46 +00:00
parent 03648e9dcf
commit 24a234e4ba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/jitforms.pp
View File

@ -366,7 +366,7 @@ const
vmtInstanceSizeNeg = vmtInstanceSize+sizeof(ptrint);
type
// these definitions are copied from objpas.inc
// these definitions are copied from typinfo.pp
TMethodNameRec = packed record
Name : PShortString;
@ -396,7 +396,7 @@ type
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
FieldOffset: LongWord;
FieldOffset: PtrUInt;
ClassTypeIndex: Word;
Name: ShortString;
end;