X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fa-reatim.adb;h=352119ac5f6667550d889eb65bb9f8e2e338568b;hb=dc1dd09bb3af8958e470da36dea9cb9085a2ffb1;hp=155e27157159a909ebc3149e56a9efd7f7f908e1;hpb=f15731c43ae5e8cea424ea40f905c19afa1bd2e4;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb
index 155e2715715..352119ac5f6 100644
--- a/gcc/ada/a-reatim.adb
+++ b/gcc/ada/a-reatim.adb
@@ -6,9 +6,8 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision$
---                                                                          --
---            Copyright (C) 1991-2002, Florida State University             --
+--             Copyright (C) 1991-1994, Florida State University            --
+--             Copyright (C) 1995-2003, Ada Core Technologies               --
 --                                                                          --
 -- 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- --
@@ -28,8 +27,8 @@
 -- however invalidate  any other reasons why  the executable file  might be --
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
--- GNARL was developed by the GNARL team at Florida State University. It is --
--- now maintained by Ada Core Technologies, Inc. (http://www.gnat.com).     --
+-- GNARL was developed by the GNARL team at Florida State University.       --
+-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -186,7 +185,7 @@ package body Ada.Real_Time is
       if T_Val < 0.5 then
          SC := 0;
       else
-         SC := Seconds_Count (Time_Span' (T_Val - 0.5));
+         SC := Seconds_Count (Time_Span'(T_Val - 0.5));
       end if;
 
       if T < 0.0 then