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

* check used fpu type properly

Browse Source 
git-svn-id: trunk@6786 -
This commit is contained in:
florian 2007-03-11 17:17:06 +00:00
parent fb1afe0ea4
commit fd6fdfe896
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/arm/math.inc
View File

@ -14,7 +14,7 @@
**********************************************************************} **********************************************************************}
{$ifndef WINCE} {$if defined(FPUFPA) or defined(FPUFPA10) or defined(FPUFPA11)}
{$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
@ -36,6 +36,7 @@
runerror(207); runerror(207);
result:=0; result:=0;
end; end;
{$endif}
(* atn isn't supported by the linux fpe it seems (* atn isn't supported by the linux fpe it seems
{$define FPC_SYSTEM_HAS_ARCTAN} {$define FPC_SYSTEM_HAS_ARCTAN}
function fpc_arctan_real(d : extended) : extended;compilerproc; function fpc_arctan_real(d : extended) : extended;compilerproc;
@ -72,4 +73,3 @@
result:=0; result:=0;
end; end;
*) *)
{$endif WINCE}