فهرست منبع

+ add .text, .data and .bss exe sections and define the entry point in the ZX Spectrum internal linker script

git-svn-id: trunk@45560 -
nickysn 5 سال پیش
والد
کامیت
a91b42bd8d
1فایلهای تغییر یافته به همراه14 افزوده شده و 0 حذف شده
  1. 14 0
      compiler/systems/t_zxspectrum.pas

+ 14 - 0
compiler/systems/t_zxspectrum.pas

@@ -359,6 +359,20 @@ procedure TInternalLinkerZXSpectrum.DefaultLinkScript;
           end;
       end;
     LinkScript.Concat('ENDGROUP');
+
+    LinkScript.Concat('EXESECTION .text');
+    LinkScript.Concat('  OBJSECTION _CODE');
+    LinkScript.Concat('ENDEXESECTION');
+    LinkScript.Concat('EXESECTION .data');
+    LinkScript.Concat('  OBJSECTION _DATA');
+    LinkScript.Concat('ENDEXESECTION');
+    LinkScript.Concat('EXESECTION .bss');
+    LinkScript.Concat('  OBJSECTION .bss');
+    LinkScript.Concat('  OBJSECTION .heap');
+    LinkScript.Concat('  OBJSECTION .stack');
+    LinkScript.Concat('ENDEXESECTION');
+
+    LinkScript.Concat('ENTRYNAME start');
   end;
 
 function TInternalLinkerZXSpectrum.GetCodeSize(aExeOutput: TExeOutput): QWord;