paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Christo Crause to fix : writing of linker commands should not depent in -s

Browse Source 
git-svn-id: trunk@49267 -
This commit is contained in:
florian 2021-04-26 20:52:02 +00:00
parent 4391075617
commit 1b22962140
1 changed files with 17 additions and 2 deletions

19
compiler/systems/t_freertos.pas
View File

@ -955,6 +955,8 @@ var
t: Text;
hp: TCmdStrListItem;
filepath: TCmdStr;
i,j: integer;
lib: AnsiString;
{$endif XTENSA}
begin
{$ifdef XTENSA}
@ -1139,6 +1141,20 @@ begin
if ioresult<>0 then
exit;
{ extract libraries from linker options and add to static libraries list }
Info.ExtraOptions:=trim(Info.ExtraOptions);
i := pos('-l', Info.ExtraOptions);
while i > 0 do
begin
j:=pos(' ',Info.ExtraOptions);
if j=0 then
j:=length(Info.ExtraOptions)+1;
lib:=copy(Info.ExtraOptions,i+2,j-i-2);
AddStaticCLibrary(lib);
delete(Info.ExtraOptions,i,j);
trim(Info.ExtraOptions);
i := pos('-l', Info.ExtraOptions);
end;
hp:=TCmdStrListItem(StaticLibFiles.First);
while assigned(hp) do
begin
@ -1256,8 +1272,7 @@ begin
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
end;
if success and not(cs_link_nolink in current_settings.globalswitches) then
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile }
if success and not(cs_link_nolink in current_settings.globalswitches) then