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

IDE: msg quickfix for cant ind unit: add position

Browse Source 
git-svn-id: trunk@36943 -
This commit is contained in:
mattias 2012-04-21 07:53:39 +00:00
parent 83955969ef
commit d3edadab4a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/msgquickfixes.pas
View File

@ -537,7 +537,7 @@ begin
if PPUFilename<>'' then begin
// there is a ppu file, but the compiler didn't like it
// => change message
s:='Fatal: Can not find '+MissingUnitname;
s:='Can not find '+MissingUnitname;
if UsedByUnit<>'' then
s+=' used by '+UsedByUnit;
s+=', ppu='+CreateRelativePath(PPUFilename,Dir);
@ -546,14 +546,14 @@ begin
end else if PkgName<>'' then begin
// ppu is missing, but the package is known
// => change message
s:='Fatal: Can''t find ppu of unit '+MissingUnitname;
s:='Can''t find ppu of unit '+MissingUnitname;
if UsedByUnit<>'' then
s+=' used by '+UsedByUnit;
s+='. Maybe package '+PkgName+' needs a clean rebuild.';
end;
end else begin
// there is no ppu file in the unit path
s:='Fatal: Can not find unit '+MissingUnitname;
s:='Can not find unit '+MissingUnitname;
if UsedByUnit<>'' then
s+=' used by '+UsedByUnit;
if PkgName<>'' then
@ -564,7 +564,9 @@ begin
s+=' of package '+TIDEPackage(UsedByOwner).Name;
s+='.';
end;
Msg.Msg:=s;
Msg.GetSourcePosition(Filename,Line,Col);
Msg.Msg:=CreateRelativePath(Filename,Msg.Directory)
+'('+IntToStr(Line)+','+IntToStr(Col)+') Fatal: '+s;
end;
finally
Owners.Free;