* In the case that there is no object-file for a unit, do not try to install it. Bug #21230, patch by Sergei

git-svn-id: trunk@23021 -

packages/fpmkunit/src/fpmkunit.pp

@@ -6886,7 +6886,8 @@ end;
 
 procedure TTarget.GetInstallFiles(List: TStrings; const APrefixU, APrefixB: String; ACPU: TCPU; AOS : TOS);
 begin
-  If Not (TargetType in [ttProgram,ttExampleProgram]) then
+  If Not (TargetType in [ttProgram,ttExampleProgram]) and FileExists(APrefixU + ObjectFileName) then
+    // The compiler does not create an objectfile for all programs.
     List.Add(APrefixU + ObjectFileName);
   If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then
     begin