diff options
Diffstat (limited to 'gcc/ada/eval_fat.adb')
| -rw-r--r-- | gcc/ada/eval_fat.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb index df6e35a..4820844 100644 --- a/gcc/ada/eval_fat.adb +++ b/gcc/ada/eval_fat.adb @@ -373,7 +373,7 @@ package body Eval_Fat is Fraction := Fraction + 1; end if; - when Round => + when Round => -- Do not round to even as is done with IEEE arithmetic, but -- instead round away from zero when the result is exactly @@ -390,7 +390,7 @@ package body Eval_Fat is Fraction := Fraction + 1; end if; - when Floor => + when Floor => if N > Uint_0 and then UR_Is_Negative (X) then Fraction := Fraction + 1; end if; |