paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 06:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ position the 'FAR_DATA' segments after the 'CODE' segments and before the

Browse Source 
regular 'DATA' segments

git-svn-id: trunk@31498 -
This commit is contained in:
nickysn 2015-09-03 17:57:27 +00:00
parent f14f4ff924
commit 97f65d350d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/systems/t_msdos.pas
View File

@ -296,7 +296,7 @@ begin
if current_settings.x86memorymodel=mm_tiny then
LinkRes.Add('order clname CODE clname DATA clname BSS')
else
LinkRes.Add('order clname CODE clname BEGDATA segment _NULL segment _AFTERNULL clname DATA clname BSS clname STACK clname HEAP');
LinkRes.Add('order clname CODE clname FAR_DATA clname BEGDATA segment _NULL segment _AFTERNULL clname DATA clname BSS clname STACK clname HEAP');
if (cs_link_map in current_settings.globalswitches) then
LinkRes.Add('option map='+maybequoted(ChangeFileExt(current_module.exefilename,'.map')));
LinkRes.Add('name ' + maybequoted(current_module.exefilename));
@ -462,7 +462,6 @@ begin
LinkScript.Concat('EXESECTION .MZ_flat_content');
if current_settings.x86memorymodel=mm_tiny then
begin
{LinkRes.Add('order clname CODE clname DATA clname BSS')}
LinkScript.Concat(' OBJSECTION *||CODE');
LinkScript.Concat(' OBJSECTION *||DATA');
LinkScript.Concat(' SYMBOL _edata');
@ -471,9 +470,9 @@ begin
end
else
begin
{LinkRes.Add('order clname CODE clname BEGDATA segment _NULL segment _AFTERNULL clname DATA clname BSS clname STACK clname HEAP');}
LinkScript.Concat(' OBJSECTION _TEXT||CODE');
LinkScript.Concat(' OBJSECTION *||CODE');
LinkScript.Concat(' OBJSECTION *||FAR_DATA');
LinkScript.Concat(' OBJSECTION _NULL||BEGDATA');
LinkScript.Concat(' OBJSECTION _AFTERNULL||BEGDATA');
LinkScript.Concat(' OBJSECTION *||BEGDATA');