paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:30:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

some more generic i8086 defines added

Browse Source 
git-svn-id: branches/i8086@23712 -
This commit is contained in:
nickysn 2013-03-07 22:46:00 +00:00
parent 94e8690e2e
commit a9809323dc
4 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/fpcdefs.inc
View File

@ -42,6 +42,20 @@
{$packrecords c}
{$endif cpuarm}
{$ifdef i8086}
{$define cpu16bit}
{$define cpu16bitaddr}
{$define cpu16bitalu}
{$define x86}
{$define cpuflags}
{$define cpuextended}
{//$define SUPPORT_MMX}
{$define cpumm}
{$define fewintregisters}
{$define cpurox}
{$define SUPPORT_SAFECALL}
{$endif i8086}
{$ifdef i386}
{$define cpu32bit}
{$define cpu32bitaddr}

8
compiler/options.pas
View File

@ -2960,6 +2960,14 @@ begin
def_system_macro('FPC_LOCALS_ARE_STACK_REG_RELATIVE');
{$endif}
{$ifdef i8086}
def_system_macro('CPU86'); { Borland compatibility }
def_system_macro('CPU87'); { Borland compatibility }
def_system_macro('CPU8086');
def_system_macro('CPUI8086');
def_system_macro('CPU16');
{$endif i8086}
{ Set up a default prefix for binutils when cross-compiling }
if source_info.system<>target_info.system then
case target_info.system of

6
compiler/symconst.pas
View File

@ -659,6 +659,12 @@ inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has
}
pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];
{$endif}
{$ifdef i8086}
{ we only take this into account on i386, on other platforms we always
push in the same order
}
pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];
{$endif}
SymTypeName : array[tsymtyp] of string[12] = (
'abstractsym','globalvar','localvar','paravar','fieldvar',

3
compiler/symdef.pas
View File

@ -888,6 +888,9 @@ interface
java_procvarbase : tobjectdef;
const
{$ifdef i8086}
pbestrealtype : ^tdef = @s80floattype;
{$endif}
{$ifdef i386}
pbestrealtype : ^tdef = @s80floattype;
{$endif}