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

* round returns int64

Browse Source
This commit is contained in:
carl 2002-10-12 20:28:49 +00:00
parent b701f612ed
commit c3d641ec0e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/genmath.inc
View File

@ -541,7 +541,7 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{$ifndef FPC_SYSTEM_HAS_ROUND} {$ifndef FPC_SYSTEM_HAS_ROUND}
function Round(d: Real): longint;[internconst:in_const_round]; function Round(d: Real): int64;[internconst:in_const_round];
var var
fr: Real; fr: Real;
tr: Real; tr: Real;
@ -1020,7 +1020,10 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{ {
$Log$ $Log$
Revision 1.8 2002-10-07 15:15:02 florian Revision 1.9 2002-10-12 20:28:49 carl
* round returns int64
Revision 1.8 2002/10/07 15:15:02 florian
* fixed wrong commit * fixed wrong commit
Revision 1.7 2002/10/07 15:10:45 florian Revision 1.7 2002/10/07 15:10:45 florian