diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-12-04 17:26:30 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-12-04 17:26:30 +0000 |
| commit | 39dde6924c6a020031f4edfae53a862ceea082a6 (patch) | |
| tree | a7e26ccbcc13b277e3385fc173abcef54bb56984 /compiler/utils | |
| parent | 3afee8e482186e45f9cee7b7a95ba5a678bf75de (diff) | |
| download | fpc-39dde6924c6a020031f4edfae53a862ceea082a6.tar.gz | |
Derefedata length can be zero if there are no references in PPU
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@32584 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/ppuutils/ppudump.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/utils/ppuutils/ppudump.pp b/compiler/utils/ppuutils/ppudump.pp index a0b4bf66ff..84984db43f 100644 --- a/compiler/utils/ppuutils/ppudump.pp +++ b/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]); |