paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: set palmos to use 68000 and no FPU by default

Browse Source 
git-svn-id: trunk@37916 -
This commit is contained in:
Károly Balogh 2018-01-06 08:43:20 +00:00
parent 273045c295
commit 75158d02ca
1 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/options.pas
View File

@ -4070,16 +4070,33 @@ begin
{$endif mipsel}
{$ifdef m68k}
if init_settings.cputype in cpu_coldfire then
def_system_macro('CPUCOLDFIRE')
else
if (target_info.system in [system_m68k_linux,system_m68k_netbsd]) and
not (option.FPUSetExplicitly) then
def_system_macro('CPUCOLDFIRE');
case target_info.system of
system_m68k_linux,
system_m68k_netbsd:
begin
{ enable HW FPU for UNIX by default, but only for
original 68k, not Coldfire }
exclude(init_settings.moduleswitches,cs_fp_emulation);
init_settings.fputype:=fpu_68881;
if not (option.FPUSetExplicitly) and
not (init_settings.cputype in cpu_coldfire) then
begin
{ enable HW FPU for UNIX by default, but only for
original 68k, not Coldfire }
exclude(init_settings.moduleswitches,cs_fp_emulation);
init_settings.fputype:=fpu_68881;
end;
end;
system_m68k_palmos:
begin
if not option.CPUSetExplicitly then
init_settings.cputype:=cpu_mc68000;
if not (option.FPUSetExplicitly) then
begin
{ No FPU for PalmOS by default }
exclude(init_settings.moduleswitches,cs_fp_emulation);
init_settings.fputype:=fpu_none;
end;
end;
end;
{$endif m68k}
{ now we can define cpu and fpu type }