Ver Fonte

* fix pkglist command to include also packages built for all targets (relevant mostly for utils)

git-svn-id: trunk@29263 -
Tomas Hajny há 10 anos atrás
pai
commit
e659fd73eb
1 ficheiros alterados com 5 adições e 5 exclusões
  1. 5 5
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -3557,11 +3557,11 @@ Procedure TPackage.ListPackage(PkgList : TStrings);
 Var
   S : String;
 begin
-  if OSes = AllOSes then
-    Exit;
-  if ({(OSes = AllOSes) or }(Defaults.OS = osNone) or
-                                (Defaults.OS in OSes)) and
-     ((Defaults.CPU in CPUs) or (Defaults.CPU = cpuNone)) then
+{  if OSes = AllOSes then
+    Exit;}
+  if ((OSes = AllOSes) or (Defaults.OS in OSes)) and
+         ((CPUs = AllCPUs) or (Defaults.CPU in CPUs)) or
+                       (Defaults.OS = osNone) and (Defaults.CPU = cpuNone) then
     begin
       if Defaults.OS = osNone then
         PkgList.Add (Format ('# Source %d', [Succ (PkgList.Count div 2)]))