paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 21:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the 'FAR_DATA' segment class name instead of 'DATA' or 'BSS' in the huge

Browse Source 
memory model

git-svn-id: trunk@31497 -
This commit is contained in:
nickysn 2015-09-03 17:53:15 +00:00
parent cfab5d3d3e
commit f14f4ff924
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/omfbase.pas
View File

@ -1768,6 +1768,11 @@ implementation
); );
begin begin
result:=segclass[atype]; result:=segclass[atype];
{$ifdef i8086}
if (current_settings.x86memorymodel=mm_huge) and
((result='DATA') or (result='BSS')) then
result:='FAR_DATA';
{$endif i8086}
end; end;
function omf_sectiontype2align(atype: TAsmSectiontype): shortint; function omf_sectiontype2align(atype: TAsmSectiontype): shortint;
@ -1806,6 +1811,8 @@ implementation
case omf_segclass(atype) of case omf_segclass(atype) of
'CODE': 'CODE':
result:=current_settings.x86memorymodel=mm_tiny; result:=current_settings.x86memorymodel=mm_tiny;
'FAR_DATA':
result:=false;
'DATA', 'DATA',
'BSS': 'BSS':
result:=true; result:=true;