paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 15:40:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed round(currency) after r18746 (in particular on platforms where

Browse Source 
currency is implemented via int64)

git-svn-id: trunk@21096 -
This commit is contained in:
Jonas Maebe 2012-04-28 13:00:15 +00:00
parent 54f3db3141
commit aa92d78c46
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/gencurr.inc
View File

@ -37,7 +37,9 @@
{ (int64(tmyrec(c))(+/-)5000) div 10000 can overflow }
result := int64(c);
rem := c - currency(result);
absrem := abs(rem);
absrem := rem;
if absrem < 0 then
absrem := -absrem;
if (absrem > 0.5) or
((absrem = 0.5) and
(rem > 0)) then