From d3545c4e4ca857b20744f695d8f560b0a18780ca Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 25 Aug 2004 15:57:19 +0000
Subject: [PATCH]   * fix for tw3261

---
 compiler/pdecsub.pas | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index e2a5b0cde9..6e1c3e24de 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -1206,7 +1206,6 @@ var
   import_dll,
   import_name : string;
   import_nr   : word;
-  hpd         : tprocdef;
 begin
   if pd.deftype<>procdef then
     internalerror(2003042615);
@@ -1243,17 +1242,7 @@ begin
          current_module.uses_imports:=true;
          importlib.preparelib(current_module.modulename^);
        end;
-      if not(m_repeat_forward in aktmodeswitches) then
-       begin
-         { we can only have one overloaded here ! }
-         if tprocsym(tprocdef(pd).procsym).procdef_count>1 then
-          hpd:=tprocsym(tprocdef(pd).procsym).procdef[2]
-         else
-          hpd:=tprocdef(pd);
-       end
-      else
-       hpd:=tprocdef(pd);
-      importlib.importprocedure(hpd,import_dll,import_nr,import_name);
+      importlib.importprocedure(tprocdef(pd),import_dll,import_nr,import_name);
     end
   else
     begin
@@ -2275,7 +2264,10 @@ const
 end.
 {
   $Log$
-  Revision 1.188  2004-08-22 20:11:38  florian
+  Revision 1.189  2004-08-25 15:57:19  peter
+    * fix for tw3261
+
+  Revision 1.188  2004/08/22 20:11:38  florian
     * morphos now takes any pointer var. as libbase
     * alignment for sparc fixed
     * int -> double conversion on sparc fixed