IDE: fpc msg parser: improve unit not found msg: fixed writing ppu file

git-svn-id: trunk@48212 -
This commit is contained in:
mattias 2015-03-10 13:40:18 +00:00
parent 75fd8a4e5d
commit 6c1cc4bb36

View File

@ -1935,7 +1935,8 @@ begin
s:=Format(lisCannotFind, [MissingUnitname]);
if UsedByUnit<>'' then
s+=Format(lisUsedBy, [UsedByUnit]);
s+=Format(lisIncompatiblePpu, [PPUFilename]);
if PPUFilename<>'' then
s+=Format(lisIncompatiblePpu, [PPUFilename]);
if PPUFiles.Count=1 then
s+=Format(lisPackage3, [TIDEPackage(PPUFiles.Objects[0]).Name])
else begin