2007-04-20 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / osint-b.ads

diff --git a/gcc/ada/osint-b.ads b/gcc/ada/osint-b.ads
index 807082f..6ba2bb9 100644 (file)
--- a/gcc/ada/osint-b.ads
+++ b/gcc/ada/osint-b.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2001 Free Software Foundation, Inc.               --
+--           Copyright (C) 2001-2006  Free Software Foundation, Inc.        --
 --                                                                          --
 -- GNAT 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- --
@@ -16,8 +16,8 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
@@ -29,10 +29,6 @@
 
 package Osint.B is
 
-   procedure Record_Time_From_Last_Bind;
-   --  Trigger the computing of the time from the last bind of the same
-   --  program.
-
    function More_Lib_Files return Boolean;
    --  Indicates whether more library information files remain to be processed.
    --  Returns False right away if no source files, or if all source files
@@ -45,20 +41,6 @@ package Osint.B is
    --  called only if a previous call to More_Lib_Files returned True). This
    --  name is the simple name, excluding any directory information.
 
-   function Time_From_Last_Bind return Nat;
-   --  This function give an approximate number of minute from the last bind.
-   --  It bases its computation on file stamp and therefore does gibe not
-   --  any meaningful result before the new output binder file is written.
-   --  So it returns Nat'last if:
-   --
-   --   - it is the first bind of this  specific program
-   --   - Record_Time_From_Last_Bind was not Called first
-   --   - Close_Binder_Output was not called first
-   --
-   --  otherwise it returns the number of minutes from the last bind. The
-   --  computation does not try to be completely accurate and in particular
-   --  does not take leap years into account.
-
    -------------------
    -- Binder Output --
    -------------------