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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [discr1_pkg.ads] - Blame information for rev 696

Details | Compare with Previous | View Log


package Discr1_Pkg is
 
  Maximum_Length : Natural := 80 ;
 
  subtype String_Length is Natural range 0 .. Maximum_Length;
 
  type Variable_String (Length : String_Length := 0) is
    record
      S : String (1 .. Length);
    end record;
 
  type Variable_String_Array is array (Natural range <>) of Variable_String;
 
end Discr1_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Discr1_Pkg is`
2
3			`Maximum_Length : Natural := 80 ;`
4
5			`subtype String_Length is Natural range 0 .. Maximum_Length;`
6
7			`type Variable_String (Length : String_Length := 0) is`
8			`record`
9			`S : String (1 .. Length);`
10			`end record;`
11
12			`type Variable_String_Array is array (Natural range <>) of Variable_String;`
13
14			`end Discr1_Pkg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [discr1_pkg.ads] - Blame information for rev 696