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

IDE: added verbosity for ambiguous files

Browse Source 
git-svn-id: trunk@12789 -
This commit is contained in:
mattias 2007-11-08 17:27:30 +00:00
parent 67c7ca8729
commit 66932c1a97
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/buildmanager.pas
View File

@ -791,6 +791,7 @@ begin
ANode:=CurUnitTree.FindKey(PChar(CurUnitName),
TListSortCompare(@CompareUnitNameAndUnitFile));
if (ANode<>nil) and (not IgnoreAll) then begin
DebugLn(['TBuildManager.CheckUnitPathForAmbiguousPascalFiles CurUnitName="',CurUnitName,'" CurFilename="',CurFilename,'" OtherUnitName="',PUnitFile(ANode.Data)^.UnitName,'" OtherFilename="',PUnitFile(ANode.Data)^.Filename,'"']);
// pascal unit exists twice
Result:=QuestionDlg(lisAmbiguousUnitFound2,
Format(lisTheUnitExistsTwiceInTheUnitPathOfThe, [CurUnitName,