Jelajahi Sumber

pkgutil.pas, createimportlibfromexternals:
* import_proc_symbol: at least import the mangled name if there is no alias available

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

svenbarth 10 tahun lalu
induk
melakukan
bbbc268c4a
1 mengubah file dengan 3 tambahan dan 0 penghapusan
  1. 3 0
      compiler/pkgutil.pas

+ 3 - 0
compiler/pkgutil.pas

@@ -688,6 +688,9 @@ implementation
           item : TCmdStrListItem;
         begin
           item := TCmdStrListItem(pd.aliasnames.first);
+          if not assigned(item) then
+            { at least import the mangled name }
+            current_module.addexternalimport(pkg.pplfilename,pd.mangledname,pd.mangledname,0,false,false);
           while assigned(item) do
             begin
               current_module.addexternalimport(pkg.pplfilename,item.str,item.str,0,false,false);