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

* continued to fix mips rtl compilation

Browse Source 
git-svn-id: trunk@20257 -
This commit is contained in:
florian 2012-02-04 22:52:59 +00:00
parent 30d9afe879
commit b8f322e0de
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/mips/math.inc
View File

@ -14,8 +14,6 @@
**********************************************************************} **********************************************************************}
{$ifdef INTERNCONSTINTF}
{$ifndef FPC_SYSTEM_HAS_ABS} {$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;
@ -46,15 +44,3 @@
end; end;
{$endif} {$endif}
{$else}
{$define FPC_SYSTEM_HAS_ABS}
function abs(d : extended) : extended;[internproc:fpc_in_abs_real];
{$define FPC_SYSTEM_HAS_SQR}
function sqr(d : extended) : extended;[internproc:fpc_in_sqr_real];
{$define FPC_SYSTEM_HAS_SQRT}
function sqrt(d : extended) : extended;[internproc:fpc_in_sqrt_real];
{$endif}