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

    the maxrecordalign setting of the target

git-svn-id: trunk@6591 -

rtl/inc/objpash.inc

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