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

- Don't compile fpc_abs_real and fpc_sqr_real if they are already defined (Mantis #25342).

Browse Source 
git-svn-id: trunk@27408 -
This commit is contained in:
sergei 2014-03-31 10:10:04 +00:00
parent b2813cc627
commit fff45fa1d3
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/arm/math.inc
View File

@ -15,6 +15,7 @@
**********************************************************************} **********************************************************************}
{$if defined(FPUFPA) or defined(FPUFPA10) or defined(FPUFPA11) or defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)} {$if defined(FPUFPA) or defined(FPUFPA10) or defined(FPUFPA11) or defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)}
{$ifndef FPC_SYSTEM_HAS_ABS}
{$define FPC_SYSTEM_HAS_ABS} {$define FPC_SYSTEM_HAS_ABS}
function fpc_abs_real(d : ValReal) : ValReal;compilerproc; function fpc_abs_real(d : ValReal) : ValReal;compilerproc;
begin begin
@ -22,6 +23,8 @@
runerror(207); runerror(207);
result:=0; result:=0;
end; end;
{$endif FPC_SYSTEM_HAS_ABS}
{$ifndef FPC_SYSTEM_HAS_SQR}
{$define FPC_SYSTEM_HAS_SQR} {$define FPC_SYSTEM_HAS_SQR}
function fpc_sqr_real(d : ValReal) : ValReal;compilerproc; function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;
begin begin
@ -29,6 +32,7 @@
runerror(207); runerror(207);
result:=0; result:=0;
end; end;
{$endif FPC_SYSTEM_HAS_SQR}
{$ifndef FPC_SYSTEM_HAS_SQRT} {$ifndef FPC_SYSTEM_HAS_SQRT}
{$define FPC_SYSTEM_HAS_SQRT} {$define FPC_SYSTEM_HAS_SQRT}
function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc; function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;