paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* library list keeps doubles

Browse Source
This commit is contained in:
pierre 1999-10-08 15:38:42 +00:00
parent fd0d2c3781
commit a7992b0232
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/link.pas
View File

@ -107,8 +107,9 @@ end;
Constructor TLinker.Init; Constructor TLinker.Init;
begin begin
ObjectFiles.Init_no_double; ObjectFiles.Init_no_double;
SharedLibFiles.Init_no_double; { libraries sometimes need to be loaded several times PM }
StaticLibFiles.Init_no_double; SharedLibFiles.Init{_no_double};
StaticLibFiles.Init{_no_double};
LinkToC:=(cs_link_toc in aktglobalswitches); LinkToC:=(cs_link_toc in aktglobalswitches);
Strip:=(cs_link_strip in aktglobalswitches); Strip:=(cs_link_strip in aktglobalswitches);
LinkOptions:=ParaLinkOptions; LinkOptions:=ParaLinkOptions;
@ -545,6 +546,8 @@ begin
end end
else else
begin begin
{ Some times several references to libc are necessary !! PM }
WriteRes(target_link.libprefix+s);
linklibc:=true; linklibc:=true;
linkdynamic:=false; { C add's it automaticly } linkdynamic:=false; { C add's it automaticly }
end; end;
@ -789,7 +792,10 @@ end;
end. end.
{ {
$Log$ $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) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.71 1999/09/16 11:34:56 pierre Revision 1.71 1999/09/16 11:34:56 pierre