From a7992b02325d11025c97986f16150114919330ad Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 8 Oct 1999 15:38:42 +0000
Subject: [PATCH]  * library list keeps doubles

---
 compiler/link.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index f7119ce4b2..95de0f60ff 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -107,8 +107,9 @@ end;
 Constructor TLinker.Init;
 begin
   ObjectFiles.Init_no_double;
-  SharedLibFiles.Init_no_double;
-  StaticLibFiles.Init_no_double;
+  { libraries sometimes need to be loaded several times PM }
+  SharedLibFiles.Init{_no_double};
+  StaticLibFiles.Init{_no_double};
   LinkToC:=(cs_link_toc in aktglobalswitches);
   Strip:=(cs_link_strip in aktglobalswitches);
   LinkOptions:=ParaLinkOptions;
@@ -545,6 +546,8 @@ begin
       end
      else
       begin
+        { Some times several references to libc are necessary !! PM }
+        WriteRes(target_link.libprefix+s);
         linklibc:=true;
         linkdynamic:=false; { C add's it automaticly }
       end;
@@ -789,7 +792,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.72  1999-09-16 23:05:52  florian
+  Revision 1.73  1999-10-08 15:38:42  pierre
+   * library list keeps doubles
+
+  Revision 1.72  1999/09/16 23:05:52  florian
     * m68k compiler is again compilable (only gas writer, no assembler reader)
 
   Revision 1.71  1999/09/16 11:34:56  pierre