paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 20:11:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* align interface offsets

Browse Source 
git-svn-id: trunk@2506 -
This commit is contained in:
peter 2006-02-10 08:30:35 +00:00
parent e2383470b8
commit 8f21a5c0f6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nobj.pas
View File

@ -900,6 +900,7 @@ implementation
implintf:=_class.implementedinterfaces; implintf:=_class.implementedinterfaces;
curintf:=implintf.interfaces(intfindex); curintf:=implintf.interfaces(intfindex);
{ GUID } { GUID }
asmlist[al_globals].concat(cai_align.create(const_align(sizeof(aint))));
if curintf.objecttype in [odt_interfacecom] then if curintf.objecttype in [odt_interfacecom] then
begin begin
{ label for GUID } { label for GUID }
@ -1051,7 +1052,7 @@ implementation
{ allocate a pointer in the object memory } { allocate a pointer in the object memory }
with tobjectsymtable(_class.symtable) do with tobjectsymtable(_class.symtable) do
begin begin
datasize:=align(datasize,min(sizeof(aint),fieldalignment)); datasize:=align(datasize,sizeof(aint));
_class.implementedinterfaces.setioffsets(i,datasize); _class.implementedinterfaces.setioffsets(i,datasize);
inc(datasize,sizeof(aint)); inc(datasize,sizeof(aint));
end; end;