Browse Source

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 9 years ago
parent
commit
bbbc268c4a
1 changed files with 3 additions and 0 deletions
  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);