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

codetools: fixed testfpcsrcunitrules when no ppu exists

Browse Source 
git-svn-id: trunk@26836 -
This commit is contained in:
mattias 2010-07-26 10:08:00 +00:00
parent 1ce765fdda
commit 288d85bcae
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/codetools/examples/testfpcsrcunitrules.lpr
View File

@ -322,21 +322,23 @@ begin
Units:=UnitSet.GetConfigCache(false).Units;
// first list all duplicates with a ppu file (important)
Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
aUnitName:=Item^.Name;
Files:=Item^.Value;
PPUFile:=Units[aUnitName];
if CompareFileExt(PPUFile,'ppu',false)=0 then begin
if Cnt=0 then writeln;
inc(Cnt);
writeln('WARNING: duplicate source file for ppu ',aUnitName,' files=',Files);
if Units<>nil then begin
Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
aUnitName:=Item^.Name;
Files:=Item^.Value;
PPUFile:=Units[aUnitName];
if CompareFileExt(PPUFile,'ppu',false)=0 then begin
if Cnt=0 then writeln;
inc(Cnt);
writeln('WARNING: duplicate source file for ppu ',aUnitName,' files=',Files);
end;
Node:=SrcDuplicates.Tree.FindSuccessor(Node);
end;
Node:=SrcDuplicates.Tree.FindSuccessor(Node);
if Cnt>0 then writeln;
end;
if Cnt>0 then writeln;
// then list all duplicates without a ppu file (unimportant)
Cnt:=0;
@ -345,8 +347,7 @@ begin
Item:=PStringToStringTreeItem(Node.Data);
aUnitName:=Item^.Name;
Files:=Item^.Value;
PPUFile:=Units[aUnitName];
if PPUFile='' then begin
if (Units=nil) or (Units[aUnitName]='') then begin
if Cnt=0 then writeln;
inc(Cnt);
writeln('HINT: duplicate source files: unit=',aUnitName,' files=',Files);