paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19: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

47
compiler/t_win32.pas
View File

@ -681,6 +681,7 @@ begin
if s<>'' then
LinkRes.AddFileName(GetShortName(s));
end;
LinkRes.Add(')');
{ Write staticlibraries }
if not StaticLibFiles.Empty then
@ -696,28 +697,31 @@ begin
{ 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) }
linklibc:=false;
While not SharedLibFiles.Empty do
if not SharedLibFiles.Empty then
begin
S:=SharedLibFiles.Get;
if s<>'c' then
linklibc:=false;
LinkRes.Add('INPUT(');
While not SharedLibFiles.Empty do
begin
i:=Pos(target_os.sharedlibext,S);
if i>0 then
Delete(S,i,255);
LinkRes.Add('-l'+s);
end
else
begin
LinkRes.Add('-l'+s);
linklibc:=true;
S:=SharedLibFiles.Get;
if s<>'c' then
begin
i:=Pos(target_os.sharedlibext,S);
if i>0 then
Delete(S,i,255);
LinkRes.Add('-l'+s);
end
else
begin
LinkRes.Add('-l'+s);
linklibc:=true;
end;
end;
{ be sure that libc is the last lib }
if linklibc then
LinkRes.Add('-lc');
LinkRes.Add(')');
end;
{ be sure that libc is the last lib }
if linklibc then
LinkRes.Add('-lc');
LinkRes.Add(')');
{ Write and Close response }
linkres.writetodisk;
linkres.done;
@ -1079,7 +1083,10 @@ end;
end.
{
$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
* use -b again for base-file selection
* fixed group writing for linux with smartlinking
@ -1146,4 +1153,4 @@ end.
* redesigned linker object
+ library support for linux (only procedures can be exported)
}
}