paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +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); vmtInstanceSizeNeg = vmtInstanceSize+sizeof(ptrint);
type type
// these definitions are copied from objpas.inc // these definitions are copied from typinfo.pp
TMethodNameRec = packed record TMethodNameRec = packed record
Name : PShortString; Name : PShortString;
@ -396,7 +396,7 @@ type
packed packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record record
FieldOffset: LongWord; FieldOffset: PtrUInt;
ClassTypeIndex: Word; ClassTypeIndex: Word;
Name: ShortString; Name: ShortString;
end; end;