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

+ set IMAGEBASE in the Z80 internal linker script

Browse Source 
git-svn-id: trunk@45568 -
This commit is contained in:
nickysn 2020-06-02 23:01:07 +00:00
parent b29257fd05
commit 4a5a2f5ba2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/systems/t_zxspectrum.pas
View File

@ -61,6 +61,8 @@ implementation
{ TInternalLinkerZXSpectrum }
TInternalLinkerZXSpectrum=class(tinternallinker)
private
FOrigin: Word;
protected
procedure DefaultLinkScript;override;
function GetCodeSize(aExeOutput: TExeOutput): QWord;override;
@ -360,6 +362,8 @@ procedure TInternalLinkerZXSpectrum.DefaultLinkScript;
end;
LinkScript.Concat('ENDGROUP');
LinkScript.Concat('IMAGEBASE '+tostr(FOrigin));
LinkScript.Concat('EXESECTION .text');
LinkScript.Concat(' OBJSECTION _CODE');
LinkScript.Concat('ENDEXESECTION');
@ -396,6 +400,7 @@ constructor TInternalLinkerZXSpectrum.create;
CArObjectReader:=TArObjectReader;
CExeOutput:=TIntelHexExeOutput;
CObjInput:=TRelObjInput;
FOrigin:={32768}23800;
end;
procedure TInternalLinkerZXSpectrum.InitSysInitUnitName;