paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 03:28:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parsing ibSymTableOptions

Browse Source 
git-svn-id: trunk@30837 -
This commit is contained in:
mattias 2011-05-21 13:26:13 +00:00
parent 331286a3eb
commit 332dcdab8e
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/ppuparser.pas
View File

@ -123,6 +123,7 @@ const
ibmoduleoptions = 85; // svn rev 14767 ppu version 114
ibmainname = 90; // svn rev 10406
ibsymtableoptions = 91; // svn rev 17328 ppu version 128
{ target-specific things }
iblinkotherframeworks = 100; // svn rev 8344
@ -548,6 +549,7 @@ type
procedure ReadDerefMap;
procedure ReadDereference;
procedure ReadPosInfo;
procedure ReadSymTableOptions;
procedure ReadDefinitions;
procedure ReadSymbols;
procedure ReadNodeTree;
@ -949,6 +951,7 @@ begin
ibmoduleoptions: Result:='ibmoduleoptions';
ibmainname: Result:='ibmainname';
ibsymtableoptions:Result:='ibsymtableoptions';
{ target-specific things }
iblinkotherframeworks: Result:='iblinkotherframeworks';
else Result:='unknown('+IntToStr(Entry)+')';
@ -975,6 +978,9 @@ begin
else
SkipUntilEntry(ibendinterface);
if Version>=128 then
ReadSymTableOptions;
// interface definitions
if ppInterfaceDefinitions in Parts then
ReadDefinitions
@ -1002,6 +1008,8 @@ begin
// Implementation Definitions and Symbols
if (FHeader.flags and uf_local_symtable)<>0 then begin
if Version>=128 then
ReadSymTableOptions;
if ppImplementationDefinitions in Parts then
ReadDefinitions
else
@ -1225,9 +1233,10 @@ var
proctypeoption: tproctypeoption;
CurEntryStart: LongInt;
begin
if ReadEntry<>ibstartdefs then
EntryNr:=ReadEntry;
if EntryNr<>ibstartdefs then
begin
Error('missing definitions');
Error('expected ibstartdefs, but found '+PPUEntryName(EntryNr));
end;
repeat
EntryNr:=ReadEntry;
@ -1294,6 +1303,8 @@ begin
{$IFDEF VerbosePPUParser} debugln([' ProcInfoOptions : ',dword(procinfooptions)]);{$ENDIF}
end;
// parast
if Version>=128 then
ReadSymTableOptions;
ReadDefinitions;
ReadSymbols;
// localst
@ -1609,6 +1620,17 @@ begin
{$ENDIF}
end;
procedure TPPU.ReadSymTableOptions;
var
Nr: Byte;
s: DWord;
begin
Nr:=ReadEntry;
if Nr<>ibsymtableoptions then
Error('expected ibsymtableoptions, but found '+PPUEntryName(Nr));
ReadEntrySmallSet(s);
end;
function TPPU.ReadEntry: byte;
procedure ErrorInvalidTypeID;