OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [a-ztinio.ads] - Blame information for rev 706

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn
------------------------------------------------------------------------------
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 . I N T E G E R _ I O     --
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
------------------------------------------------------------------------------
15
 
16
--  In Ada 95, the package Ada.Wide_Wide_Text_IO.Integer_IO is a subpackage
17
--  of Wide_Wide_Text_IO. In GNAT we make it a child package to avoid loading
18
--  the necessary code if Integer_IO is not instantiated. See the routine
19
--  Rtsfind.Text_IO_Kludge for a description of how we patch up the
20
--  difference in semantics so that it is invisible to the Ada programmer.
21
 
22
private generic
23
   type Num is range <>;
24
 
25
package Ada.Wide_Wide_Text_IO.Integer_IO is
26
 
27
   Default_Width : Field := Num'Width;
28
   Default_Base  : Number_Base := 10;
29
 
30
   procedure Get
31
     (File  : File_Type;
32
      Item  : out Num;
33
      Width : Field := 0);
34
 
35
   procedure Get
36
     (Item  : out Num;
37
      Width : Field := 0);
38
 
39
   procedure Put
40
     (File  : File_Type;
41
      Item  : Num;
42
      Width : Field := Default_Width;
43
      Base  : Number_Base := Default_Base);
44
 
45
   procedure Put
46
     (Item  : Num;
47
      Width : Field := Default_Width;
48
      Base  : Number_Base := Default_Base);
49
 
50
   procedure Get
51
     (From : Wide_Wide_String;
52
      Item : out Num;
53
      Last : out Positive);
54
 
55
   procedure Put
56
     (To   : out Wide_Wide_String;
57
      Item : Num;
58
      Base : Number_Base := Default_Base);
59
 
60
end Ada.Wide_Wide_Text_IO.Integer_IO;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.