mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 11:30:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

g-catiio.adb: Code cleanup.

Browse Source 
2008-08-22  Robert Dewar  <dewar@adacore.com>

	* g-catiio.adb: Code cleanup.

From-SVN: r139428
This commit is contained in:
Robert Dewar 2008-08-22 10:54:14 +02:00 committed by Arnaud Charlet
parent 846f6f7a24
commit 2147ba0cd9
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/g-catiio.adb
View File

@ -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;