pkgutil.pas, createimportlibfromexternals:

  * import_proc_symbol: at least import the mangled name if there is no alias available

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/svenbarth@32583 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 0 deletions

diff --git a/packages/compiler/pkgutil.pas b/packages/compiler/pkgutil.pas
index 05a997b207..94dd955010 100644
--- a/packages/compiler/pkgutil.pas
+++ b/packages/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);