From: Robert Dewar <dewar@adacore.com>
Date: Fri, 22 Aug 2008 08:54:14 +0000 (+0200)
Subject: g-catiio.adb: Code cleanup.
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2147ba0cd965d06602063f305afb6102e00f884d;p=platform%2Fupstream%2Fgcc.git

g-catiio.adb: Code cleanup.

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

	* g-catiio.adb: Code cleanup.

From-SVN: r139428
---

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;