Procházet zdrojové kódy

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

git-svn-id: trunk@32584 -
pierre před 9 roky
rodič
revize
8ca036c3b6
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      compiler/utils/ppuutils/ppudump.pp

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

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