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

* make x86memorymodel i8086 only

Browse Source 
git-svn-id: trunk@25369 -
This commit is contained in:
florian 2013-08-25 21:56:08 +00:00
parent bf3e48d8e0
commit 6e7edf1933
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/globals.pas
View File

@ -154,11 +154,13 @@ interface
disabledircache : boolean; disabledircache : boolean;
{$if defined(i8086)}
x86memorymodel : tx86memorymodel; x86memorymodel : tx86memorymodel;
{$endif}
{ CPU targets with microcontroller support can add a controller specific unit } { CPU targets with microcontroller support can add a controller specific unit }
{$if defined(ARM) or defined(AVR)} {$if defined(ARM) or defined(AVR)}
controllertype : tcontrollertype; controllertype : tcontrollertype;
{$endif defined(ARM) or defined(AVR)} {$endif defined(ARM) or defined(AVR)}
{ WARNING: this pointer cannot be written as such in record token } { WARNING: this pointer cannot be written as such in record token }
pmessage : pmessagestaterecord; pmessage : pmessagestaterecord;
@ -479,7 +481,9 @@ interface
minfpconstprec : s32real; minfpconstprec : s32real;
disabledircache : false; disabledircache : false;
{$if defined(i8086)}
x86memorymodel : mm_small; x86memorymodel : mm_small;
{$endif defined(i8086)}
{$if defined(ARM) or defined(AVR)} {$if defined(ARM) or defined(AVR)}
controllertype : ct_none; controllertype : ct_none;
{$endif defined(ARM) or defined(AVR)} {$endif defined(ARM) or defined(AVR)}

2
compiler/options.pas
View File

@ -1847,6 +1847,7 @@ begin
end; end;
'm': 'm':
begin begin
{$if defined(i8086)}
if (target_info.system in [system_i8086_msdos]) then if (target_info.system in [system_i8086_msdos]) then
begin begin
case Upper(Copy(More,j+1,255)) of case Upper(Copy(More,j+1,255)) of
@ -1862,6 +1863,7 @@ begin
break; break;
end end
else else
{$endif defined(i8086)}
IllegalPara(opt); IllegalPara(opt);
end; end;
'M': 'M':