Browse Source

* try to compile targets only in neutral state

git-svn-id: trunk@10561 -
peter 17 years ago
parent
commit
c98bed6ae3
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -3959,7 +3959,10 @@ begin
         if (T.TargetType in [ttUnit,ttProgram]) then
         if (T.TargetType in [ttUnit,ttProgram]) then
           begin
           begin
             if TargetOK(T) then
             if TargetOK(T) then
-              MaybeCompile(APackage,T)
+              begin
+                if T.State=tsNeutral then
+                  MaybeCompile(APackage,T);
+              end
             else
             else
               begin
               begin
                 if not(Defaults.CPU in T.CPUs) then
                 if not(Defaults.CPU in T.CPUs) then