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

* abs(double) added

Browse Source 
* abs() alias
This commit is contained in:
peter 2004-01-06 21:34:07 +00:00
parent 1c4c818c90
commit bf56f75425
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/inc/genmath.inc
View File

@ -320,13 +320,33 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{$ifndef FPC_SYSTEM_HAS_ABS}
function fpc_abs_real(d : Real) : Real; compilerproc;
{$ifdef SUPPORT_DOUBLE}
function abs(d : Double) : Double;[public,alias:'FPC_ABS_REAL'];
begin
if (d<0.0) then
fpc_abs_real := -d
abs := -d
else
fpc_abs_real := d ;
abs := d ;
end;
{$else}
function abs(d : Real) : Real;[public,alias:'FPC_ABS_REAL'];
begin
if (d<0.0) then
abs := -d
else
abs := d ;
end;
{$endif}
{$ifdef hascompilerproc}
function fpc_abs_real(d:Real):Real;compilerproc; external name 'FPC_ABS_REAL';
{$endif hascompilerproc}
{$endif not FPC_SYSTEM_HAS_ABS}
@ -1164,7 +1184,11 @@ function fpc_int64_to_double(i : int64): double; compilerproc;
{
$Log$
Revision 1.17 2004-01-02 17:19:04 jonas
Revision 1.18 2004-01-06 21:34:07 peter
* abs(double) added
* abs() alias
Revision 1.17 2004/01/02 17:19:04 jonas
* if currency = int64, FPC_CURRENCY_IS_INT64 is defined
+ round and trunc for currency and comp if FPC_CURRENCY_IS_INT64 is
defined