diff options
Diffstat (limited to 'gcc/ada/a-reatim.adb')
| -rw-r--r-- | gcc/ada/a-reatim.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb index 9145edfb1b3..b15a6e155bd 100644 --- a/gcc/ada/a-reatim.adb +++ b/gcc/ada/a-reatim.adb @@ -198,7 +198,7 @@ package body Ada.Real_Time is T_Val := abs (T); end if; - -- Extract the integer part of T, truncating towards zero. + -- Extract the integer part of T, truncating towards zero if T_Val < 0.5 then SC := 0; |