paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@32584 -
This commit is contained in:
pierre 2015-12-04 17:26:30 +00:00
parent 0e056ece03
commit 8ca036c3b6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/utils/ppuutils/ppudump.pp
View File

@ -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]);