paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +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
result:=segclass[atype];
{$ifdef i8086}
if (current_settings.x86memorymodel=mm_huge) and
((result='DATA') or (result='BSS')) then
result:='FAR_DATA';
{$endif i8086}
end;
function omf_sectiontype2align(atype: TAsmSectiontype): shortint;
@ -1806,6 +1811,8 @@ implementation
case omf_segclass(atype) of
'CODE':
result:=current_settings.x86memorymodel=mm_tiny;
'FAR_DATA':
result:=false;
'DATA',
'BSS':
result:=true;