paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

linking with cygwin fixed

Browse Source
This commit is contained in:
peter 2004-11-04 17:12:52 +00:00
parent 79e754cb8c
commit 2eb3dfd077
1 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/systems/t_win32.pas
View File

@ -874,10 +874,10 @@ Var
HPath : TStringListItem;
s,s2 : string;
i : integer;
linklibc : boolean;
linklibcygwin : boolean;
begin
WriteResponseFile:=False;
linklibc:=false;
linklibcygwin:=(SharedLibFiles.Find('cygwin')<>nil);
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName);
@ -905,7 +905,13 @@ begin
if (cs_profile in aktmoduleswitches) then
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('gprt0','',false)))
else
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wprt0','',false)));
begin
if linklibcygwin then
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wcygprt0','',false)))
else
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wprt0','',false)));
end;
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
@ -949,22 +955,11 @@ begin
end;
if pos(target_info.sharedlibprefix,s)=1 then
s:=copy(s,length(target_info.sharedlibprefix)+1,255);
if s<>'c' then
begin
i:=Pos(target_info.sharedlibext,S);
if i>0 then
Delete(S,i,255);
LinkRes.Add('-l'+s);
end
else
begin
LinkRes.Add('-l'+s);
linklibc:=true;
end;
i:=Pos(target_info.sharedlibext,S);
if i>0 then
Delete(S,i,255);
LinkRes.Add('-l'+s);
end;
{ be sure that libc is the last lib }
if linklibc then
LinkRes.Add('-lc');
LinkRes.Add(')');
end;
@ -1617,7 +1612,10 @@ initialization
end.
{
$Log$
Revision 1.40 2004-10-25 15:38:41 peter
Revision 1.41 2004-11-04 17:12:52 peter
linking with cygwin fixed
Revision 1.40 2004/10/25 15:38:41 peter
* heap and heapsize removed
* checkpointer fixes