paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 14:06:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WinCE compilation fixed

Browse Source 
git-svn-id: trunk@6938 -
This commit is contained in:
florian 2007-03-20 10:09:54 +00:00
parent 30b78920cd
commit 922b387980
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/options.pas
View File

@ -2158,10 +2158,6 @@ begin
def_system_macro('FPC_ABI_AIX'); def_system_macro('FPC_ABI_AIX');
end; end;
{ CPU Define }
def_system_macro('CPU'+Cputypestr[init_settings.cputype]);
def_system_macro('FPU'+fputypestr[init_settings.fputype]);
{ Check file to compile } { Check file to compile }
if param_file='' then if param_file='' then
begin begin
@ -2301,7 +2297,17 @@ begin
or (init_settings.fputype=fpu_soft) or (init_settings.fputype=fpu_soft)
{$endif arm} {$endif arm}
then then
include(init_settings.moduleswitches,cs_fp_emulation); begin
include(init_settings.moduleswitches,cs_fp_emulation);
{ cs_fp_emulation and fpu_soft are equal on arm }
init_settings.fputype:=fpu_soft;
end;
{ now we can defined cpu and cpu type }
def_system_macro('CPU'+Cputypestr[init_settings.cputype]);
def_system_macro('FPU'+fputypestr[init_settings.fputype]);
{$ifdef ARM} {$ifdef ARM}
{ define FPC_DOUBLE_HILO_SWAPPED if needed to properly handle doubles in RTL } { define FPC_DOUBLE_HILO_SWAPPED if needed to properly handle doubles in RTL }