Fix variable i range of values in procedure InitInterfacePointers(objclass: tclass;instance : pointer);

rtl/inc/objpas.inc

@@ -458,7 +458,7 @@ end;
 
         var
           ovmt: PVmt;
-          i: longint;
+          i: sizeuint;
           intftable: pinterfacetable;
           Res: pinterfaceentry;
         begin