paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +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');
end;
{ CPU Define }
def_system_macro('CPU'+Cputypestr[init_settings.cputype]);
def_system_macro('FPU'+fputypestr[init_settings.fputype]);
{ Check file to compile }
if param_file='' then
begin
@ -2301,7 +2297,17 @@ begin
or (init_settings.fputype=fpu_soft)
{$endif arm}
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}
{ define FPC_DOUBLE_HILO_SWAPPED if needed to properly handle doubles in RTL }