|
|
@@ -63,7 +63,7 @@ interface
|
|
|
|
|
|
type
|
|
|
TCpu=(
|
|
|
- c_i386,c_m68k,c_powerpc,c_sparc,c_x86_64,c_arm,c_powerpc64,c_avr,c_armeb,c_armel,c_mips,c_mipsel,c_mips64,c_mips64el,c_jvm
|
|
|
+ c_i386,c_m68k,c_powerpc,c_sparc,c_x86_64,c_arm,c_powerpc64,c_avr,c_armeb,c_armel,c_mips,c_mipsel,c_mips64,c_mips64el,c_jvm,c_i8086
|
|
|
);
|
|
|
|
|
|
TOS=(
|
|
|
@@ -71,22 +71,22 @@ interface
|
|
|
o_amiga,o_atari, o_solaris, o_qnx, o_netware, o_openbsd,o_wdosx,
|
|
|
o_palmos,o_macos,o_darwin,o_emx,o_watcom,o_morphos,o_netwlibc,
|
|
|
o_win64,o_wince,o_gba,o_nds,o_embedded,o_symbian,o_nativent,o_iphonesim,
|
|
|
- o_wii,o_aix,o_java,o_android
|
|
|
+ o_wii,o_aix,o_java,o_android,o_msdos
|
|
|
);
|
|
|
|
|
|
TTargetSet=array[tcpu,tos] of boolean;
|
|
|
|
|
|
const
|
|
|
CpuStr : array[TCpu] of string=(
|
|
|
- 'i386','m68k','powerpc','sparc','x86_64','arm','powerpc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el', 'jvm'
|
|
|
+ 'i386','m68k','powerpc','sparc','x86_64','arm','powerpc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el', 'jvm','i8086'
|
|
|
);
|
|
|
|
|
|
CpuSuffix : array[TCpu] of string=(
|
|
|
- '_i386','_m68k','_powerpc','_sparc','_x86_64','_arm','_powerpc64','avr','_armeb', '_armel', '_mips', '_mipsel', '_mips64', '_mips64el', '_jvm'
|
|
|
+ '_i386','_m68k','_powerpc','_sparc','_x86_64','_arm','_powerpc64','avr','_armeb', '_armel', '_mips', '_mipsel', '_mips64', '_mips64el', '_jvm','_i8086'
|
|
|
);
|
|
|
|
|
|
ppcSuffix : array[TCpu] of string=(
|
|
|
- '386','m68k','ppc','sparc','x86_64','arm','ppc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el', 'jvm'
|
|
|
+ '386','m68k','ppc','sparc','x86_64','arm','ppc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el', 'jvm','8086'
|
|
|
);
|
|
|
|
|
|
OSStr : array[TOS] of string=(
|
|
|
@@ -94,7 +94,7 @@ interface
|
|
|
'amiga','atari','solaris', 'qnx', 'netware','openbsd','wdosx',
|
|
|
'palmos','macos','darwin','emx','watcom','morphos','netwlibc',
|
|
|
'win64','wince','gba','nds','embedded','symbian','nativent',
|
|
|
- 'iphonesim', 'wii', 'aix', 'java', 'android'
|
|
|
+ 'iphonesim', 'wii', 'aix', 'java', 'android', 'msdos'
|
|
|
);
|
|
|
|
|
|
OSSuffix : array[TOS] of string=(
|
|
|
@@ -102,46 +102,47 @@ interface
|
|
|
'_amiga','_atari','_solaris', '_qnx', '_netware','_openbsd','_wdosx',
|
|
|
'_palmos','_macos','_darwin','_emx','_watcom','_morphos','_netwlibc',
|
|
|
'_win64','_wince','_gba','_nds','_embedded','_symbian','_nativent',
|
|
|
- '_iphonesim','_wii','_aix','_java','_android'
|
|
|
+ '_iphonesim','_wii','_aix','_java','_android','_msdos'
|
|
|
);
|
|
|
|
|
|
{ This table is kept OS,Cpu because it is easier to maintain (PFV) }
|
|
|
OSCpuPossible : array[TOS,TCpu] of boolean = (
|
|
|
- { os i386 m68k ppc sparc x86_64 arm ppc64 avr armeb armel mips mipsel mips64 misp64el jvm }
|
|
|
- { linux } ( true, true, true, true, true, true, true, false, true, false, true, true, false, false, false),
|
|
|
- { go32v2 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { win32 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { os2 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { freebsd } ( true, true, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { beos } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { haiku } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { netbsd } ( true, true, true, true, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { amiga } ( false, true, true, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { atari } ( false, true, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { solaris } ( true, false, false, true, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { qnx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { netware } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { openbsd } ( true, true, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { wdosx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { palmos } ( false, true, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
- { macos } ( false, false, true, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { darwin } ( true, false, true, false, true, true, true, false, false, false, false, false, false, false, false),
|
|
|
- { emx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { watcom } ( true, false, false, false ,false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { morphos } ( false, false, true, false ,false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { netwlibc }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { win64 } ( false, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { wince }( true, false, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
- { gba } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
- { nds } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
- { embedded }( true, true, true, true, true, true, true, true, true , false, false, false, false, false, false),
|
|
|
- { symbian } ( true, false, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
- { nativent }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { iphonesim }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { wii } ( false, false, true, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
- { aix } ( false, false, true, false, false, false, true, false, false, false, false, false, false, false, false),
|
|
|
- { java } ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, true),
|
|
|
- { android } ( true, false, false, false, false, true, false, false, false, false, false, false, false, false, true)
|
|
|
+ { os i386 m68k ppc sparc x86_64 arm ppc64 avr armeb armel mips mipsel mips64 misp64el jvm i8086 }
|
|
|
+ { linux } ( true, true, true, true, true, true, true, false, true, false, true, true, false, false, false, false),
|
|
|
+ { go32v2 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { win32 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { os2 } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { freebsd } ( true, true, false, false, true, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { beos } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { haiku } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { netbsd } ( true, true, true, true, true, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { amiga } ( false, true, true, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { atari } ( false, true, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { solaris } ( true, false, false, true, true, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { qnx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { netware } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { openbsd } ( true, true, false, false, true, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { wdosx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { palmos } ( false, true, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { macos } ( false, false, true, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { darwin } ( true, false, true, false, true, true, true, false, false, false, false, false, false, false, false, false),
|
|
|
+ { emx } ( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { watcom } ( true, false, false, false ,false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { morphos } ( false, false, true, false ,false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { netwlibc }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { win64 } ( false, false, false, false, true, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { wince }( true, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { gba } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { nds } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { embedded }( true, true, true, true, true, true, true, true, true , false, false, false, false, false, false, false),
|
|
|
+ { symbian } ( true, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { nativent }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { iphonesim }( true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { wii } ( false, false, true, false, false, false, false, false, false, false, false, false, false, false, false, false),
|
|
|
+ { aix } ( false, false, true, false, false, false, true, false, false, false, false, false, false, false, false, false),
|
|
|
+ { java } ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, true, false),
|
|
|
+ { android } ( true, false, false, false, false, true, false, false, false, false, false, false, false, false, true, false),
|
|
|
+ { msdos } ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true)
|
|
|
);
|
|
|
|
|
|
type
|
florian