paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 19:18:35 +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;
{$endif FPC_HAS_FEATURE_COMMANDARGS}
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU}
{$define fpc_softfpu_interface}
@ -86,6 +87,7 @@ property cmdline:Pchar read get_cmdline;
{$undef fpc_softfpu_interface}
{$endif FPC_HAS_FEATURE_SOFTFPU}
{$endif FPUNONE}
{*****************************************************************************}
implementation
@ -95,11 +97,13 @@ property cmdline:Pchar read get_cmdline;
const calculated_cmdline:Pchar=nil;
{$ifndef FPUNONE}
{$ifdef FPC_HAS_FEATURE_SOFTFPU}
{$define fpc_softfpu_implementation}
{$i softfpu.pp}
{$undef fpc_softfpu_implementation}
{$endif FPUNONE}
{ we get these functions and types from the softfpu code }
{$define FPC_SYSTEM_HAS_float64}