paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 02:59:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: ppu parser: ibResources

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

32
components/codetools/ppuparser.pas
View File

@ -542,6 +542,7 @@ type
procedure ReadUsedUnits;
procedure ReadModuleOptions;
procedure ReadLinkContainer(Nr: byte);
procedure ReadResources;
procedure ReadImportSymbols;
procedure ReadDerefData;
procedure ReadDerefMap;
@ -1096,8 +1097,11 @@ begin
iblinkunitofiles,iblinkunitstaticlibs,iblinkunitsharedlibs,
iblinkotherofiles,iblinkotherstaticlibs,iblinkothersharedlibs,
ibresources,iblinkotherframeworks:
iblinkotherframeworks:
ReadLinkContainer(EntryNr);
ibresources:
ReadResources;
ibImportSymbols:
ReadImportSymbols;
@ -1619,7 +1623,7 @@ begin
if fChangeEndian then
FEntry.size:=SwapEndian(FEntry.size);
{$IFDEF VerbosePPUParser}
DebugLn(['TPPU.ReadEntry nr=',FEntry.Nr,'=',PPUEntryName(FEntry.nr),' streampos=',FDataPos,' type-id=',FEntry.id]);
//DebugLn(['TPPU.ReadEntry nr=',FEntry.Nr,'=',PPUEntryName(FEntry.nr),' streampos=',FDataPos,' type-id=',FEntry.id]);
{$ENDIF}
if not (FEntry.id in [mainentryid,subentryid]) then
ErrorInvalidTypeID;
@ -2002,25 +2006,37 @@ begin
Desc:='Link other static lib: ';
iblinkothersharedlibs :
Desc:='Link other shared lib: ';
ibresources :
Desc:='Resource file: ';
iblinkotherframeworks:
Desc:='Link framework: ';
end;
Desc:=Desc+Filename;
if (Flags and link_always)<>0 then
Desc:=Desc+' always';
Desc:=Desc+' always';
if (Flags and link_static)<>0 then
Desc:=Desc+' static';
Desc:=Desc+' static';
if (Flags and link_smart)<>0 then
Desc:=Desc+' smart';
Desc:=Desc+' smart';
if (Flags and link_shared)<>0 then
Desc:=Desc+' shared';
Desc:=Desc+' shared';
DebugLn(['TPPU.ReadLinkContainer ',Desc]);
{$ENDIF}
end;
end;
procedure TPPU.ReadResources;
{$IFDEF VerbosePPUParser}
var
Filename: ShortString;
{$ENDIF}
begin
while not EndOfEntry do begin
{$IFDEF VerbosePPUParser}Filename:={$ENDIF}ReadEntryShortstring;
{$IFDEF VerbosePPUParser}
DebugLn(['TPPU.ReadResources file: '+Filename]);
{$ENDIF}
end;
end;
procedure TPPU.ReadImportSymbols;
var
SymbolCount: LongInt;