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

+ write the origin to the linker map file

Browse Source 
git-svn-id: branches/z80@44859 -
This commit is contained in:
nickysn 2020-04-19 16:20:29 +00:00
parent f8d69601f2
commit 77058d0877
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_zxspectrum.pas
View File

@ -79,6 +79,9 @@ function TLinkerZXSpectrum_SdccSdld.WriteResponseFile: Boolean;
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
{ Write the origin (i.e. the program load address) }
LinkRes.Add('-b _CODE='+tostr(FOrigin));
{ Write path to search libraries }
(* HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
@ -214,7 +217,7 @@ procedure TLinkerZXSpectrum_SdccSdld.SetDefaultInfo;
FOrigin:=32768;
with Info do
begin
ExeCmd[1]:=ExeName+' -n -b _CODE=$ORIGIN $OPT -i $MAP $EXE -f $RES'
ExeCmd[1]:=ExeName+' -n $OPT -i $MAP $EXE -f $RES'
end;
end;
@ -251,7 +254,6 @@ function TLinkerZXSpectrum_SdccSdld.MakeExecutable: boolean;
{ Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$ORIGIN',tostr(FOrigin));
if not(cs_link_on_target in current_settings.globalswitches) then
begin
Replace(cmdstr,'$EXE',FixedExeFileName);