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

--- Merging r43485 into '.':

Browse Source 
U    compiler/systems/t_bsd.pas
--- Recording mergeinfo for merge of r43485 into '.':
 U   .

git-svn-id: branches/fixes_3_2@44732 -
This commit is contained in:
Jonas Maebe 2020-04-16 17:09:03 +00:00
parent a4758f3560
commit 947f6825c9
1 changed files with 31 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/systems/t_bsd.pas
View File

@ -586,6 +586,7 @@ begin
HPath:=TCmdStrListItem(HPath.Next); HPath:=TCmdStrListItem(HPath.Next);
end; end;
end; end;
{ force local symbol resolution (i.e., inside the shared } { force local symbol resolution (i.e., inside the shared }
{ library itself) for all non-exorted symbols, otherwise } { library itself) for all non-exorted symbols, otherwise }
{ several RTL symbols of FPC-compiled shared libraries } { several RTL symbols of FPC-compiled shared libraries }
@ -638,10 +639,7 @@ begin
{ main objectfiles } { main objectfiles }
{ Generate linkfiles.res file if needed } if (target_info.system in systems_darwin) then
{ Only needed on Windows, due to the limitation of 8196 characters for command line }
if (LdSupportsNoResponseFile) and
(source_info.system in systems_all_windows) then
begin begin
FilesList:=TLinkRes.Create(outputexedir+'linkfiles.res',false); FilesList:=TLinkRes.Create(outputexedir+'linkfiles.res',false);
while not ObjectFiles.Empty do while not ObjectFiles.Empty do
@ -649,11 +647,7 @@ begin
s:=ObjectFiles.GetFirst; s:=ObjectFiles.GetFirst;
if s<>'' then if s<>'' then
begin begin
repeat s:=TargetFixFileName(s);
i:=Pos(source_info.dirsep,s);
if i>0 then
s[i]:=target_info.dirsep;
until i=0;
FilesList.Add(s); FilesList.Add(s);
end; end;
end; end;
@ -874,7 +868,7 @@ begin
Replace(cmdstr,'$MAP',mapstr); Replace(cmdstr,'$MAP',mapstr);
Replace(cmdstr,'$CATRES',CatFileContent(outputexedir+Info.ResName)); Replace(cmdstr,'$CATRES',CatFileContent(outputexedir+Info.ResName));
Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName)); Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
if (LdSupportsNoResponseFile) and (source_info.system in systems_all_windows) then if (target_info.system in systems_darwin) then
Replace(cmdstr,'$FILELIST','-filelist '+maybequoted(outputexedir+'linkfiles.res')) Replace(cmdstr,'$FILELIST','-filelist '+maybequoted(outputexedir+'linkfiles.res'))
else else
Replace(cmdstr,'$FILELIST',''); Replace(cmdstr,'$FILELIST','');
@ -931,11 +925,9 @@ begin
DeleteFile(linkscript.fn); DeleteFile(linkscript.fn);
linkscript.free linkscript.free
end; end;
end; if target_info.system in systems_darwin then
{ Remove linkfiles.res }
if (success) and (LdSupportsNoResponseFile) and (source_info.system in systems_all_windows) then
DeleteFile(outputexedir+'linkfiles.res'); DeleteFile(outputexedir+'linkfiles.res');
end;
MakeExecutable:=success; { otherwise a recursive call to link method } MakeExecutable:=success; { otherwise a recursive call to link method }
end; end;
@ -1008,7 +1000,7 @@ begin
Replace(cmdstr,'$TARGET',targetstr); Replace(cmdstr,'$TARGET',targetstr);
Replace(cmdstr,'$EMUL',EmulStr); Replace(cmdstr,'$EMUL',EmulStr);
Replace(cmdstr,'$CATRES',CatFileContent(outputexedir+Info.ResName)); Replace(cmdstr,'$CATRES',CatFileContent(outputexedir+Info.ResName));
if (LdSupportsNoResponseFile) and (source_info.system in systems_all_windows) then if (target_info.system in systems_darwin) then
Replace(cmdstr,'$FILELIST','-filelist '+maybequoted(outputexedir+'linkfiles.res')) Replace(cmdstr,'$FILELIST','-filelist '+maybequoted(outputexedir+'linkfiles.res'))
else else
Replace(cmdstr,'$FILELIST',''); Replace(cmdstr,'$FILELIST','');
@ -1090,12 +1082,11 @@ begin
linkscript.free linkscript.free
end; end;
if (target_info.system in systems_darwin) then if (target_info.system in systems_darwin) then
begin
DeleteFile(outputexedir+'linksyms.fpc'); DeleteFile(outputexedir+'linksyms.fpc');
end;
{ Remove linkfiles.res }
if (success) and (LdSupportsNoResponseFile) and (source_info.system in systems_all_windows) then
DeleteFile(outputexedir+'linkfiles.res'); DeleteFile(outputexedir+'linkfiles.res');
end;
end;
MakeSharedLibrary:=success; { otherwise a recursive call to link method } MakeSharedLibrary:=success; { otherwise a recursive call to link method }
end; end;