瀏覽代碼

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 年之前
父節點
當前提交
b5d984da7a
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      compiler/pkgutil.pas

+ 1 - 2
compiler/pkgutil.pas

@@ -639,8 +639,7 @@ implementation
       module:=tmodule(loaded_units.first);
       while assigned(module) do
         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);
           module:=tmodule(module.next);
         end;