paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +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;
{$if defined(i8086)}
x86memorymodel : tx86memorymodel;
{$endif}
{ CPU targets with microcontroller support can add a controller specific unit }
{$if defined(ARM) or defined(AVR)}
controllertype : tcontrollertype;
controllertype : tcontrollertype;
{$endif defined(ARM) or defined(AVR)}
{ WARNING: this pointer cannot be written as such in record token }
pmessage : pmessagestaterecord;
@ -479,7 +481,9 @@ interface
minfpconstprec : s32real;
disabledircache : false;
{$if defined(i8086)}
x86memorymodel : mm_small;
{$endif defined(i8086)}
{$if defined(ARM) or defined(AVR)}
controllertype : ct_none;
{$endif defined(ARM) or defined(AVR)}

2
compiler/options.pas
View File

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