paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@59974 -
This commit is contained in:
mattias 2019-01-02 17:04:53 +00:00
parent 780beb52fe
commit 020d76d698
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/definetemplates.pas
View File

@ -2074,7 +2074,7 @@ begin
UnitToFPM[CurUnitName]:=FPM;
if FPMSourcePath<>'' then begin
debugln(['GatherUnitsInFPMSources ',FPMFilename,' ',FPMSourcePath]);
//debugln(['GatherUnitsInFPMSources ',FPMFilename,' ',FPMSourcePath]);
FPM.UnitToSrc:=GatherUnitSourcesInDirectory(FPMSourcePath,3);
end;
end;
@ -2292,7 +2292,9 @@ begin
Link:=TUnitNameLink(Node.Data);
Result[Link.Unit_Name]:=Link.Filename;
if (Link.ConflictFilename<>'') and (Link.Score>0) then begin
//DebugLn(['GatherUnitsInFPCSources Ambiguous: ',Link.Score,' ',Link.Filename,' ',Link.ConflictFilename]);
if (DebugUnitName<>'') and (SysUtils.CompareText(Link.Unit_Name,DebugUnitName)=0)
then
DebugLn(['GatherUnitsInFPCSources Ambiguous: ',Link.Score,' ',Link.Filename,' ',Link.ConflictFilename]);
if Duplicates<>nil then
Duplicates[Link.Unit_Name]:=Link.Filename+';'+Link.ConflictFilename;
end;