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

* fixed problems caused by unifying the real data type

Browse Source 
git-svn-id: trunk@4634 -
This commit is contained in:
florian 2006-09-17 18:00:37 +00:00
parent 74a81d7f96
commit d4bf6d2aed
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/genmath.inc
View File

@ -271,7 +271,7 @@ type
End;
function fpc_trunc_real(d : real) : int64;compilerproc;
function fpc_trunc_real(d : ValReal) : int64;compilerproc;
var
{$ifdef cpuarm}
l: longint;
@ -591,7 +591,7 @@ type
{$ifndef FPC_SYSTEM_HAS_EXP}
function fpc_exp_real(d:Real):Real;compilerproc;
function fpc_exp_real(d: ValReal):ValReal;compilerproc;
{*****************************************************************}
{ Exponential Function }
{*****************************************************************}
@ -666,7 +666,7 @@ type
{$ifndef FPC_SYSTEM_HAS_ROUND}
function fpc_round_real(d : Real) : int64;compilerproc;
function fpc_round_real(d : ValReal) : int64;compilerproc;
var
fr: Real;
tr: Int64;
@ -1110,7 +1110,7 @@ type
{$ifndef FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : Real) : Real;compilerproc;
function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
begin
result := d - Int(d);
end;
@ -1253,7 +1253,7 @@ function FPower10(val: Extended; Power: Longint): Extended;
result:=1.0/0.0;
end;
end;
end;
end;
end;
{$endif SUPPORT_EXTENDED}