Browse Source

* align interface offsets

git-svn-id: trunk@2506 -
peter 19 years ago
parent
commit
8f21a5c0f6
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/nobj.pas

+ 2 - 1
compiler/nobj.pas

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