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

* fixed group() writing

Browse Source
This commit is contained in:
peter 2000-01-12 10:31:45 +00:00
parent 0e4c33391c
commit 83c82663f2
1 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/t_win32.pas
View File

@ -681,6 +681,7 @@ begin
if s<>'' then if s<>'' then
LinkRes.AddFileName(GetShortName(s)); LinkRes.AddFileName(GetShortName(s));
end; end;
LinkRes.Add(')');
{ Write staticlibraries } { Write staticlibraries }
if not StaticLibFiles.Empty then if not StaticLibFiles.Empty then
@ -696,7 +697,10 @@ begin
{ Write sharedlibraries like -l<lib>, also add the needed dynamic linker { Write sharedlibraries like -l<lib>, also add the needed dynamic linker
here to be sure that it gets linked this is needed for glibc2 systems (PFV) } here to be sure that it gets linked this is needed for glibc2 systems (PFV) }
if not SharedLibFiles.Empty then
begin
linklibc:=false; linklibc:=false;
LinkRes.Add('INPUT(');
While not SharedLibFiles.Empty do While not SharedLibFiles.Empty do
begin begin
S:=SharedLibFiles.Get; S:=SharedLibFiles.Get;
@ -717,7 +721,7 @@ begin
if linklibc then if linklibc then
LinkRes.Add('-lc'); LinkRes.Add('-lc');
LinkRes.Add(')'); LinkRes.Add(')');
end;
{ Write and Close response } { Write and Close response }
linkres.writetodisk; linkres.writetodisk;
linkres.done; linkres.done;
@ -1079,7 +1083,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.17 2000-01-11 09:52:07 peter Revision 1.18 2000-01-12 10:31:45 peter
* fixed group() writing
Revision 1.17 2000/01/11 09:52:07 peter
* fixed placing of .sl directories * fixed placing of .sl directories
* use -b again for base-file selection * use -b again for base-file selection
* fixed group writing for linux with smartlinking * fixed group writing for linux with smartlinking