paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 04:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add amstradcpc OS support for fpcmake and fpmkunit

Browse Source 
git-svn-id: trunk@46241 -
This commit is contained in:
pierre 2020-08-05 09:05:14 +00:00
parent 299799c33c
commit 738c11199b
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fpmkunit/src/fpmkunit.pp
View File

@ -122,7 +122,7 @@ Type
palmos,macosclassic,darwin,emx,watcom,morphos,netwlibc,
win64,wince,gba,nds,embedded,symbian,haiku,iphonesim,
aix,java,android,nativent,msdos,wii,aros,dragonfly,
win16,wasm,freertos,zxspectrum,msxdos,ios
win16,wasm,freertos,zxspectrum,msxdos,ios,amstradcpc
);
TOSes = Set of TOS;
@ -230,7 +230,8 @@ Const
{ freertos }( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true , false),
{zxspectrum}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true ),
{ msxdos } ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true ),
{ ios } ( false, false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, true , false, false, false, false, false, false)
{ ios } ( false, false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, true , false, false, false, false, false, false),
{amstradcpc}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true )
);
// Useful

9
utils/fpcm/fpcmmain.pp
View File

@ -78,7 +78,7 @@ interface
o_palmos,o_macosclassic,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_msdos,o_aros,o_dragonfly,o_win16,o_wasm,o_freertos,
o_zxspectrum,o_msxdos,o_ios
o_zxspectrum,o_msxdos,o_ios,o_amstradcpc
);
TTargetSet=array[tcpu,tos] of boolean;
@ -103,7 +103,7 @@ interface
'win64','wince','gba','nds','embedded','symbian','nativent',
'iphonesim', 'wii', 'aix', 'java', 'android', 'msdos', 'aros',
'dragonfly', 'win16', 'wasm', 'freertos', 'zxspectrum', 'msxdos',
'ios'
'ios','amstradcpc'
);
OSSuffix : array[TOS] of string=(
@ -113,7 +113,7 @@ interface
'_win64','_wince','_gba','_nds','_embedded','_symbian','_nativent',
'_iphonesim','_wii','_aix','_java','_android','_msdos','_aros',
'_dragonfly','_win16','_wasm','_freertos','_zxspectrum','_msxdos',
'_ios'
'_ios','_amstradcpc'
);
{ This table is kept OS,Cpu because it is easier to maintain (PFV) }
@ -161,7 +161,8 @@ interface
{ freertos }( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true, false),
{zxspectrum}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true),
{ msxdos} ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true),
{ ios } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false, true , false, false, false, false, false, false)
{ ios } ( false, false, false, false, false, true, false, false, false, false, false, false, false, false, false, false, true , false, false, false, false, false, false),
{amstradcpc}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, true)
);
type