Bläddra i källkod

pkgutil.pas, createimportlibfromexternals:
* only process a unit's imports if the unit is not already from a package

git-svn-id: trunk@33686 -

svenbarth 9 år sedan
förälder
incheckning
b5d984da7a
1 ändrade filer med 1 tillägg och 2 borttagningar
  1. 1 2
      compiler/pkgutil.pas

+ 1 - 2
compiler/pkgutil.pas

@@ -639,8 +639,7 @@ implementation
       module:=tmodule(loaded_units.first);
       module:=tmodule(loaded_units.first);
       while assigned(module) do
       while assigned(module) do
         begin
         begin
-          //if not assigned(module.package) then
-          if (uf_in_library and module.flags)=0 then
+          if not assigned(module.package) then
             processimportedsyms(module.unitimportsyms);
             processimportedsyms(module.unitimportsyms);
           module:=tmodule(module.next);
           module:=tmodule(module.next);
         end;
         end;