fpkg.pas, tcontainedunit:

  + new fields offset and size for the PPU data stored inside the PCP
fpcp.pas, tpcppackage:
  * readcontainedunits & addunit: correctly initialize offset and size to 0

git-svn-id: branches/svenbarth/packages@32309 -

compiler/fpcp.pas

@@ -301,6 +301,8 @@ implementation
           new(p);
           p^.module:=nil;
           p^.ppufile:=path;
+          p^.offset:=0;
+          p^.size:=0;
           containedmodules.add(name,p);
           message1(package_u_contained_unit,name);
         end;
@@ -426,6 +428,8 @@ implementation
       new(containedunit);
       containedunit^.module:=module;
       containedunit^.ppufile:=extractfilename(module.ppufilename);
+      containedunit^.offset:=0;
+      containedunit^.size:=0;
       containedmodules.add(module.modulename^,containedunit);
     end;
 

compiler/fpkg.pas

@@ -34,6 +34,8 @@ interface
     tcontainedunit=record
       module:tmodulebase;
       ppufile:tpathstr;
+      offset:longint;
+      size:longint;
     end;
     pcontainedunit=^tcontainedunit;