diff options
Diffstat (limited to 'gcc/ada/a-tideau.ads')
| -rw-r--r-- | gcc/ada/a-tideau.ads | 54 |
1 files changed, 25 insertions, 29 deletions
diff --git a/gcc/ada/a-tideau.ads b/gcc/ada/a-tideau.ads index 65ddeb7..9855e5b 100644 --- a/gcc/ada/a-tideau.ads +++ b/gcc/ada/a-tideau.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -42,57 +42,53 @@ private package Ada.Text_IO.Decimal_Aux is function Get_Dec - (File : in File_Type; - Width : in Field; - Scale : Integer) - return Integer; + (File : File_Type; + Width : Field; + Scale : Integer) return Integer; function Get_LLD - (File : in File_Type; - Width : in Field; - Scale : Integer) - return Long_Long_Integer; + (File : File_Type; + Width : Field; + Scale : Integer) return Long_Long_Integer; procedure Put_Dec (File : File_Type; Item : Integer; - Fore : in Field; - Aft : in Field; - Exp : in Field; + Fore : Field; + Aft : Field; + Exp : Field; Scale : Integer); procedure Put_LLD - (File : in File_Type; - Item : in Long_Long_Integer; - Fore : in Field; - Aft : in Field; - Exp : in Field; + (File : File_Type; + Item : Long_Long_Integer; + Fore : Field; + Aft : Field; + Exp : Field; Scale : Integer); function Gets_Dec - (From : in String; + (From : String; Last : access Positive; - Scale : Integer) - return Integer; + Scale : Integer) return Integer; function Gets_LLD - (From : in String; + (From : String; Last : access Positive; - Scale : Integer) - return Long_Long_Integer; + Scale : Integer) return Long_Long_Integer; procedure Puts_Dec (To : out String; - Item : in Integer; - Aft : in Field; - Exp : in Field; + Item : Integer; + Aft : Field; + Exp : Field; Scale : Integer); procedure Puts_LLD (To : out String; - Item : in Long_Long_Integer; - Aft : in Field; - Exp : in Field; + Item : Long_Long_Integer; + Aft : Field; + Exp : Field; Scale : Integer); end Ada.Text_IO.Decimal_Aux; |