PR rtl-optimization/82913
[official-gcc.git] / gcc / ada / libgnat / a-ztcoau.ads
blobb68c38b18ccd6285fcd9c90eb951b09182f18a1d
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- A D A . W I D E _ W I D E _ T E X T _ I O . C O M P L E X _ A U X --
6 -- --
7 -- S p e c --
8 -- --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
13 -- --
14 ------------------------------------------------------------------------------
16 -- This package contains the routines for Ada.Wide_Wide_Text_IO.Complex_IO
17 -- that are shared among separate instantiations of this package. The routines
18 -- in this package are identical semantically to those in Complex_IO itself,
19 -- except that the generic parameter Complex has been replaced by separate
20 -- real and imaginary values of type Long_Long_Float, and default parameters
21 -- have been removed because they are supplied explicitly by the calls from
22 -- within the generic template.
24 package Ada.Wide_Wide_Text_IO.Complex_Aux is
26 procedure Get
27 (File : File_Type;
28 ItemR : out Long_Long_Float;
29 ItemI : out Long_Long_Float;
30 Width : Field);
32 procedure Gets
33 (From : String;
34 ItemR : out Long_Long_Float;
35 ItemI : out Long_Long_Float;
36 Last : out Positive);
38 procedure Put
39 (File : File_Type;
40 ItemR : Long_Long_Float;
41 ItemI : Long_Long_Float;
42 Fore : Field;
43 Aft : Field;
44 Exp : Field);
46 procedure Puts
47 (To : out String;
48 ItemR : Long_Long_Float;
49 ItemI : Long_Long_Float;
50 Aft : Field;
51 Exp : Field);
53 end Ada.Wide_Wide_Text_IO.Complex_Aux;