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

Completely disable Round functions if FPUNONE is defined, to fix avr builds without flaot support

Browse Source 
git-svn-id: trunk@43305 -
This commit is contained in:
pierre 2019-10-23 06:38:10 +00:00
parent a18e0c4884
commit d80734b412
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/iso7185.pp
View File

@ -52,10 +52,9 @@ unit iso7185;
Function Eof(var f:TypedFile): Boolean;
{$ifdef FPC_CURRENCY_IS_INT64}
{$ifndef FPUNONE}
{$ifdef FPC_CURRENCY_IS_INT64}
function round(c : currency) : int64;
{$endif FPUNONE}
{$ifndef cpujvm}
function round(c : comp) : int64;
{$else not cpujvm}
@ -63,6 +62,7 @@ unit iso7185;
{$endif not cpujvm}
{$endif FPC_CURRENCY_IS_INT64}
function Round(d : ValReal) : int64;
{$endif FPUNONE}
implementation
@ -250,8 +250,8 @@ unit iso7185;
End;
{$ifdef FPC_CURRENCY_IS_INT64}
{$ifndef FPUNONE}
{$ifdef FPC_CURRENCY_IS_INT64}
function round(c : currency) : int64;
begin
if c>=0.0 then
@ -259,7 +259,6 @@ unit iso7185;
else
Round:=Trunc(c-0.5);
end;
{$endif FPUNONE}
{$ifndef cpujvm}
@ -289,6 +288,7 @@ unit iso7185;
else
Round:=Trunc(d-0.5);
end;
{$endif FPUNONE}
begin
{ we shouldn't do this because it might confuse user programs, but for now it