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

* Clean .fpm files, bug #27115

Browse Source 
git-svn-id: trunk@29192 -
This commit is contained in:
joost 2014-12-02 07:10:15 +00:00
parent 3bc1db9612
commit 58d699f1aa
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3257,6 +3257,7 @@ Var
begin begin
OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(ACPU,AOS)); OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(ACPU,AOS));
OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(ACPU,AOS)); OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(ACPU,AOS));
List.Add(GetUnitConfigOutputFilename(Defaults.CPU,Defaults.OS));
AddConditionalStrings(Self, List,CleanFiles,ACPU,AOS); AddConditionalStrings(Self, List,CleanFiles,ACPU,AOS);
For I:=0 to FTargets.Count-1 do For I:=0 to FTargets.Count-1 do
FTargets.TargetItems[I].GetCleanFiles(List, OU, OB, ACPU, AOS); FTargets.TargetItems[I].GetCleanFiles(List, OU, OB, ACPU, AOS);