From 477b08464497b0a4b076b5d9838015e6ec3e1819 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 19 Jan 2002 11:53:07 +0000
Subject: [PATCH]   * fixed managledname

---
 compiler/targets/t_win32.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/targets/t_win32.pas b/compiler/targets/t_win32.pas
index ea8c359325..e99f33171e 100644
--- a/compiler/targets/t_win32.pas
+++ b/compiler/targets/t_win32.pas
@@ -117,6 +117,9 @@ implementation
          hp2 : timported_item;
          hs  : string;
       begin
+         { force the current mangledname }
+         aktprocdef.has_mangledname:=true;
+         { append extension if required }
          hs:=DllName(module);
          { search for the module }
          hp1:=timportlist(current_module.imports.first);
@@ -1603,7 +1606,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.21  2001-11-02 22:58:12  peter
+  Revision 1.22  2002-01-19 11:53:07  peter
+    * fixed managledname
+
+  Revision 1.21  2001/11/02 22:58:12  peter
     * procsym definition rewrite
 
   Revision 1.20  2001/10/12 16:06:27  peter