Explorar o código

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

git-svn-id: trunk@32584 -
pierre %!s(int64=9) %!d(string=hai) anos
pai
achega
8ca036c3b6
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  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]);