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

codetools: ppu: implemented reading linked files

Browse Source 
git-svn-id: trunk@15591 -
This commit is contained in:
mattias 2008-06-27 14:32:15 +00:00
parent 878bc4ab3c
commit 5daf301724
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
components/codetools/ppuparser.pas
View File

@ -199,6 +199,7 @@ type
function ReadEntryShortstring: shortstring;
function ReadEntryLongint: longint;
procedure ReadUsedUnits;
procedure ReadLinkContainer(Nr: byte);
procedure Skip(Count: integer);
procedure Error(const Msg: string);
public
@ -510,7 +511,13 @@ begin
ibloadunit:
ReadUsedUnits;
// ToDo: ibinitunit:
iblinkunitofiles,iblinkunitstaticlibs,iblinkunitsharedlibs,
iblinkotherofiles,iblinkotherstaticlibs,iblinkothersharedlibs:
ReadLinkContainer(EntryNr);
ibusedmacros:
begin
while not EndOfEntry do
@ -615,6 +622,54 @@ begin
end;
end;
procedure TPPU.ReadLinkContainer(Nr: byte);
{$IFDEF VerbosePPUParser}
const
{ link options }
link_none = $0;
link_always = $1;
link_static = $2;
link_smart = $4;
link_shared = $8;
var
Desc: String;
{$ENDIF}
var
Filename: ShortString;
Flags: LongInt;
begin
while not EndOfEntry do begin
Filename:=ReadEntryShortstring;
Flags:=ReadEntryLongint;
{$IFDEF VerbosePPUParser}
case Nr of
iblinkunitofiles:
Desc:='Link unit object file: ';
iblinkunitstaticlibs :
Desc:='Link unit static lib: ';
iblinkunitsharedlibs :
Desc:='Link unit shared lib: ';
iblinkotherofiles :
Desc:='Link other object file: ';
iblinkotherstaticlibs :
Desc:='Link other static lib: ';
iblinkothersharedlibs :
Desc:='Link other shared lib: ';
end;
Desc:=Desc+Filename;
if (Flags and link_always)<>0 then
Desc:=Desc+' always';
if (Flags and link_static)<>0 then
Desc:=Desc+' static';
if (Flags and link_smart)<>0 then
Desc:=Desc+' smart';
if (Flags and link_shared)<>0 then
Desc:=Desc+' shared';
DebugLn(['TPPU.ReadLinkContainer ',Desc]);
{$ENDIF}
end;
end;
procedure TPPU.Skip(Count: integer);
begin
FInputStream.Seek(Count,soFromCurrent);