Преглед изворни кода

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

git-svn-id: trunk@29263 -
Tomas Hajny пре 10 година
родитељ
комит
e659fd73eb
1 измењених фајлова са 5 додато и 5 уклоњено
  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
 Var
   S : String;
   S : String;
 begin
 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
     begin
       if Defaults.OS = osNone then
       if Defaults.OS = osNone then
         PkgList.Add (Format ('# Source %d', [Succ (PkgList.Count div 2)]))
         PkgList.Add (Format ('# Source %d', [Succ (PkgList.Count div 2)]))