paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 23:30:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make sure the size of tinterfaceentry is correct, regardless of

Browse Source 
the maxrecordalign setting of the target

git-svn-id: trunk@6591 -
This commit is contained in:
Jonas Maebe 2007-02-21 19:26:09 +00:00
parent 9876d04bcd
commit b52c4f821a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/objpash.inc
View File

@ -124,7 +124,9 @@
VTable : Pointer; VTable : Pointer;
IOffset : PtrInt; IOffset : PtrInt;
IIDStr : pshortstring; { never nil. Com: upper(GuidToString(IID^)) } IIDStr : pshortstring; { never nil. Com: upper(GuidToString(IID^)) }
IType : tinterfaceentrytype; case boolean of
true : (IType : tinterfaceentrytype);
false : (__pad_dummy : pointer);
end; end;
pinterfacetable = ^tinterfacetable; pinterfacetable = ^tinterfacetable;
@ -344,4 +346,4 @@
end; end;
var var
DispCallByIDProc : pointer; DispCallByIDProc : pointer;