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

IDE/lazbuild: fixed check orphaned ppu

Browse Source 
git-svn-id: trunk@48410 -
This commit is contained in:
mattias 2015-03-18 09:56:33 +00:00
parent 9cefd73299
commit 907bd03e63
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packager/interpkgconflictfiles.pas
View File

@ -839,6 +839,7 @@ var
OtherPPUFile: TPGInterPkgFile;
i: Integer;
Msg: String;
SrcFile: TPGInterPkgFile;
begin
CurNode:=Units.FindLowest;
FirstNodeSameUnitname:=nil;
@ -854,6 +855,7 @@ var
// => check units with same name
FileGroup:=nil;
PPUFile:=nil;
SrcFile:=nil;
OtherNode:=FirstNodeSameUnitname;
while OtherNode<>nil do begin
OtherFile:=TPGInterPkgFile(OtherNode.Data);
@ -866,19 +868,17 @@ var
//debugln(['CheckPPUFilesInWrongDirs duplicate units found: file1="',CurUnit.FullFilename,'"(',CurUnit.OwnerInfo.Name,') file2="',OtherFile.FullFilename,'"(',OtherFile.OwnerInfo.Name,')']);
FindUnitSourcePPU(OtherFile,OtherPPUFile);
if FileGroup=nil then begin
FindUnitSourcePPU(CurUnit,PPUFile);
Assert(Assigned(CurUnit), 'CheckDuplicateUnits: FindUnitSourcePPU() changed CurUnit to Nil. Not good!');
SrcFile:=CurUnit;
FindUnitSourcePPU(SrcFile,PPUFile);
end;
if (CurUnit<>nil) and (OtherFile<>nil)
and (CompareFilenames(CurUnit.FullFilename,OtherFile.FullFilename)=0) then
if (SrcFile<>nil) and (OtherFile<>nil)
and (CompareFilenames(SrcFile.FullFilename,OtherFile.FullFilename)=0) then
begin
// two packages share source directories
// -> do not warn single files
continue;
end;
//debugln(['CheckPPUFilesInWrongDirs duplicate units found: file1="',CurUnit.FullFilename,'"(',CurUnit.OwnerInfo.Name,') ppu=',PPUFile<>nil,' file2="',OtherFile.FullFilename,'"(',OtherFile.OwnerInfo.Name,') ppu=',OtherPPUFile<>nil]);
if (PPUFile<>nil) and (OtherPPUFile<>nil)
and (CompareFilenames(PPUFile.FullFilename,OtherPPUFile.FullFilename)=0)
and (OtherFile=nil) then begin
@ -891,7 +891,7 @@ var
if FileGroup=nil then begin
FileGroup:=TPGIPAmbiguousFileGroup.Create;
FileGroup.Add(CurUnit,PPUFile);
FileGroup.Add(SrcFile,PPUFile);
AmbiguousFileGroups.Add(FileGroup);
end;
FileGroup.Add(OtherFile,OtherPPUFile);
@ -906,19 +906,19 @@ var
if FileGroup<>nil then begin
for i:=0 to length(FileGroup.Sources)-1 do
begin
CurUnit:=FileGroup.CompiledFiles[i];
PPUFile:=FileGroup.Sources[i];
if PPUFile<>nil then
SrcFile:=FileGroup.Sources[i];
PPUFile:=FileGroup.CompiledFiles[i];
if SrcFile<>nil then
begin
Msg:='Duplicate unit "'+SrcFile.AnUnitName+'"';
Msg+=' in "'+SrcFile.OwnerInfo.Name+'"';
if PPUFile<>nil then
Msg+=', ppu="'+PPUFile.FullFilename+'"';
Msg+=', source="'+SrcFile.FullFilename+'"';
end else begin
Msg:='Duplicate unit "'+PPUFile.AnUnitName+'"';
Msg+=' in "'+PPUFile.OwnerInfo.Name+'"';
if CurUnit<>nil then
Msg+=', ppu="'+CurUnit.FullFilename+'"';
Msg+=', source="'+PPUFile.FullFilename+'"';
end else begin
Msg:='Duplicate unit "'+CurUnit.AnUnitName+'"';
Msg+=' in "'+CurUnit.OwnerInfo.Name+'"';
Msg+=', orphaned ppu "'+CurUnit.FullFilename+'"';
Msg+=', orphaned ppu "'+PPUFile.FullFilename+'"';
end;
if IDEMessagesWindow<>nil then
IDEMessagesWindow.AddCustomMessage(mluNote,Msg)