From 6c1cc4bb36b9b669da7edbd3c1d70deecc44f8c3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Mar 2015 13:40:18 +0000
Subject: [PATCH] IDE: fpc msg parser: improve unit not found msg: fixed
 writing ppu file

git-svn-id: trunk@48212 -
---
 ide/etfpcmsgparser.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/etfpcmsgparser.pas b/ide/etfpcmsgparser.pas
index 219f0788b3..81d5f2328d 100644
--- a/ide/etfpcmsgparser.pas
+++ b/ide/etfpcmsgparser.pas
@@ -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