diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-22 10:54:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-22 10:54:14 +0200 |
| commit | 2147ba0cd965d06602063f305afb6102e00f884d (patch) | |
| tree | 664ad9a41b46984f89437e4dd1809ac622e26d71 /gcc/ada | |
| parent | 846f6f7a24a0de43db544f8154f989dcb6993853 (diff) | |
| download | gcc-2147ba0cd965d06602063f305afb6102e00f884d.zip gcc-2147ba0cd965d06602063f305afb6102e00f884d.tar.gz gcc-2147ba0cd965d06602063f305afb6102e00f884d.tar.bz2 | |
g-catiio.adb: Code cleanup.
2008-08-22 Robert Dewar <dewar@adacore.com>
* g-catiio.adb: Code cleanup.
From-SVN: r139428
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/g-catiio.adb | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/g-catiio.adb b/gcc/ada/g-catiio.adb index 0d0b9b8..469d1c1 100644 --- a/gcc/ada/g-catiio.adb +++ b/gcc/ada/g-catiio.adb @@ -567,9 +567,6 @@ package body GNAT.Calendar.Time_IO is Minute : Minute_Number; Second : Second_Number; - Sub_Second : Second_Duration; - -- We ignore subseconds in this routine, so this is a throw away value - procedure Extract_Date (Year : out Year_Number; Month : out Month_Number; @@ -796,7 +793,14 @@ package body GNAT.Calendar.Time_IO is Extract_Time (Time_Start, Hour, Minute, Second, Check_Space => True); else - Split (Clock, Year, Month, Day, Hour, Minute, Second, Sub_Second); + declare + Discard : Second_Duration; + pragma Unreferenced (Discard); + begin + Split (Clock, Year, Month, Day, Hour, Minute, Second, + Sub_Second => Discard); + end; + Extract_Time (1, Hour, Minute, Second, Check_Space => False); end if; @@ -819,10 +823,7 @@ package body GNAT.Calendar.Time_IO is -- Put_Time -- -------------- - procedure Put_Time - (Date : Ada.Calendar.Time; - Picture : Picture_String) - is + procedure Put_Time (Date : Ada.Calendar.Time; Picture : Picture_String) is begin Ada.Text_IO.Put (Image (Date, Picture)); end Put_Time; |