diff options
Diffstat (limited to 'gcc/ada/s-fatgen.adb')
-rw-r--r-- | gcc/ada/s-fatgen.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb index 57703f4ff6e..35d037ac388 100644 --- a/gcc/ada/s-fatgen.adb +++ b/gcc/ada/s-fatgen.adb @@ -744,7 +744,7 @@ package body System.Fat_Gen is else Result := Machine (Radix_To_M_Minus_1 + Result) - Radix_To_M_Minus_1; - if Result > abs X then + if Result > abs X then Result := Result - 1.0; end if; |