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

+ only include softfpu if FPUNONE is not set

Browse Source 
git-svn-id: trunk@17012 -
This commit is contained in:
florian 2011-02-26 20:10:49 +00:00
parent 26fbfaf5a7
commit c2f04796b9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/embedded/system.pp
View File

@ -79,6 +79,7 @@ function get_cmdline:Pchar;
property cmdline:Pchar read get_cmdline; property cmdline:Pchar read get_cmdline;
{$endif FPC_HAS_FEATURE_COMMANDARGS} {$endif FPC_HAS_FEATURE_COMMANDARGS}
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU} {$ifdef FPC_HAS_FEATURE_SOFTFPU}
{$define fpc_softfpu_interface} {$define fpc_softfpu_interface}
@ -86,6 +87,7 @@ property cmdline:Pchar read get_cmdline;
{$undef fpc_softfpu_interface} {$undef fpc_softfpu_interface}
{$endif FPC_HAS_FEATURE_SOFTFPU} {$endif FPC_HAS_FEATURE_SOFTFPU}
{$endif FPUNONE}
{*****************************************************************************} {*****************************************************************************}
implementation implementation
@ -95,11 +97,13 @@ property cmdline:Pchar read get_cmdline;
const calculated_cmdline:Pchar=nil; const calculated_cmdline:Pchar=nil;
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU} {$ifdef FPC_HAS_FEATURE_SOFTFPU}
{$define fpc_softfpu_implementation} {$define fpc_softfpu_implementation}
{$i softfpu.pp} {$i softfpu.pp}
{$undef fpc_softfpu_implementation} {$undef fpc_softfpu_implementation}
{$endif FPUNONE}
{ we get these functions and types from the softfpu code } { we get these functions and types from the softfpu code }
{$define FPC_SYSTEM_HAS_float64} {$define FPC_SYSTEM_HAS_float64}