Browse Source

Derefedata length can be zero if there are no references in PPU

git-svn-id: trunk@32584 -
pierre 9 years ago
parent
commit
8ca036c3b6
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/utils/ppuutils/ppudump.pp

+ 2 - 1
compiler/utils/ppuutils/ppudump.pp

@@ -860,7 +860,8 @@ begin
   derefdatalen:=ppufile.entrysize;
   derefdatalen:=ppufile.entrysize;
   if derefdatalen=0 then
   if derefdatalen=0 then
     begin
     begin
-      WriteError('!! Error: derefdatalen=0');
+      Writeln(['No Derefdata length=0']);
+      derefdata:=nil;
       exit;
       exit;
     end;
     end;
   Writeln(['Derefdata length: ',derefdatalen]);
   Writeln(['Derefdata length: ',derefdatalen]);