diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-30 14:27:40 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-30 14:27:40 +0100 |
| commit | 5fd3fd793a862a2d8a748b82860db1a43b9bacd6 (patch) | |
| tree | 854f726823e2af6587eb683f740988813fd28f9a /gcc/ada/a-reatim.adb | |
| parent | 297f34d71988b2599ac2a68332c47eba0c7345dc (diff) | |
| download | gcc-5fd3fd793a862a2d8a748b82860db1a43b9bacd6.zip gcc-5fd3fd793a862a2d8a748b82860db1a43b9bacd6.tar.gz gcc-5fd3fd793a862a2d8a748b82860db1a43b9bacd6.tar.bz2 | |
[multiple changes]
2009-10-30 Robert Dewar <dewar@adacore.com>
* a-tideio.adb: Minor reformatting
* a-wtdeio.adb, a-ztdeio.adb: Update comments, code clean up.
* a-reatim.adb, a-tideau.adb, a-ngelfu.adb, a-ztdeau.adb, a-ngrear.adb,
a-wtedit.adb, a-ststio.adb, a-ztedit.adb: Minor code reorganization
(use conditional expressions).
2009-10-30 Ed Schonberg <schonberg@adacore.com>
* gnat_ugn.texi: Additional info on gnatw.i and gnatw.I
* sem_case.adb: Improved error message.
2009-10-30 Emmanuel Briot <briot@adacore.com>
* a-direct.adb, gnatcmd.adb, gnatname.adb, makeutl.adb, opt.ads,
osint.adb, prj-ext.adb, switch-m.adb (Follow_Links_For_Dirs): Now
defaults to False, and controlled by -eL.
* a-direct.adb: Add comments.
* osint.adb (File_Stamp): Avoid unneeded duplicate system call
From-SVN: r153744
Diffstat (limited to 'gcc/ada/a-reatim.adb')
| -rw-r--r-- | gcc/ada/a-reatim.adb | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb index 2ca4472..c3cbec6 100644 --- a/gcc/ada/a-reatim.adb +++ b/gcc/ada/a-reatim.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2006, AdaCore -- +-- Copyright (C) 1995-2009, AdaCore -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -189,19 +189,12 @@ package body Ada.Real_Time is -- Special-case for Time_First, whose absolute value is anomalous, -- courtesy of two's complement. - if T = Time_First then - T_Val := abs (Time_Last); - else - T_Val := abs (T); - end if; + T_Val := (if T = Time_First then abs (Time_Last) else abs (T)); -- Extract the integer part of T, truncating towards zero - if T_Val < 0.5 then - SC := 0; - else - SC := Seconds_Count (Time_Span'(T_Val - 0.5)); - end if; + SC := + (if T_Val < 0.5 then 0 else Seconds_Count (Time_Span'(T_Val - 0.5))); if T < 0.0 then SC := -SC; |