Browse Source

* Do not create the output-directory for ttExamplePrograms, since they are not compiled
* Also do not trigger a package-recompile for a missing ttExampleProgram binary.

git-svn-id: trunk@18796 -

joost 14 years ago
parent
commit
971c1b1874
1 changed files with 5 additions and 1 deletions
  1. 5 1
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -4484,7 +4484,7 @@ begin
   //also create a bin directory for programtargets
   //also create a bin directory for programtargets
   For i := 0 to Pred(APackage.Targets.Count) do
   For i := 0 to Pred(APackage.Targets.Count) do
     begin
     begin
-      if APackage.Targets.TargetItems[i].TargetType in ProgramTargets then
+      if APackage.Targets.TargetItems[i].TargetType in (ProgramTargets-[ttExampleProgram]) then
         begin
         begin
           D:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS);
           D:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS);
           If not SysDirectoryExists(D) then
           If not SysDirectoryExists(D) then
@@ -4550,6 +4550,10 @@ begin
   if FForceCompile then
   if FForceCompile then
     Result:=true;
     Result:=true;
 
 
+  // For now exampleprograms are not compiled at all
+  if ATarget.TargetType = ttExampleProgram then
+    Exit;
+
   // Check output file
   // Check output file
   if not result then
   if not result then
     begin
     begin