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

+ split the win16 executable into sections

Browse Source 
git-svn-id: trunk@42547 -
This commit is contained in:
nickysn 2019-07-31 15:09:02 +00:00
parent 05c420fad5
commit 2c4c34ef9b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_win16.pas
View File

@ -363,18 +363,26 @@ begin
end;
LinkScript.Concat('ENDGROUP');
LinkScript.Concat('EXESECTION .MZ_flat_content');
LinkScript.Concat('EXESECTION .NE_code');
LinkScript.Concat(' OBJSECTION _TEXT||CODE');
LinkScript.Concat(' OBJSECTION *||CODE');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .NE_data');
LinkScript.Concat(' OBJSECTION *||FAR_DATA');
LinkScript.Concat(' OBJSECTION _NULL||BEGDATA');
LinkScript.Concat(' OBJSECTION _AFTERNULL||BEGDATA');
LinkScript.Concat(' OBJSECTION *||BEGDATA');
LinkScript.Concat(' OBJSECTION *||DATA');
LinkScript.Concat(' SYMBOL _edata');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .NE_bss');
LinkScript.Concat(' OBJSECTION *||BSS');
LinkScript.Concat(' SYMBOL _end');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .NE_stack');
LinkScript.Concat(' OBJSECTION *||STACK');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .NE_localheap');
LinkScript.Concat(' OBJSECTION *||HEAP');
LinkScript.Concat('ENDEXESECTION');