paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 17:34:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: ppu: implemented skipping unsupported entries

Browse Source 
git-svn-id: trunk@15595 -
This commit is contained in:
mattias 2008-06-27 14:50:48 +00:00
parent 0a4be6bd8d
commit fc43d79cae
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/ppuparser.pas
View File

@ -547,7 +547,10 @@ begin
break;
else
Error('unknown interface entry nr '+IntToStr(EntryNr));
{$IFDEF VerbosePPUParser}
DebugLn(['TPPU.ReadInterface Skipping unsupported entry ',EntryNr]);
{$ENDIF}
FEntryPos:=FEntry.size;
end;
until false;
end;