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

* fixed arm-linux compilation

Browse Source 
git-svn-id: trunk@4645 -
This commit is contained in:
florian 2006-09-18 19:47:52 +00:00
parent 8b841e9514
commit 90e481ef13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/math.inc
View File

@ -16,21 +16,21 @@
{$ifndef WINCE}
{$define FPC_SYSTEM_HAS_ABS}
function fpc_abs_real(d : extended) : extended;compilerproc;
function fpc_abs_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);
result:=0;
end;
{$define FPC_SYSTEM_HAS_SQR}
function fpc_sqr_real(d : extended) : extended;compilerproc;
function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);
result:=0;
end;
{$define FPC_SYSTEM_HAS_SQRT}
function fpc_sqrt_real(d : extended) : extended;compilerproc;
function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);