Fix ppudump

utils/ppuutils/ppudump.pp:
  + new procedure ReadUnitImportSyms which simply outputs all imported symbols
  * readimplementation: handle ibunitimportsyms with ReadUnitImportSyms

git-svn-id: trunk@33500 -

compiler/utils/ppuutils/ppudump.pp

@@ -1089,6 +1089,18 @@ begin
 end;
 
 
+Procedure ReadUnitImportSyms;
+var
+  c,i : longint;
+begin
+  write([space,'Imported Symbols']);
+  write([space,'----------------']);
+  c:=ppufile.getlongint;
+  for i:=0 to c-1 do
+    readderef(space);
+end;
+
+
 procedure readpropaccesslist(const s:string; Ref: TPpuRef = nil);
 { type tsltype is in symconst unit }
 const
@@ -3619,6 +3631,9 @@ begin
          ibloadunit :
            ReadLoadUnit;
 
+         ibunitimportsyms :
+           ReadUnitImportSyms;
+
          iberror :
            begin
              WriteError('Error in PPU');