* 1aexcept.adb, 1aexcept.ads, 1ic.ads, 1ssecsta.adb,

[pf3gnuchains/gcc-fork.git] / gcc / ada / 5sosinte.adb

diff --git a/gcc/ada/5sosinte.adb b/gcc/ada/5sosinte.adb
index bb90d60..2909c7d 100644 (file)
--- a/gcc/ada/5sosinte.adb
+++ b/gcc/ada/5sosinte.adb
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---                                                                          --
---             Copyright (C) 1991-2001 Florida State University             --
+--             Copyright (C) 1991-2002 Florida State University             --
 --                                                                          --
 -- 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- --
@@ -68,8 +67,8 @@ package body System.OS_Interface is
       --  If F has negative value due to a round-up, adjust for positive F
       --  value.
       if F < 0.0 then S := S - 1; F := F + 1.0; end if;
-      return timespec' (tv_sec => S,
-        tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
+      return timespec'(tv_sec  => S,
+                       tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
    end To_Timespec;
 
    function To_Duration (TV : struct_timeval) return Duration is
@@ -87,8 +86,10 @@ package body System.OS_Interface is
       --  If F has negative value due to a round-up, adjust for positive F
       --  value.
       if F < 0.0 then S := S - 1; F := F + 1.0; end if;
-      return struct_timeval' (tv_sec => S,
-        tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
+      return
+        struct_timeval'
+          (tv_sec  => S,
+           tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
    end To_Timeval;
 
    procedure pthread_init is