paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@23021 -
This commit is contained in:
joost 2012-11-18 17:24:02 +00:00
parent b1a6601ef6
commit 87bb1fe33e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fpmkunit/src/fpmkunit.pp
View File

@ -6886,7 +6886,8 @@ end;
procedure TTarget.GetInstallFiles(List: TStrings; const APrefixU, APrefixB: String; ACPU: TCPU; AOS : TOS); procedure TTarget.GetInstallFiles(List: TStrings; const APrefixU, APrefixB: String; ACPU: TCPU; AOS : TOS);
begin 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); List.Add(APrefixU + ObjectFileName);
If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then
begin begin