Преглед на файлове

pkgutil.pas, add_package_libs:
* fix exit condition (on Linux it probably worked by accident :/ )

git-svn-id: branches/svenbarth/packages@32579 -

svenbarth преди 9 години
родител
ревизия
b01f802c80
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  1. 3 1
      compiler/pkgutil.pas

+ 3 - 1
compiler/pkgutil.pas

@@ -504,7 +504,8 @@ implementation
       i : longint;
       pkgname : tpathstr;
     begin
-      if not (target_info.system in systems_indirect_var_imports) then
+      if target_info.system in systems_indirect_var_imports then
+        { we're using import libraries anyway }
         exit;
       for i:=0 to packagelist.count-1 do
         begin
@@ -817,6 +818,7 @@ implementation
       alreadyloaded.free;
       for i:=0 to cache.count-1 do
         dispose(pcacheentry(cache[i]));
+      cache.free;
     end;
 
 end.