Browse Source

Merge commit #43305 into fixes branch.
------------------------------------------------------------------------
r43305 | pierre | 2019-10-23 06:38:10 +0000 (Wed, 23 Oct 2019) | 1 line

Completely disable Round functions if FPUNONE is defined, to fix avr builds without flaot support
------------------------------------------------------------------------
--- Merging r43305 into '.':
U rtl/inc/iso7185.pp
--- Recording mergeinfo for merge of r43305 into '.':
U .

git-svn-id: branches/fixes_3_2@44701 -

pierre 5 years ago
parent
commit
a4758f3560
1 changed files with 4 additions and 4 deletions
  1. 4 4
      rtl/inc/iso7185.pp

+ 4 - 4
rtl/inc/iso7185.pp

@@ -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